Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Практична робота №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.
Результат:
Висновок: На цій практичній роботі я вдосконалив свої знання по лінійних алгоритмах з програмування, а також пригадав різні математичні формули, які використовуються для розвязання задач.