Помогите пожалуйста решить задачку. Pascal
[Ссылки могут видеть только зарегистрированные и активированные пользователи]******.net/upload/a3470657.jpg
Dinmaite
18.03.2010, 14:14
Если центры окружностей лежат на одной линии то на турбопаскале решение таково:
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
18.03.2010, 15:59
Спасибо, вроде работает, только результат держится доли секунды...
Должен бы держаться до нажатия Enter, в принципе можешь попробовать добавить в конец еще один readln.
Ну или запускать программу из консоли.
evangelion
18.03.2010, 18:15
Поставь вместо Readln() вот это: while not keypressed do