Форум: "Потрепаться";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];
Вниз
Задачи. Найти похожие ветки
← →
esu (2004-10-22 22:00) [40]wnew © (22.10.04 21:57) [38]
Да, тут тоже не Delphi :) Когда я паскаль использовал открытых небыло, может быть в 7ом и появились ?
> begin...end © (22.10.04 21:56) [37]
Ну уж result то там помоему точно должен быть.
Если таки не заработает то нужно переменную заводить
← →
Qwest © (2004-10-22 22:01) [41]
> then Inc(Summa, DataArray[I])
здесь: then Inc(Amount, DataArray[I])
← →
esu (2004-10-22 22:01) [42]
> Qwest © (22.10.04 21:58) [39]
Измени везде в коде Summa на Result, скажи что получилось
← →
Qwest © (2004-10-22 22:05) [43]
> Измени везде в коде Summa на Result, скажи что получилось
Сумма отрицательных элементов постоянно равняется 3200 , Зато программа компилируется.
← →
begin...end © (2004-10-22 22:06) [44]
> [40] esu (22.10.04 22:00)
> Ну уж result то там помоему точно должен быть.
Не-а.
> [39] Qwest © (22.10.04 21:58)
Ну ладно, попробуй тогда так:program massiv;
function Amount(DataArray: array of Integer): Integer;
var
I, Summa: Integer;
begin
Summa := 0;
for I := Low(DataArray) to High(DataArray) do
if DataArray[I] < 0 then Inc(Summa, DataArray[I]);
Amount := Summa
end;
var
I: Integer;
DataArray: array [1..5] of Integer;
begin
for i:=1 to 5 do
begin
WriteLn("Введите ",i,"-й элемент массива: ");
ReadLn(DataArray[i]);
end;
WriteLn("Сумма отрицательных элементов: ", Amount(DataArray));
ReadLn;
end.
← →
Sanek_Metaller © (2004-10-22 22:07) [45]>Т.е. ты перерыл книги, мануалы, хелпы и - ноль.
В данном случае открыть лекцию=)
>Вот так будет выглядеть алгоритм программы?
Чтобы посмотреть,как будет выглядеть алгоритм проги,нужно скачать Аутошэму=)
← →
esu (2004-10-22 22:08) [46]
> > Ну уж result то там помоему точно должен быть.
>
> Не-а.
А говорят что программа компилируется :)
> Qwest © (22.10.04 22:05) [43]
Исходник покажи, виг его знает что там уже наменалось :)
← →
Qwest © (2004-10-22 22:18) [47]
> Ну ладно, попробуй тогда так:
Всё...Программа работает!
Вы не могли бы пояснить про Low(DataArray) и High(DataArray)?
← →
begin...end © (2004-10-22 22:24) [48]
> [38] wnew © (22.10.04 21:57)
> можно передавать только открытый массив, то есть - создать
> свой тип и объявит переменную этого типа
Это как раз-таки уже не открытый массив будет...
> [47] Qwest © (22.10.04 22:18)
Low - функция, возвращающая значение нижней границы индексов массива.
High - то же, для верхней границы.
> Всё...Программа работает!
Удачи!
P.S. Всё, пошёл спать.
← →
Qwest © (2004-10-22 22:28) [49]Большое спасибо вам begin...end за оказанную помощь в решени данной задчи.
← →
wnew © (2004-10-22 22:35) [50]begin...end © (22.10.04 22:24) [48]
> Это как раз-таки уже не открытый массив будет...
Да Вы правы, но в его случае, думаю, лучше было бы создать свой тип.
← →
Vudu (2004-10-22 23:59) [51]А можно вопрос, на кого учимся? (это Qwest-у)
← →
TUser © (2004-10-23 12:55) [52]
> А можно вопрос, на кого учимся? (это Qwest-у)
На копипастера, наверное.
← →
Sha © (2004-10-23 15:02) [53]Просьба к отвечающим:
своими ответами не способствовать снижению интеллектуального потенциала нации :)
А то так, глядишь, лет через 20 уже и ответить никто не сможет :(
← →
TUser © (2004-10-23 15:09) [54]Лет через 20 появятся вопросы - а как мне запостить задачи в форум :)
← →
Johnmen © (2004-10-25 10:10) [55]А что ещё сильно печалит, так это попытки некоторых индивидуумов "помочь". При этом вводя в заблуждение вопрошающих своими неверными ответами...
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.07 c
