1 program radeus;
procedure Rv(a,b,c:real;var r:real);
var p:real;
begin
p:=(a+b+c)/2;
r:=sqrt((p-a)*(p-b)*(p-c)/p);
end;
procedure Ro(a,b,c:real;var r:real);
var p:real;
begin
p:=(a+b+c)/2;
r:=a*b*c/(4*sqrt(p*(p-a)*(p-b)*(p-c)));
end;
var a,b,c,r1,r2:real;
begin
repeat
writeln('Ââåäèòå ñòîðîíû òðåóãîëüíèêà');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('Ýòî íå òðåóãîëüíèê, ïîâòîðèòå ââîä');
until (a<b+c)and(b<a+c)and(c<a+b);
Rv(a,b,c,r1);
writeln('Ðàäèóñ âïèñàííîé îêðóæíîñòè=',r1:0:2);
Ro(a,b,c,r2);
writeln('Ðàäèóñ îïèñàííîé îêðóæíîñòè=',r2:0:2);
readln
end.
2
program S&H;
Var a, b, c, ha, hb, hc: real;
Function H_TR(a, b, c: real): real;
Var p, s: real;
Begin
If (a<0) or (b<0) or (c<0) Then
begin
Writeln('Ñòîðîíû òðåóãîëüíèêà >0 ?');
readln;
Halt
end;
If (a>(b+c)) or (b>(a+c)) or (c>(a+b)) Then
begin
Writeln('a<(b+c), b<(a+c), c<(a+b) ?');
readln;
Halt
end;
p:= (a+b+c)/2;
s:= Sqrt(p*(p-a)*(p-b)*(p-c));
H_TR:= 2*s/a;
End;
Begin
Writeln('Ââåäèòå çíà÷åíèÿ ñòîðîí òðåóãîëüíèêà a,b,c');
Readln(a,b,c);
ha:= H_TR(a, b, c);
hb:= H_TR(b, a, c);
hc:= H_TR(c, b, a);
Writeln('Âûñîòû òðåóãîëüíèêà:');
Writeln('a=',ha:-10:4, 'b=',hb:-10:4, 'c=',hc:-10:4);
Readln
End.
3
program min;
function MinInt(a,b:Integer):Integer;
begin
if a<b then MinInt:=a else MinInt:=b;
end;
var x,y,z,t:Integer;
begin
writeln('x= '); readln(x);
writeln('y= '); readln(y);
writeln('z= '); readln(z);
writeln('t= '); readln(t);
writeln('min=', MinInt(MinInt(x, y), MinInt(z, t)));
end.