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

[Foxtrot_1]

День добрый. Помогите написать программу для учета 3х радиостанций и человека стоящего в центре. На С. На рисунке 1,2 и 3 радиостанции, 4 человек.

С заданными координатами, координаты Мурманской области. Спасибо кто поможет!!!

[Levsha100]

Что конкретно Вам надо? Если что- стучите в асю.
На С++ не пойдет?

[Foxtrot_1]

На паскале надо

[Foxtrot_1]

1.Написать программу для учета радиостанций.
2.Параметры станций: координаты,дальность действия (50км).
3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним станции.
//---------------------------------------------------------------------------------
uses
crt;
var
x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:i nteger;
r1,r2,r3,r4,r5:real;
begin
clrscr;
x:=0;
y:=0;
writeln('dalnost deystvia 1,2,3 radiostanciy = 50 km');
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);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
r3:=sqrt(sqr(x3)+sqr(y3));
r4:=sqrt(sqr(x4)+sqr(y4));
r5:=sqrt(sqr(x5)+sqr(y5));
if (r1<r2) and (r1<r3) then
begin
writeln('svyas s 1 radiostanciey');
writeln('rasstoyanie do nee=',r1:3:3, 'km');
end;
if (r2<r1) and (r2<r3) then
begin
writeln('svyaz s 2 radiostanciey');
writeln('rasstoyanie do nee=',r2:3:3, 'km');
end;
if (r3<r2) and (r3<r1) then
begin
writeln('svyaz s 3 radiostanciey');
writeln('rasstoyanie do nee=',r3:3:3, 'km');
end;
readkey;
end.

Добавлено через 1 минуту 28 секунд
Кто сможет надо подредактировать код с вышеперечисленными условиями

[bush007]

код работает только не правильно. и в "i nteger" пробел лишний
я так понимаю что рисунки надо бы переделать.
основное:
1. Само собой между станциями связь есть однозначно? (связист я немного) или не факт? ()
2. Задача сводится к расчету расстояния абонента до ближайшей станции и все? если у станции и абонентского устройства радиус действия по 50 км то расстояние уверенного приема не должно превышать 100 км?
"r1:=sqrt(sqr(x1)+sqr(y1));" -это как? явный подвох
черти-че и сбоку бантик. ушел качать паскаль

[bush007]

uses
crt;
var
x1,y1,x2,y2,x3,y3,x4,y4,z1,z2,z3 :real;
begin
clrscr;
writeln('dalnost deystvia 1,2,3 radiostanciy = 50 km');
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  cheloveka');
readln(x4,y4);
z1:=sqrt(sqr(x4-x1)+sqr(y4-y1));
z2:=sqrt(sqr(x4-x2)+sqr(y4-y2));
z3:=sqrt(sqr(x4-x3)+sqr(y4-y3));

if z1<=50 then
begin
writeln('svyas s 1 radiostanciey est');
writeln('rasstoyanie do nee=',z1:3:3, 'km');
end;
if z1>50 then
begin
writeln('svyasi s 1 radiostanciey net');
writeln('rasstoyanie do nee=',z1:3:3, 'km',' ', 'previshenie na',' ',(z1-50):3:3);
end;
if z2<=50 then
begin
writeln('svyas s 2 radiostanciey est');
writeln('rasstoyanie do nee=',z2:3:3, 'km');
end;
if z2>50 then
begin
writeln('svyasi s 2 radiostanciey net');
writeln('rasstoyanie do nee=',z2:3:3, 'km', ' ', 'previshenie na',' ',(z2-50):3:3);
end;
if z3<=50 then
begin
writeln('svyas s 3 radiostanciey est');
writeln('rasstoyanie do nee=',z3:3:3, 'km');
end;
if z3>50 then
begin
writeln('svyasi s 3 radiostanciey net');
writeln('rasstoyanie do nee=',z3:3:3, 'km' ,' ','previshenie na',' ',(z3-50):3:3);
end;
writeln('press any key for exit');
readkey;
end.

пробуй

[Foxtrot_1]

Ну ты даешь, спасибочки большущее!!!

[bush007]

ну дык! Помню как и сам на первом курсе с паскалем носился . Удачи.

[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 km');
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, 'km');
end;
if z1>50 then
begin
writeln('svyasi s 1 radiostanciey net');
writeln('rasstoyanie do nee=',z1:3:3, 'km',' ', 'previshenie na',' ',(z1-50):3:3);
end;
if z2<=50 then
begin
writeln('svyas s 2 radiostanciey est');
writeln('rasstoyanie do nee=',z2:3:3, 'km');
end;
if z2>50 then
begin
writeln('svyasi s 2 radiostanciey net');
writeln('rasstoyanie do nee=',z2:3:3, 'km', ' ', 'previshenie na',' ',(z2-50):3:3);
end;
if z3<=50 then
begin
writeln('svyas s 3 radiostanciey est');
writeln('rasstoyanie do nee=',z3:3:3, 'km');
end;
if z3>50 then
begin
writeln('svyasi s 3 radiostanciey net');
writeln('rasstoyanie do nee=',z3:3:3, 'km' ,' ','previshenie na',' ',(z3-50):3:3);
end;
if z1<=50 then
begin
writeln('svyas s 2 chelovekom est');
writeln('rasstoyanie do nego=',z8:3:3, 'km');
end;
if z3>50 then
begin
writeln('svyas s 2 chelovekom net');
writeln('rasstoyanie do nego=',z8:3:3, 'km' ,' ','previshenie na',' ',(z3-50):3:3);
end;
writeln('2 chelovek');
begin
writeln('svyas s 1 radiostanciey est');
writeln('rasstoyanie do nee=',z4:3:3, 'km');
end;
if z1>50 then
begin
writeln('svyasi s 1 radiostanciey net');
writeln('rasstoyanie do nee=',z4:3:3, 'km',' ', 'previshenie na',' ',(z1-50):3:3);
end;
if z2<=50 then
begin
writeln('svyas s 2 radiostanciey est');
writeln('rasstoyanie do nee=',z5:3:3, 'km');
end;
if z2>50 then
begin
writeln('svyasi s 2 radiostanciey net');
writeln('rasstoyanie do nee=',z5:3:3, 'km', ' ', 'previshenie na',' ',(z2-50):3:3);
end;
if z3<=50 then
begin
writeln('svyas s 3 radiostanciey est');
writeln('rasstoyanie do nee=',z6:3:3, 'km');
end;
if z3>50 then
begin
writeln('svyasi s 3 radiostanciey net');
writeln('rasstoyanie do nee=',z6:3:3, 'km' ,' ','previshenie na',' ',(z3-50):3:3);
end;
begin
writeln('svyas s 1 chelovekom est');
writeln('rasstoyanie do nego=',z7:3:3, 'km');
end;
if z2>50 then
begin
writeln('svyas s 1 chelovekom net');
writeln('rasstoyanie do nego=',z7:3:3, 'km', ' ', 'previshenie na',' ',(z2-50):3:3);
end;
if z3<=50 then

writeln('press any key for exit');
readkey;
end.

[Foxtrot_1]

Без тебя бы я ни хрена бы не сделал!!!!