Лабораторный практикум
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
| procedure TForm1.Button1Click(Sender: TObject);
begin Randomize; N:=StrToInt(Edit1.Text); {число элементов массива} SetLength(M, N); {задать массиву М длину N} Edit2.Text:=' '; {очистить окно Edit2} for I:= 0 to N-1 do {заполнить массив случайными значениями целых чисел} begin M[I]:= Round(Sin(Random(100))*100); {присвоить элементу массива случайное значение} Edit2.Text:=Edit2.Text+' '+IntToStr(M[I]); {вывести элементы массива} end; end; ПРИМЕЧАНИЕ Оператор Randomize; задает случайное начальное значение для функции Random. 14. Обработку массива опишите в процедуре обработчика события щелчка мышью на кнопке Button2. Для этого выберите в окне Инспектора объектов объект Button2, затем на странице События сделайте двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода в заготовку процедуры обработчика события procedure TForm1.Button2Click(Sender: TObject); в раздел описания локальных переменных поместите следующее.описание: var Max, Min, Sum, CountPlus:integer; {результаты обработки массива} где Мах — максимальный элемент массива, Min — минимальный элемент массива, Sum — сумма всех элементов массива, CountPlus — количество положительных элементов массива. Обработку массива можно реализовать с помощью цикла For, в котором вычисление значения каждой из этих переменных записывается при помощи оператора if then, проверяющим условие CheckBox.Checked. Если свойство Checked имеет значение True, то выполняется вычисление соответствующей переменной. В заключительной части процедуры можно разместить вывод результатов обработки массива. Текст процедуры обработки массива может быть записан следующим образом: жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|