0 дауыс
1.8k көрілді
1.Үшбұрыштың ауданы мен периметрін әртүрлі нұсқада берілген деректерге байланысты есептейтін программа құр.?
2.Procedure Pr3(x,y:integer, y1,y2,y3:real): процедурасы қанша мән береді және  олардың типтерін атаңыз?
3.Машиналардың номері, фирма, жылы, қала өрісінен тұратын B жазбасын сипаттаңыз?
4.А массиві 10 элементтен тұрады. 3-ке еселі элементтерін баспаға шығарыңыз?

1 жауап

0 дауыс

Үшбұрыш 

uses crt;
function St(a,ua,ub:real):real;
begin
st:=a*sin(ub)/sin(ua)
end;
function Ug(a,b:real):real;
begin
Ug:=180-a-b
end;
function Pr(a,b,c:real):real;
begin
Pr:=a+b+c
end;
function Pl(a,b,c:real):real;
var p:real;
begin
p:=0.5*Pr(a,b,c);
Pl:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
var ac,ab,bc,a,b,c:real;
begin
clrscr;
repeat
write('Введите сторону AC=');
readln(ac);
until ac>0;
repeat
writeln('Введите углы ACB и ABC в градусах');
readln(b,c);
until(b>0)and(c>0)and(b+c<180);
a:=Ug(b,c);
writeln('Угол BAC=',a:0:1,#248);
ab:=st(ac,c,b);
writeln('Сторона АВ=',ab:0:1);
bc:=st(ac,c,a);
writeln('Сторона ВC=',bc:0:1);
writeln('Периметр=',Pr(ab,bc,ac):0:1);
writeln('Площадь=',Pl(ab,bc,ac):0:1);
readln
end.
...