Тема: Програмування лінійних алгоритмів ;

Практична робота №8

Тема: Програмування лінійних алгоритмів;

Мета роботи: Набути і вдосконалити знання з лінійних алгоритмів;

Порядок виконання роботи:

Варіант-11

Задача 1:

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

procedure TForm1.Button1Click(Sender: TObject);

var a,b,h,c,d,e,x:Real;

cod:integer;

str1:string;

begin

val(Edit1.text,a,cod);

val(edit2.text,b,cod);

val(edit3.text,h,cod);

val(edit4.text,c,cod);

val(edit5.text,d,cod);

val(edit6.text,e,cod);

x:=a*c+b*d+h*e;

str(x:8:2,str1);

Edit10.text:=str1;

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b,h,f,k,l,p,o,n:Real;

cod:integer;

str2,str3,str4:string;

begin

val(Edit1.text,a,cod);

val(Edit4.text,f,cod);

val(Edit2.text,b,cod);

val(Edit5.text,k,cod);

val(Edit3.text,h,cod);

val(Edit6.Text,l,cod);

p:=a*f;

str(p:8:2,str2);

edit7.text:=str2;

o:=b*k;

str(o:8:2,str3);

edit8.text:=str3;

n:=h*l;

str(n:8:2,str4);

edit9.text:=str4;

end;

end.

Результат:

Задача 2:

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

procedure TForm1.Button1Click(Sender: TObject);

Var x1,x2,x3,x4,y1,y2,y3,y4,m,mc,r,a,b,c,s,x,y,p:real;

cod1,cod2,cod3,cod4,cod5,cod6:integer;

str1:string;

begin

label1.Caption:='';

edit7.Text:='';

edit8.Text:='';

Val(edit1.Text,x1,cod1);

Val(edit2.Text,y1,cod2);

Val(edit3.Text,x2,cod3);

Val(edit4.Text,y2,cod4);

Val(edit5.Text,x3,cod5);

Val(edit6.Text,y3,cod6);

if (cod1+cod2+cod3+cod4+cod5+cod6)=0 then

begin

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

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

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

if (a+b>c) or (b+c>a) or (a+c>b) then

begin

x:=(x1+x2)/2;

y:=(y1+y2)/2;

mc:=sqrt(sqr(x-x3)+sqr(y-y3));

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

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

r:=s/p;

str(mc:6:2,str1);

edit7.Text:=str1;

str(r:6:2,str1);

edit8.Text:=str1;

end

else label1.Caption:=’Такого трикутника не існує'

end

else label1.Caption:='Ви ввели букву, введіть будь ласка ЧИСЛО'

end;

end.

Результат:

Висновок: На цій практичній роботі я вдосконалив свої знання по лінійних алгоритмах з програмування, а також пригадав різні математичні формули, які використовуються для розв’язання задач.

Дата добавления: 2015-09-29