лабораторная работа / лабораторные работы по LAZARUS / Отчет спо лазарус лаба 3

Цель работы – изучить операторы цикла и создать программу с циклической структурой с помощью объектно-ориентированного языка Lazarus.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

Spin, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Memo1: TMemo;

SpinEdit1: TSpinEdit;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

SpinEdit1.Value:=10; // количество членов ряда N

Edit1.text:='0,1'; // начальное значение Xn

Edit2.text:='1,0'; // конечное значение Xk

Memo1.Clear;

Memo1.Lines.Add('Лабораторная работа №3 - Циклический алгоритм');

end;

procedure TForm1.Button1Click(Sender: TObject);

var xn,xk,x,h,an,s,y,al,R,del: extended;

n,k: integer;

begin

n:= SpinEdit1.Value;

xn:=StrToFloat(Edit1.Text);

xk:=StrToFloat(Edit2.Text);

if CheckBox1.Checked then

Memo1.Lines.Add('Исходные данные: n='+IntToStr(n)+

' Xn='+FloatToStrF(xn,ffFixed,6,1)+' Xk='+FloatToStrF(xk,ffFixed,6,1));

h:=(xk-xn)/10; // вычисление шага h

x:=xn;

repeat // цикл по x

an:=1; // нулевой член ряда

S:=an; // начальное значение суммы ряда

for k:=0 to n do

begin

R:=(2*x)/(k+1);

an:=an*R; // следующий член ряда

S:=S+an; // сумма членов ряда

end;

y:=Exp(2*x);

al:=s-y; // абсолютная погрешность

del:=abs((s-y)/y)*100; // относительная погрешность

if CheckBox2.Checked then

if CheckBox3.Checked then

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2)+

' S='+ FloatToStrF(s,ffFixed,6,3)+

' Y='+ FloatToStrF(y,ffFixed,6,3)+

' A='+ FloatToStrF(al,ffFixed,6,3)+

' D='+ FloatToStrF(del,ffFixed,6,0)+'%')

else

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2)+

' S='+ FloatToStrF(s,ffFixed,6,3)+

' Y='+ FloatToStrF(y,ffFixed,6,3)+

' A='+ FloatToStrF(al,ffFixed,6,3))

else if CheckBox3.Checked then

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2) +

' S='+ FloatToStrF(s,ffFixed,6,3)+

' Y='+ FloatToStrF(y,ffFixed,6,3)+

' D='+ FloatToStrF(del,ffFixed,6,0)+'%')

else

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2)+

' S='+ FloatToStrF(s,ffFixed,6,3)+

' Y='+ FloatToStrF(y,ffFixed,6,3));

x:=x+h;

until x>xk;

end;

initialization

{$I unit1.lrs}

end.