|
program ravn_treugolnic;
uses crt;
var a,b,c:real;{бв®а®_л ваҐгЈ®«м_ЁЄ_}
h,s:real;{C®®вўҐвб⢥__® ўлб®в_ Ё Ї«®й_¤м}
begin
clrscr;{ЋзЁй_Ґ¬ нЄа__}
repeat
Writeln('‚ўҐ¤ЁвҐ бв®а®_л ваҐгЈ®«м_ЁЄ_');
read(a);
read(b);
read(c);
until (a=b) and (b=c);
if (a=b) and (b=c) then begin
writeln('‚ ваҐгЈ®«м_ЁЄҐ ўбҐ бв®а®_л а_ў_л ', a:2,1);
h:=(sqrt(3)/2)*a;
s:=(1/4)*h*a*a;
end;
if (a>s) and (a>h) then begin
writeln('бв®а®__ а_ў__ ', a);
if s>h then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('ўлб®в_ а_ў__ ',h); end;
if h>s then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
if (s>a) and (s>h) then begin
writeln('Ї«®й_¤м а_ў__ ', s);
if a>h then begin writeln('бв®а®__ а_ў__ ',a); writeln('ўлб®в_ а_ў__ ',h); end;
if h>a then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
if (h>s) and (h>a) then begin
writeln('ўлб®в_ а_ў__ ', h);
if s>a then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('cв®а®__ а_ў__ ',a); end;
if a>s then begin writeln('бв®а®__ а_ў__ ',a); writeln('Ї«®й_¤м а_ў__ ',s); end;
end;
end.
|