|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
10.12.2013, 22:18 | #1 (permalink) |
Новичок
Регистрация: 10.12.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с построением блок-схем
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. |
10.12.2013, 22:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По этим ссылкам содержаться темы, которые по содержанию схожи с вашей Программа для схем Возникли трудности с построением графика в Excel Построение блок схем по коду Pascal Оформление электрических схем Помогите тупому конструктору электронных схем |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|