Лабораторная работа №3 (5)
Программирование цикличных алгоритмов
Цель работы: изучить способы настройки программ в среде Delphi. Составить и настроить программу цикличного алгоритма.
Задание
Создать папку, модуль и проект, таблицу идентификаторов, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для вычисления значений функции, заданных в таблице.
Условие:
Вид функции при условиях |
Исходные данные |
||||
a |
b |
X1 |
X2 |
X3 |
|
Z=(│a+b│)1/4 |
0,51 |
0,35 |
0,4 |
1,8 |
0,25 |
52 |
21 |
1,1 |
27 |
0,5
|
|
-52 |
17 |
1,2 |
12 |
0,2 |
Таблица идентификаторов
Математическая запись переменных |
i |
c |
a |
b |
Xнач. |
Xкон. |
Δx |
n |
x |
z |
Запись переменных в Object Pascal |
i |
c |
a |
b |
X1 |
X2 |
X3 |
n |
x |
z |
Таблица компонентов
Объект |
Назначение |
Edit1, Edit2, Edit3, Edit4, Edit5 |
Поле редактирования для введения исходных данных a, b, x1, x2, x3 соответственно. |
Button1 |
Кнопка активации процедуры, вычисления значений функции. |
Label10 |
Поле вывода результатов вычисления функции z. |
Таблица значений свойств компонентов формы
Свойство |
Значение |
Form1.Caption |
Цикл for с параметром i |
Edit1.Text Edit2.Text Edit3.Text Edit4.Text Edit5.Text |
Поля для введения исходных данных a, b, x1, x2, x3 соответственно. |
Button1.Caption |
Вычислить |
![]() |
i=1,
n,1
![]() |
|||
![]() |
Рисунок 1 – Блок-схема
Рисунок 2 – Форма
Код программы
procedure TForm1.Button1Click(Sender: TObject);
var a,b,x1,x2,x3,x,z:real;
n,i:integer;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
x1:=strtofloat(edit3.Text);
x2:=strtofloat(edit4.Text);
x3:=strtofloat(edit5.Text);
n:=trunc((x2-x1)/x3)+1;
label10.Caption:=''+#13;
x:=x1;
for i:=1 to n do
begin
z:=Abs(Exp(1/4*Ln(a+b)));
label10.Caption:=label10.Caption+'x='+floattostr(x)+' '+'z='+floattostr(z)+#13;
x:=x+x3;
end;
end.
Рисунок 3 – Вид окна формы
Вывод: в ходе данной лабораторной работы приобретены навыки в создании программы циклического алгоритма для вычисления значений функции в среде программирования Delphi. Был проведен опыт по вводу отрицательных числовых данных в область значений переменных, после чего программа выдала сообщение об ошибке Project1.exe raised exception class EInvalidOp with message ‘Invalid floating point operation’. Process stopped. Use Step or Run to continue. Что означает: Project1.exe поднял класс исключений EInvalidOp с сообщением "недопустимая операция с плавающей запятой". Процесс остановлен. Используйте Step(шаг) или Run (пробег) для продолжения.
© ООО «Знанио»
С вами с 2009 года.