Программа для расчета радиостанций

[Foxtrot_1]

Проверь, может чего добавить надо.

[Foxtrot_1]

Проверь, может чего добавить надо.

[Foxtrot_1]

Переработанный вариант кода, но он считает превышение с ошибкой.
//--------------------------------------------------------------------

uses
crt;
var
x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,z1,z2,z3,z4,z5,z6,z7,z8 :real;
begin
clrscr;
writeln('dalnost deystvia 1,2,3 radiostanciy = 50 kilometrov');
writeln('vvedite koordinaty 1 radiostanciy');
readln(x1,y1);
writeln('vvedite koordinaty 2 radiostanciy');
readln(x2,y2);
writeln('vvedite koordinaty 3 radiostanciy');
readln(x3,y3);
writeln('vvedite koordynaty 1 cheloveka');
readln(x4,y4);
writeln('vvedite koordynaty 2 cheloveka');
readln(x5,y5);
z1:=sqrt(sqr(x4-x1)+sqr(y4-y1));
z2:=sqrt(sqr(x4-x2)+sqr(y4-y2));
z3:=sqrt(sqr(x4-x3)+sqr(y4-y3));
z4:=sqrt(sqr(x5-x1)+sqr(y5-y1));
z5:=sqrt(sqr(x5-x2)+sqr(y5-y2));
z6:=sqrt(sqr(x5-x3)+sqr(y5-y3));
z7:=sqrt(sqr(x5-x4)+sqr(y5-y4));
z8:=sqrt(sqr(x4-x5)+sqr(y4-y5));
writeln('1 chelovek');
if z1<=50 then
begin
writeln('svyas s 1 radiostanciey est');
writeln('rasstoyanie do nee=' ,z1:3:3, 'metrov');
end;
if z1>50 then
begin
writeln('svyasi s 1 radiostanciey net');
writeln('rasstoyanie do nee=',z1:3:3, 'metrov',' ','previshenie na',' ',(z1-50):3:3, 'metrov');
end;
if z2<=50 then
begin
writeln('svyas s 2 radiostanciey est');
writeln('rasstoyanie do nee=',z2:3:3, 'metrov');
end;
if z2>50 then
begin
writeln('svyasi s 2 radiostanciey net');
writeln('rasstoyanie do nee=',z2:3:3, 'metrov',' ','previshenie na',' ',(z2-50):3:3, 'metrov');
end;
if z3<=50 then
begin
writeln('svyas s 3 radiostanciey est');
writeln('rasstoyanie do nee=',z3:3:3, 'metrov');
end;
if z3>50 then
begin
writeln('svyasi s 3 radiostanciey net');
writeln('rasstoyanie do nee=',z3:3:3, 'metrov',' ','previshenie na',' ',(z3-50):3:3, 'metrov');
end;
if z8<=50 then
begin
writeln('svyas s 2 chelovekom est');
writeln('rasstoyanie do nego=',z8:3:3, 'metrov');
end;
if z8>50 then
begin
writeln('svyas s 2 chelovekom net');
writeln('rasstoyanie do nego=',z8:3:3, 'metrov',' ','previshenie na',' ',(z5-50):3:3, 'metrov');
end;
writeln('2 chelovek');
if z1<=50 then
begin
writeln('svyas s 1 radiostanciey est');
writeln('rasstoyanie do nee=',z4:3:3, 'metrov');
end;
if z1>50 then
begin
writeln('svyasi s 1 radiostanciey net');
writeln('rasstoyanie do nee=',z4:3:3, 'metrov',' ','previshenie na',' ',(z1-50):3:3, 'metrov');
end;
if z2<=50 then
begin
writeln('svyas s 2 radiostanciey est');
writeln('rasstoyanie do nee=',z5:3:3, 'metrov');
end;
if z2>50 then
begin
writeln('svyasi s 2 radiostanciey net');
writeln('rasstoyanie do nee=',z5:3:3, 'metrov', ' ','previshenie na',' ',(z2-50):3:3, 'metrov');
end;
if z3<=50 then
begin
writeln('svyas s 3 radiostanciey est');
writeln('rasstoyanie do nee=',z6:3:3, 'metrov');
end;
if z3>50 then
begin
writeln('svyasi s 3 radiostanciey net');
writeln('rasstoyanie do nee=',z6:3:3, 'metrov',' ','previshenie na',' ',(z3-50):3:3, 'metrov');
end;
if z7<=50 then
begin
writeln('svyas s 1 chelovekom est');
writeln('rasstoyanie do nego=',z7:3:3, 'metrov');
end;
if z7>50 then
begin
writeln('svyas s 1 chelovekom net');
writeln('rasstoyanie do nego=',z7:3:3, 'metrov',' ', 'previshenie na',' ',(z4-50):3:3, 'metrov');
end;
writeln('press any key for exit');
readkey;
end.

[Foxtrot_1]

По заданию в него надо добавить вводные данные, координаты есть, надо дальность

[Foxtrot_1]

А самое сложное надо перевести в С!!!

[Foxtrot_1]

Как сделать, чтобы прога выдавала ответ в километрах???

[raxp]

зачем создавать 2 одинаковые темы
http://www.programmersforum.ru/showthread.php?t=64751
?

Как сделать, чтобы прога выдавала ответ в километрах???

/1000