Программирование линейных алгоритмов

Отчет по лабораторной работе №1

Тема «Программирование линейных алгоритмов»

Цель: научиться составлять каркас простейшей программы в среде DELPHI. Написать и отладить программу линейного алгоритма.

1 Условие  лабораторной работы №1

составить программу вычисления для заданных значений x, y, z арифметического выражения

[pic 1]

2 Исходный код программы

unit Unit1; interface uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,    

  Forms, Dialogs, StdCtrls; type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Memo1: TMemo;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);

  private      { Private declarations }   public       { Public declarations }   end; var

  Form1: TForm1; implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin

Edit1.Text:='3,4';        // Начальное значение x

Edit2.Text:='2,8';        // Начальное значение y

Edit3.Text:='5,6E-3';  // Начальное значение z

Memo1.Clear;           // Очистка окна редактора Memo1 end;

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,z,a,b,c,s : extended; begin

 Memo1.Clear;          // Очистка окна редактора Memo1  

 Memo1.Lines.Add(' Исходные данные:'); // Вывод строки в  Memo1      x:=StrToFloat(Edit1.Text);          // Считывается значение X  Memo1.Lines.Add(' X = '+FloatToStrF(x,fffixed,8,4));  

     y:=StrToFloat(Edit2.Text);          // Считывается значение Y  Memo1.Lines.Add(' Y = '+FloatToStrF(y,fffixed,8,4));    

     z:=StrToFloat(Edit3.Text);           // Считывается значение Z

  Memo1.Lines.Add(' Z = '+FloatToStrF(z,fffixed,8,4));        // Вычисляем арифметическое выражение      a:=Sqr(Sin(x+y)/Cos(x+y));      b:=abs(exp(3*y)-sqr(x));      c:=sqrt(arctan(z)+ln(x));

      s:=a*b/c;

     // Выводим результат в окно Memo1

    Memo1.Lines.Add(' Результат S = '+FloatToStrF(s,fffixed,8,3)); end;

end. 

3 Результат работы программы

[pic 2]

1 Условие  индивидуального задания лаб.1 варианта № 10

[pic 3]

2 Исходный код программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Math;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

  Edit1.Text:='0,03981';

  Edit2.Text:='-1625';

  Edit3.Text:='0,512';

  Memo1.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,z,a,b,c,s : extended;

begin

   Memo1.Clear;

   Memo1.Lines.Add('Исходные данные:');

     x:=StrToFloat(Edit1.Text);

   Memo1.Lines.Add('X='+FloatToStrF(x,fffixed,8,6));

     y:=StrToFloat(Edit2.Text);

   Memo1.Lines.Add('Y='+FloatToStrF(y,fffixed,8,6));

     z:=StrToFloat(Edit3.Text);

   Memo1.Lines.Add('Z='+FloatToStrF(z,fffixed,8,6));

   power(2,-x);

    a:=power(2,-x);;

   b:=sqrt(x+sqrt(sqrt(abs(y))));

   c:=power(exp(x-1/sin(z)),1/3);

   s:=a*b*c;

   Memo1.Lines.Add(' Результат S='+FloatToStrF(s,fffixed,8,6));

end;

end.

3 Результат работы программы

[pic 4]

  4 Блок схема

[pic 5]

Отчет по лабораторной работе 2

Тема «ОБРАБОТКА СОБЫТИЙ В СРЕДЕ DELPHI. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ»

Цель: научиться пользоваться простейшими компонентами организации переключений (TСheckBox, TRadioGroup). Написать и отладить программу разветвляющегося алгоритма.