[Помогите!] Задачка на тему программирования.

[BELbIY]

Помогите пожалуйста решить задачку. Pascal
[IMG]http://******.net/upload/a3470657.jpg[/IMG]

[Dinmaite]

Если центры окружностей лежат на одной линии то на турбопаскале решение таково:

program Lab;
uses crt;
var
r1,r2,r3:real;

function square(r1,r2,r3:real):real;
begin
square:=pi*((r1*r1)/2+(r2*r2)-(r3*r3)*2);
end;

begin
clrscr;
write('enter value of first radius ');
readln(r1);
write('enter value of second radius ');
readln(r2);
write('enter value of third radius ');
readln(r3);

writeln('square is ',square(r1,r2,r3):3:5);

readln;
end.

[Dinmaite]

Цитата: Сообщение от BELbIY Спасибо, вроде работает, только результат держится доли секунды...

Должен бы держаться до нажатия Enter, в принципе можешь попробовать добавить в конец еще один readln.
Ну или запускать программу из консоли.

[evangelion]

Поставь вместо Readln() вот это: while not keypressed do