Правильно ли написал программу?

@maisdanel · Регистрация: 01.02.2010

Author24 — интернет-сервис помощи студентам

Всем привет.Вот решиль задачу но не знаю правильно.Зарнее спасибо.Вот задачка.

Даны четыре точки А(x1,y1), В(x2,y2), С(x3,y3), D(x4,y4) и логическая переменная Z. Присвоить Z значение TRUE,
если площадь круга с радиусом AB больше площади круга с радиусом CD, и FALSE-в противном случае. Все геометрические вычисления, т.е.
нахождения радиусов и площадей кругов, оформить отдельной подпрограммой.

Pascal

Var
x1,y1,x2,y2,x3,y3,x4,y4:integer;
z:boolean;
s1,s2:real;
begin
read(x1,x2,x3,x4,y1,y2,y3,y4);
s1:=(3.14*((x2-x1)+(y2-y1)))/4;
s2:=(3.14*((x4-x3)+(y4-y3)))/4;
write('S1-',s1);
write('S2-',s2);
if s1>s2 then
z:=true else z:=false;
writeln('Z=',z);
end.

С теорема пифагора сделал.

@Puporev · 15.05.2011, 10:19

Не правильно...

Pascal

uses crt;
Var x1,y1,x2,y2,x3,y3,x4,y4:integer;
    z:boolean;
    s1,s2:real;
begin
read(x1,y1,x2,y2,x3,y3,x4); //вводить нужно по 2 координаты каждой точки
s1:=pi*(sqr(x2-x1)+sqr(y2-y1));//R^2=dx^2+dy^2
s2:=pi*(sqr(x4-x3)+sqr(y4-y3));
writeln('S1=',s1:0:2);
writeln('S2=',s2:0:2);
if s1>s2 then
z:=true else z:=false;
write('Z=',z);
end.

@maisdanel · 15.05.2011, 18:23 **[ТС]**

Сообщение от Puporev

s1:=pi*(sqr(x2-x1)+sqr(y2-y1));//R^2=dx^2+dy^2

Вот тут не понель как надо сотсавить S зарнее спаасбио.

@Puporev · 15.05.2011, 19:54

Сообщение от maisdanel

С теорема пифагора сделал.

Так и я тоже....

@maisdanel · 15.05.2011, 20:04 **[ТС]**

спасибо за помшь

@maisdanel 8 / 8 / 3 Регистрация: 01.02.2010 Сообщений: 154
	15.05.2011, 18:23 [ТС]	3
	Сообщение от Puporev s1:=pi*(sqr(x2-x1)+sqr(y2-y1));//R^2=dx^2+dy^2 Вот тут не понель как надо сотсавить S зарнее спаасбио. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.05.2011, 19:54	4
	Сообщение от maisdanel С теорема пифагора сделал. Так и я тоже.... 1

@maisdanel 8 / 8 / 3 Регистрация: 01.02.2010 Сообщений: 154
	15.05.2011, 20:04 [ТС]	5
	спасибо за помшь 0