Пример создания программы (циклический алгоритм) Протабулировать функцию y=2/3*х*х , если аргумент х задан на отрезке [m, n] с шагом изменения k. Решение: Входные данные: m –начальное значение х, n –конечное значение х, k –шаг изменения х; выходные данные: x, y. Начало Экран Ввод m, n, k х=m, n, k x=12 y=96 x=13 y=1112, 7 x=14 y=130, 7 Конец x=15 y=150 y=2/3*x*x Выво д x, y Оперативная память m 12 n 15 k 1 x 15 14 13 12 y 130. 7 112, 7 150 96
Создание окна будущей программы. На палитре компонентов выбирается необходимые компоненты, которые помещаются на форму (Form 1). 1. Поля для ввода-редактирования строки символов (для ввода с клавиатурывходных данных). Edit 1 - для ввода m, Edit 2 - для ввода n, Edit 3 - для ввода k. Для того, чтобы очистить поля ввода-редактирования текста, Использовать свойство Text, которое выбирается в инспекторе объектов. 2. Вывод текста на поверхность формы. Label 1 - для того, чтобы сделать надпись «m=» , Label 2 - для того, чтобы сделать надпись «n=» , Label 3 - для того, чтобы сделать надпись «k=» , Использовать свойства (Properties), которые выбираются в инспекторе объектов: Caption –содержит текст надписи, Font – шрифт.
3. List. Box 1 –предназначен для создания списков. 4. Additional. Chart 1 – компонент, позволяющий строить диаграммы и графики. Использовать свойство Series. List. Щелкнуть Add –добавить график. 5. Командная кнопка. Button 1 – для запуска программы. Свойство: Caption - текст на кнопке «Вычислить» .
Диалоговое окно программы _ □ Form 1 List. Box 1 m= Chart 1 Edit 1 (Label 1) n= Edit 2 (Label 2) k= Edit 3 (Label 3) Button 1 Вычислить
Создание процедуры обработки событий В инспекторе объектов выбирается событие (Events), на которое может реагировать объект Button 1 (командная кнопка). Выбираем событие On. Click – это значит, что созданная нами программа (Procedure 1) будет выполняться, когда пользователь щелкнет мышью на кнопке Button 1. Для набора текста программы переходим в окно Unit 1. Щелкнуть два раза в поле On. Click
Порядок составления процедуры обработки события On. Click (программы) 1. Объявление переменных, используемых в программе: Var m, n, k, x, y: real; real- дробные числа. 2. Очистка компонентов создания списка и построения графика. List. Box 1. Clear; Series 1. Clear; 3. Входные данные, вводимые с клавиатуры в поля вводаредактирования текста, преобразуются в числовой вид, для чего используется функция Str. To. Float (String to Float -преобразовать строку в дробное число). m: =Str. To. Float(Edit 1. Text); n: =Str. To. Float(Edit 2. Text); k: =Str. To. Float(Edit 2. Text); 4. Аргументу х задается начальное значение. x: =m;
5. Организуется цикл. Пока x<n выполнять составной оператор. while x<=n do begin …. end; 6. В составной оператор входят: -оператор присваивания y: =2/3*x*x; -вывод на экран полученных результатов в виде списка List. Box 1. Items. Add('x='+Float. To. Str. F(x, ff. Fixed, 4, 1)+ ' y='+Float. To. Str. F(y, ff. Fixed, 8, 1)); (Метод: Items. Add - добавляет полученные данные в список). Для преобразования дробного числа в текст (строку) нужно использовать функцию Float. To. Str. (x- полученный результат; ff Fixed — формат с фиксированной точкой; 4 -количество цифр до десятичной точки; 1 -количество цифр после десятичной точки).
-вывод на экран графика Series 1. Add. XY(x, y, '', cl. Red); cl. Red –цвет графика красный. -аргумент х увеличивается на шаг k x: =x+k; 7. Очистка полей ввода –редактирования текста, для вода следующих данных. Edit 1. Clear; Edit 2. Clear; Edit 3. Clear;
Процедура обработки события On. Click procedure TForm 1. Button 1 Click(Sender: TObject); Var m, n, k, x, y: real; begin List. Box 1. Clear; Series 1. Clear; m: =Str. To. Float(Edit 1. Text); n: =Str. To. Float(Edit 2. Text); k: =Str. To. Float(Edit 3. Text); x: =m; while x<=n do begin y: =2/3*x*x; List. Box 1. Items. Add('x='+Float. To. Str. F(x, ff. Fixed, 4, 1)+ ' y='+Float. To. Str. F(y, ff. Fixed, 8, 1)); Series 1. Add. XY(x, y, '', cl. Red); x: =x+k; end; Edit 1. Clear; Edit 2. Clear; Edit 3. Clear; end.
Скачать презентацию Пример создания программы циклический алгоритм Протабулировать функцию y 2 3 х х
Лекция9ПрогрЦиклАлг(2006).ppt