Лабораторная работа
Программирование цикличных алгоритмов
Цель работы: изучить способы настройки программ в среде 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.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.