Лабораторная работа
Программирование цикличных алгоритмов
Цель работы: изучить способы настройки программ в среде Delphi. Составить и настроить программу цикличного алгоритма.
Задание
Создать папку, проект, блок-схему
алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов
формы и Object Pascal программу для
вычисления значений функции У=
Ход работы
Таблица компонентов
Объект |
Назначение |
Edit1 |
Поле вывода результатов вычисления функции у. |
Button1 |
Кнопка активации процедуры, вычисления значений функции. |
Label1, Label2, Label3 |
Поле редактирования и введения данных. |
Image |
Поле для добавления изображения. |
Таблица значений свойств компонентов формы
Свойство |
Значение |
Form1.Caption |
Цикл for с параметром i |
Edit1.Text
|
Поля для вывода результата. |
Button1.Caption |
Вычислить |
![]() |
|||
![]() |
I=1,8,2
![]() |
![]() |
|||
![]() |
|||
Рисунок 1 – Блок-схема
Рисунок 2 – Форма
Код программы
procedure TForm1.Button1Click(Sender: TObject);
var y,es:Real;
i:integer;
begin
y:=0;
for i:=2 to 8 do
begin
es:=1/sqr(i);
y:=y+es;
end;
Edit1.Text:=FloatToStr(y);
end;
end.
Рисунок 3 – Вид окна формы
Вывод: в ходе данной лабораторной работы приобретены навыки в создании программы циклического алгоритма для вычисления значений функции суммирования в интегрированной среде программирования Delphi. Сделан вывод о том, что алгоритм накопления суммы очень эффективен с точки зрения использования памяти, так как независимо от количества слагаемых, 10 или 2000, потребуется 3 переменных y, es, i.
© ООО «Знанио»
С вами с 2009 года.