Плиз очень срочно нужно решение

Кошшшка

Дата: Четверг, 09.10.2008, 00:21 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

ПОмогите пожалуйста решить задачу, совсем паскаль не знаю, нужно очень срочно

Составьте алгоритм и программу для вычисления длин радиусов вписанной в треугольник и описанной возле треугольника окружностей. Длины сторон треугольника равны a = 13 см., b=12 см., c = 17 см.
Формулы:
R=abc/4S
r=S/P
p=(a+b+c)/2
S=корень из p*(p-a)(p-b)(p-c)

пс: да, я в этом полный ноль))))

snaper1993

Дата: Пятница, 17.10.2008, 02:32 | Сообщение # 2

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

var a,b,c,R1,r2,p,S:longint;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
R1:=(a*b*c)/(4*S);
r2:=(2*S)/(a+b+c);
writeln('R1=',R1:0:2);
writeln('r2=',r2:0:2);
end.

P.s.:Учить Паскаль нужно!! smile

Добавлено (16.10.2008, 19:32)
---------------------------------------------
var a,b,c,R1,r2,p,S:longint;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
read©;
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
R1:=(a*b*c)/(4*S);
r2:=(2*S)/(a+b+c);
writeln('R1=',R1:0:2);
writeln('r2=',r2:0:2);
end.

1 решение не правильно 2 правильно! Забил одну строчку дописать!! smile

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

		Пятница, 10.01.2025
	Pascal 4 All