Лабораторный практикум
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
- Бұл бет үшін навигация:
- Edit 2. Text := ; for I := 0 to N -1 do
| var
Form1: TForm1; N, I : integer; M : array of integer; {описание динамического массива целых чисел} 13. Для предупреждения ошибки ввода в окно Edit1 нечислового значения введите обработку события нажатия клавиши в окне Edit1, чтобы запретить ввод любых символов, кроме цифр от 0 до 9. Для создания процедуры обработчика события нажатия клавиши в окне Edit1 выберите в окне Инспектора объектов компонент Edit1 и на странице События дважды щелкните левой кнопкой мыши на пустом поле списка в событии On Key Press. После этого в текст процедуры обработчика события добавьте следующий оператор: if not (Key in ['0'..'9']) then Key:=#O;. Полный текст процедуры обработчика события будет выглядеть следующим образом: procedure Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key:=#0; end; 14. Создание массива целых чисел опишите в процедуре обработчика события щелчка мышью на кнопке Button1. Для создания процедуры обработчика события выберите в окне Инспектора объектов объект Button1, затем на странице События произведите двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода в заготовку процедуры обработчика события введите следующий текст: procedure TForm1.Button1Click(Sender: TObject); begin Randomize; N:=StrToInt(Edit1.Text); {число элементов массива} SetLength(M, N); {задать динамическому массиву М длину N} Edit2.Text:=' '; for I:= 0 to N-1 do {заполнить массив случайными значениями целых чисел} begin M[I]:= Round(Sin(Random(100))*100); {присвоить элементу массива случайное значение} жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|