Звіт з обчислювальної практики на мові Delphi

Міністерство освіти і науки України

ДВНЗ «Ужгородський національний університет»

Математичний факультет

Звіт

з обчислювальної практики

Виконала:

студентка 2 курсу

Болдог К.С.

Ужгород 2019

Зміст

Завдання 1        3

Завдання 1.A        3

Завдання 1.Б        6

Завдання 1.В        10

Завдання 1.Г        15

Завдання 2.        22

Завдання 3.        28

Завдання 4.        30

Висновок        33

Завдання 1

Завдання 1.A

Умова:

Трикутник задається координатами своїх вершин на площині А,[pic 1]

B,C. Визначити,чи є цей трикутник рівнобедреним.[pic 2][pic 3]

Код програми:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

    Button1: TButton;

    Edity1: TEdit;

    Edity2: TEdit;

    Edity3: TEdit;

    Editx1: TEdit;

    Editx2: TEdit;

    Editx3: TEdit;

    Edit: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edity1Change(Sender: TObject);

    procedure Label1Click(Sender: TObject);

  private

  public

end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Label1Click(Sender: TObject);

begin

end;

procedure TForm1.Edity1Change(Sender: TObject);

begin

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  x1,x2,x3,y1,y2,y3,a,b,c:double;

begin

  x1:=StrToFloat(Editx1.Text);

  x2:=StrToFloat(Editx2.Text);

  x3:=StrToFloat(Editx3.Text);

  y1:=StrToFloat(Edity1.Text);

  y2:=StrToFloat(Edity2.Text);

  y3:=StrToFloat(Edity3.Text);

  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));

  b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

  c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

  if (a=b) or (a=c) or (b=c) then

  Edit.Text:=(' trekutnek rivnobedrenej') else

  Edit.Text:=('trekutnek ne rivnobedrenej');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

end;

end.

Контрольні приклади:

[pic 4]

[pic 5]

Завдання 1.Б

Умова:

Дано два вектори [pic 6]. Знайти скалярний добуток векторів.

Код програми:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

  Grids, Spin;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    EditC: TEdit;

    SpinEditn: TSpinEdit;

    StringGrid1: TStringGrid;

    StringGrid2: TStringGrid;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure EditCChange(Sender: TObject);

    procedure SpinEditnChange(Sender: TObject);

  private

  public

  end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.SpinEditnChange(Sender: TObject);

begin

 StringGrid1.ColCount:=SpinEditN.Value;

 StringGrid2.ColCount:=SpinEditN.Value;

end;

procedure TForm1.EditCChange(Sender: TObject);

begin

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

end;

procedure TForm1.Button5Click(Sender: TObject);

Type

 TVector=array of double;

 var

   x,y:tvector;

   i,n:integer;

   c :double;

begin

  n:=SpinEditN.Value;