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

Лабораторная работа №5

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

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

Задание

Создать папку, проект, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для вычисления значений выражения  где i – номер варианта, х – целое число, выражения функций а=³√│x+sin x²│,

 b=tg⁴x+x², z=(│a+b│)^1/4.

Ход работы

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

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

        I=9,17,2                                                           

                                          I=9,14,2

                         Рисунок 1 – Блок-схема

Рисунок 2 – Форма

Код программы

procedure TForm1.Button1Click(Sender: TObject);

var a,b,es,ep,z:real;

x,i:integer;

begin

 x:=10;

 a:=0;

 for i:=9 to 17 do

 begin

 es:=exp(1/3*ln(abs(x+sin(sqr(x)))));

 a:=a+es;

end;

  Memo1.Lines.Add('Результат a='+FloatToStrF(a,Fffixed,8,2));

  b:=1;

  for i:= 9 to 14 do

  begin

  ep:=exp(1/4*ln(sin(x)/cos(x)))-sqr(x);

  b:=b*ep;

  end;

  Memo1.Lines.Add('b='+FloatToStrF(b,Fffixed,8,2));

  z:=exp(1/4*ln(abs(a+b)));

  Memo1.Lines.Add('Значение функции z='+FloatToStrF(z,Fffixed,8,2));

  end;

end.

Рисунок 3 – Вид окна программы

Рисунок 4- Ошибка ввода данных

Вывод: в ходе данной лабораторной работы приобретены навыки в создании программы циклического алгоритма для вычисления значений функции суммирования в интегрированной среде программирования Delphi. Сделан вывод о том, что алгоритм накопления суммы очень эффективен  с точки зрения использования памяти. Был проведен опыт по изменению значения переменной х, после чего появилось окно ошибки ввода данных для  операции произведения чисел (Рисунок 4), в котором сообщалось, что для продолжения работы программы необходимо дальнейшее пошаговое выполнение по поиску ошибки. Проблема устранена путем ввода значения х равном 10.