![]() |
|
#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 |