inf11 Використання підпрограм Delphi

 

11кл                  Інформатика                 Урок №

Тема: Використання підпрограм в Delphi

Мета: Формування умінь працювати з підпрограмами

 

1. Перевірка  виконання домашнього завдання

    1. Що таке підпрограма ?

    2. Чим процедура відрізняється від функції ?

    3. Що таке формальні параметри ?

    4. Що таке фактичні параметри ?

2. Розв’язання задач

   Задача1

 Cтворити процедуру , що обчислює площу трикутника за координатами трьох вершин трикутника, а потім використати цю процедуру для обчислення площі трикутника , координати вершин якого вводяться в поля Edit

  

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Label5: TLabel;

    Edit5: TEdit;

    Label6: TLabel;

    Edit6: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure geron(x1,y1,x2,y2,x3,y3:real; var s:real);

var a,b,c,p:real;

begin

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

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

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

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

end;

procedure TForm1.Button1Click(Sender: TObject);

 var x1,y1,x2,y2,x3,y3,s:real;

begin

 x1:=strtofloat(edit1.Text);

 y1:=strtofloat(edit2.Text);

 x2:=strtofloat(edit3.Text);

 y2:=strtofloat(edit4.Text);

 x3:=strtofloat(edit5.Text);

 y3:=strtofloat(edit6.Text);

 geron(x1,y1,x2,y2,x3,y3,s);

 showmessage(floattostr(s));

end;

end.

Задача2

Розв’язати попередню задачу перетворивши процедуру geron в функцію

 

Задача3

На основі попередньої  задачі знайти площу опуклого чотирикутника за координатами його вершин.

 

 

Домашнє завдання 

Використавши підпрограму знайти площу п’ятикутника