Помогите с построением блок-схем
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. |
Часовой пояс GMT +4, время: 15:11. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.