Лабораторная работа №3 (5) Программирование цикличных алгоритмов Цель работы: изучить способы настройки программ в среде Delphi. Составить и настроить программу цикличного алгоритма.

Лабораторная работа №3 (5)

Программирование цикличных алгоритмов

Цель работы: изучить способы настройки программ в среде Delphi. Составить и настроить программу цикличного алгоритма.

Задание

Создать папку, модуль и проект, таблицу идентификаторов, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для вычисления значений функции, заданных в таблице.

Условие:

Таблица идентификаторов

Таблица компонентов

Таблица значений свойств компонентов формы

    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 (пробег) для продолжения.