Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Задачи.   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.54 MB
Время: 0.045 c
1-1098875302
Pentium133
2004-10-27 15:08
2004.11.14
TListBox...


3-1097629887
dark
2004-10-13 05:11
2004.11.14
Как включить поддержку кодировки в таблицу формата *.dbf (dBASE)


1-1099397617
Koala
2004-11-02 15:13
2004.11.14
ProgressBar в Dll


14-1098697906
Миша Белкин
2004-10-25 13:51
2004.11.14
C# or Delphi and .Net прекрасный дует?


1-1099021441
Nexel
2004-10-29 07:44
2004.11.14
выбор из справочника?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский