Лабораторный практикум
procedure TForm1.Button2Cl
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
| procedure TForm1.Button2Click(Sender: TObject); {обработка массива} var
Max, Min, Sum, CountPlus:integer; {результаты обработки массива} begin if CheckBox1.Checked then Min:=M[0]; {пусть 0-й элемент - Min} Edit3.Text:=' '; if CheckBox2.Checked then Max:=M[0]; {пусть 0-й элемент - Max} Edit4.Text:=' '; Sum:=0; {обнулить значения Sum} Edit5.Text:=' '; CountPlus:=0; {обнулить значения суммы положительных элементов} Edit6.Text:=' '; for I:=0 to N-l do begin if CheckBox1.Checked then {определить минимальный элемент массива} if Min>M[I] then Min:=M[I]; if CheckBox2.Checked then {определить максимальный элемент массива} if Max if CheckBox3.Checked then {суммировать элементы массива} Sum:=Sum+M[I]; if CheckBox4.Checked then {суммировать положительные элементы массива} if M[I]>0 then CountPlus:=CountPlus+1; end; {вывести результаты обработки массива} if CheckBox1.Checked then Edit3.Text:=IntToStr(Min); if CheckBox2.Checked then Edit4.Text:=IntToStr(Max); if CheckBox3.Checked then Edit5.Text:=IntToStr(Sum); if CheckBox4.Checked then Edit6.Text:=IntToStr(CountPlus); end; 15. Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение. 16. Задавая различные значения числа элементов массива и щелкая мышью на кнопке Создать массив, убедитесь в правильной работе процедуры защиты от ввода нечисловых данных в Edit1 и генерации массива случайных целых чисел. 17. Выбирая варианты обработки массива установкой соответствующих флажков CheckBox, как показано на рис. 6.1, и щелкая мышью на кнопке Вычислить, убедитесь в правильности работы процедуры обработки массива. 18. Закройте окно приложения. жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|