|
#1
|
|||
|
|||
Помогите новичку
Задание такое: разработать программу, осуществляющую ввод 7 значений и нахождение минимального или максимального при нажатии командной кнопки, а также выдачу результата.
Желательно на 6 или 7 версии Delphi. Зараннее благодарен за помощь! |
#2
|
||||
|
||||
Тебе необходимо чтоли следующее?:
- сгенерировать 7 чисел - найти минимальное - показать - найти максимальное - показать Это чтоли. |
#3
|
|||
|
|||
Числа ввести вручную. Вводить можно хоть в Memo, это без разницы!
|
#4
|
||||
|
||||
kramar лови пример, под GUI сам перепишешь, должен же ты что-то сам сделать
Код:
program Project; {$APPTYPE CONSOLE} uses SysUtils; const ValuesCount=7; var ValArray:array [1..ValuesCount] of Integer; MaxVal,MinVal:Integer; Counter:integer; begin MaxVal:=-2147483647; //Min of type Integer MinVal:=2147483647; //Max of type Integer //Read values WriteLn('Input values'); for Counter:=1 to ValuesCount do begin WriteLn('Value '+IntToStr(Counter)); ReadLn(ValArray[Counter]); if MaxVal<ValArray[Counter] then MaxVal:=ValArray[Counter]; //find max value if MinVal>ValArray[Counter] then MinVal:=ValArray[Counter]; //find min value end; WriteLn('Max value:'+IntToStr(MaxVal)); WriteLn('Min value:'+IntToStr(MinVal)); //Suspend ReadLn; end. |
#5
|
|||
|
|||
спасибо! а что такое GUI ?
|
#6
|
||||
|
||||
Давно я так заразительно не смеялсо )))
Rtfm |
#7
|
||||
|
||||
=))))
GUI - Graphical user interface, то бишь, пользовательский интерфейс =) THE CRACKER IS OUT THERE |