Расчет расстояния до радиостанций

@Foxtrot_1 · Регистрация: 14.06.2009

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

Очень нужна прога на Pascal для расчета 2-х(3-х) радиостанций и человека в центре №4.

@lexus_ilia · 16.06.2009, 00:46

Чем менее пояснительно Вы будете писать Ваши задания, тем меньше Вам будут помогать.

@Foxtrot_1 · 16.06.2009, 23:29 **[ТС]**

Здравствуйте. Есть две(три) радиостанции с заданными координатами №№1,2,3( координаты свободные) и дальностью действия 30 км. В центре стоит человек №4. Определить с какого расстояния и с какой ближайшей станцией свяжется №4. Прохождение радиоволн, помехи и типа того не учитывается!!!

@Foxtrot_1 · 16.06.2009, 23:30 **[ТС]**

Прога нужна на Pascal

Добавлено через 40 секунд
Всем кто посоветует хоть что нибудь, спасибо!!!

@John_Pa9JIbHuK · 16.06.2009, 23:42

Ну пускай человек стоит в начале координат (0,0), задай координаты для каждой радиостанции read(x,y) и посчитай расстояние от человека: кажется так: sqrt(x^2+y^2); С ближайшей он и свяжется.

@Foxtrot_1 · 18.06.2009, 00:16 **[ТС]**

ОГРОМНОЕ СПАСИБО!!! Попробую.

Добавлено через 1 минуту 22 секунды
А набросочку кода можно, а то я тока учусь. блок схемы рисую.

Добавлено через 56 секунд
В принципе немного то и надо, как я понял.

@John_Pa9JIbHuK · 18.06.2009, 00:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
x,y,x1,y1,x2,y2,x3,y3:integer;
r1,r2,r3:real;
begin
x:=0;y:=0;
writeln('Ââåäèòå êîîðäèíàòû 1-é ðàä-èè');
readln(x1,y1);
writeln('Ââåäèòå êîîðäèíàòû 2-é ðàä-èè');
readln(x2,y2);
writeln('Ââåäèòå êîîðäèíàòû 3-é ðàä-èè');
readln(x3,y3);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
r3:=sqrt(sqr(x3)+sqr(y3));
if (r1<r2) and (r1<r3) then
begin
writeln('×åëîâåê ñâ-ñÿ ñ 1-îé ðàä-åé');
writeln('Ðàññòîÿíèå äî íåå = ',r1:3:3);
end;
if (r2<r1) and (r2<r3) then
begin
writeln('×åëîâåê ñâ-ñÿ ñ 2-îé ðàä-åé');
writeln('Ðàññòîÿíèå äî íåå = ',r2:3:3);
end;
if (r3<r2) and (r3<r1) then
begin
writeln('×åëîâåê ñâ-ñÿ ñ 3-îé ðàä-åé');
writeln('Ðàññòîÿíèå äî íåå = ',r3:3:3);
end;
end.

@Foxtrot_1 · 18.06.2009, 20:03 **[ТС]**

Есть все таки ДОБРЫЕ ЛЮДИ на свете!!! ОГРОМНЕЙШЕЕ СПАСИБО!!!!!

@Foxtrot_1 · 20.06.2009, 02:18 **[ТС]**

1.Написать программу для учета радиостанций.
2.Параметры станций: координаты,дальность действия (50км).
3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним станции.
//---------------------------------------------------------------------------------

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses
crt;
var
x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer;
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 секунд
Кто сможет надо подредактировать код с вышеперечисленными условиями

Добавлено через 6 часов 2 минуты 56 секунд
Переработанный код, проверьте!!!
//------------------------------------

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
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 · 20.06.2009, 10:22 **[ТС]**

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
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 · 20.06.2009, 15:05 **[ТС]**

По заданию еще надо вводить данные по дальности от 0 до 50 км

@Puporev · 20.06.2009, 15:27

Тихо сам с собою я веду беседу. Чем больше Вы выкладываете своего кода и уточнений, тем меньше у людей желания смотреть эту тему. Слежу за ней, но так и не увидел четко изложенного ТЗ. Вы то одно желаете, то другое. Мне кажется что Вы в принципе неверно сформулировали для себя задачу, клюнули на первую же не совсем верную наводку и продолжаете развивать это порочное напрвление. Я бы посоветовал посмотреть в сторону типа record и попробовать составить программу в общем виде, ведь ничего же сложного нет, просто определяется по координатам расстояние и сравнивается с параметрами станций.

@Foxtrot_1 · 20.06.2009, 15:54 **[ТС]**

Здравствуйте, я только учусь поэтому и блуждаю в облаках. Задание вот такое:
1.Написать программу для учета радиостанций.
2.Параметры станций (вводные данные): координаты,дальность действия (от 0 до 50 км).
3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним станции.
//--------------------------------------------------------------------------------
Как сделать, чтобы прога выдавала ответ в километрах???

Добавлено через 1 минуту 48 секунд
Половина сообщений в этой теме конечно же пустые (методом тыка), вот крайнее ТЗ

@Puporev · 20.06.2009, 16:00

У абонентов, как понимаю, есть средства связи также с определенным радиусом действия. И нужно найти ближайшие станции для каждого из 2х абонентов, а также возможность связаться им используя эти станции, или у них тоже типа раций, и они могут связаться напрямую. Вы опишите подробно задачу. В программировании нельзя пользоваться данными типа одна баба сказала.

@VorteX · 20.06.2009, 16:10

Я так почитал и хочу посоветовать взять книгу, получше почитать про паскаль, а потом самому решить задачу, лишний раз напряч голову можно, а не сразу на форум чтобы все решили. Это мое мнение.

@Foxtrot_1 · 20.06.2009, 16:27 **[ТС]**

Читаю книгу, пока не разобрался. Вы правы, у 2-х абонентов тоже надо вводить дальность действия портативных радиостанций. Спасибо за подсказку.
Итого ТЗ:
1.Написать программу для учета радиостанций.
2.Ввести параметры:
а) координаты,дальность действия стационарных радиостанций (от 0 до 50 км);
б) координаты 2-х людей,дальность действия их переносных радиостанций (от 0 до 50 км);
3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним
станции.

@Puporev · 20.06.2009, 17:52

3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним
станции.

Возможность связи между собой, не используя промежуточные станции?

Добавлено через 1 минуту 19 секунд
И еще, у портативных раций такая же дальность, что и устационарных? По-моему в жизни портативные действуют напрямую порядка 3-10 км.

Добавлено через 17 минут 54 секунды
Вот написал. Размеры, дальности, поясняющие надписи переделайте как Вам лучше.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses crt;
type
Point=record{тип точка}
      x,y:real;{координаты}
      end;
Stanc=record{тип станция}
      koor:Point;{координаты}
      daln:byte;{дальность}
      end;
function Rasst(a,b:Point):real;{функция определения расстояния}
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var m:array[1..4] of Stanc;{массив станций, размер любой}
    ab1,ab2:Stanc;{абоненты, или как их там}
    i,k:byte;{счетчик чикла и номер ближайшей станции}
    min:real;{переменная для нахождения наименьшего расстояния}
begin
clrscr;
writeln('Введите данные по станциям:');
for i:=1 to 4 do
 begin
  writeln('Станция ',i);
  write(' Координата Х=');readln(m[i].koor.x);
  write(' Координата Y=');readln(m[i].koor.y);
  repeat
  write(' Дальность=');readln(m[i].daln);
  until m[i].daln in [1..50];
 end;
writeln('Введите данные по абонентам:');
writeln(' Абонент №1:');
write('  Координата Х=');readln(ab1.koor.x);
write('  Координата Y=');readln(ab1.koor.y);
repeat
write('  Дальность=');readln(ab1.daln);
until ab1.daln in [1..50];
writeln(' Абонент №2:');
write('  Координата Х=');readln(ab2.koor.x);
write('  Координата Y=');readln(ab2.koor.y);
repeat
write('  Дальность=');readln(ab2.daln);
until ab2.daln in [1..50];
if (Rasst(ab1.koor,ab2.koor)<=ab1.daln)and(Rasst(ab1.koor,ab2.koor)<=ab2.daln)
then writeln('Связь между абонентами возможна!')
else writeln('Связь между абонентами не возможна!');
min:=50;k:=1;
for i:=1 to 4 do
if Rasst(ab1.koor,m[i].koor)<min then
 begin
  min:=Rasst(ab1.koor,m[i].koor);
  k:=i;
 end;
writeln('Ближайшая к абоненту №1 станция №',k);
min:=50;k:=1;
for i:=1 to 4 do
if Rasst(ab2.koor,m[i].koor)<min then
 begin
  min:=Rasst(ab2.koor,m[i].koor);
  k:=i;
 end;
writeln('Ближайшая к абоненту №2 станция №',k);
readln
end.

@Foxtrot_1 · 20.06.2009, 21:34 **[ТС]**

СПАСИБО!!! Буду тестить.

Добавлено через 1 час 5 минут 13 секунд
Отлично!!! Как раз то, что надо. Вот на С бы её перегнать ещё.

Добавлено через 2 часа 29 минут 35 секунд
А можно этот клёвый код перевести на С???

@Puporev · 20.06.2009, 21:43

Наверное можно, только не перевести, а написать на Си. Не понимаю зачем Вы запостили это в Паскале, если нужно в Си?

@Foxtrot_1 · 20.06.2009, 21:52 **[ТС]**

Вы понимаете, я в Pascal учусь, а требуют в С. Там для меня еще пока темный лес.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85

	Расчет расстояния до радиостанций 15.06.2009, 23:39. Показов 2246. Ответов 21 Метки нет (Все метки) Очень нужна прога на Pascal для расчета 2-х(3-х) радиостанций и человека в центре №4. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	16.06.2009, 00:46
	Чем менее пояснительно Вы будете писать Ваши задания, тем меньше Вам будут помогать. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	16.06.2009, 23:29 [ТС]
	Здравствуйте. Есть две(три) радиостанции с заданными координатами №№1,2,3( координаты свободные) и дальностью действия 30 км. В центре стоит человек №4. Определить с какого расстояния и с какой ближайшей станцией свяжется №4. Прохождение радиоволн, помехи и типа того не учитывается!!! Миниатюры 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	16.06.2009, 23:30 [ТС]
	Прога нужна на Pascal Добавлено через 40 секунд Всем кто посоветует хоть что нибудь, спасибо!!! 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	16.06.2009, 23:42
	Ну пускай человек стоит в начале координат (0,0), задай координаты для каждой радиостанции read(x,y) и посчитай расстояние от человека: кажется так: sqrt(x^2+y^2); С ближайшей он и свяжется. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	18.06.2009, 00:16 [ТС]
	ОГРОМНОЕ СПАСИБО!!! Попробую. Добавлено через 1 минуту 22 секунды А набросочку кода можно, а то я тока учусь. блок схемы рисую. Добавлено через 56 секунд В принципе немного то и надо, как я понял. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	18.06.2009, 20:03 [ТС]
	Есть все таки ДОБРЫЕ ЛЮДИ на свете!!! ОГРОМНЕЙШЕЕ СПАСИБО!!!!! 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	20.06.2009, 15:05 [ТС]
	По заданию еще надо вводить данные по дальности от 0 до 50 км 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.06.2009, 15:27
	Тихо сам с собою я веду беседу. Чем больше Вы выкладываете своего кода и уточнений, тем меньше у людей желания смотреть эту тему. Слежу за ней, но так и не увидел четко изложенного ТЗ. Вы то одно желаете, то другое. Мне кажется что Вы в принципе неверно сформулировали для себя задачу, клюнули на первую же не совсем верную наводку и продолжаете развивать это порочное напрвление. Я бы посоветовал посмотреть в сторону типа record и попробовать составить программу в общем виде, ведь ничего же сложного нет, просто определяется по координатам расстояние и сравнивается с параметрами станций. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	20.06.2009, 15:54 [ТС]
	Здравствуйте, я только учусь поэтому и блуждаю в облаках. Задание вот такое: 1.Написать программу для учета радиостанций. 2.Параметры станций (вводные данные): координаты,дальность действия (от 0 до 50 км). 3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним станции. //-------------------------------------------------------------------------------- Как сделать, чтобы прога выдавала ответ в километрах??? Добавлено через 1 минуту 48 секунд Половина сообщений в этой теме конечно же пустые (методом тыка), вот крайнее ТЗ 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.06.2009, 16:00
	У абонентов, как понимаю, есть средства связи также с определенным радиусом действия. И нужно найти ближайшие станции для каждого из 2х абонентов, а также возможность связаться им используя эти станции, или у них тоже типа раций, и они могут связаться напрямую. Вы опишите подробно задачу. В программировании нельзя пользоваться данными типа одна баба сказала. 0

@VorteX 172 / 96 / 12 Регистрация: 29.05.2009 Сообщений: 341
	20.06.2009, 16:10
	Я так почитал и хочу посоветовать взять книгу, получше почитать про паскаль, а потом самому решить задачу, лишний раз напряч голову можно, а не сразу на форум чтобы все решили. Это мое мнение. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	20.06.2009, 16:27 [ТС]
	Читаю книгу, пока не разобрался. Вы правы, у 2-х абонентов тоже надо вводить дальность действия портативных радиостанций. Спасибо за подсказку. Итого ТЗ: 1.Написать программу для учета радиостанций. 2.Ввести параметры: а) координаты,дальность действия стационарных радиостанций (от 0 до 50 км); б) координаты 2-х людей,дальность действия их переносных радиостанций (от 0 до 50 км); 3.Установить возможность связи двух абонентов с заданными координатами, а также ближайшие к ним станции. 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	20.06.2009, 21:34 [ТС]
	СПАСИБО!!! Буду тестить. Добавлено через 1 час 5 минут 13 секунд Отлично!!! Как раз то, что надо. Вот на С бы её перегнать ещё. Добавлено через 2 часа 29 минут 35 секунд А можно этот клёвый код перевести на С??? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.06.2009, 21:43
	Наверное можно, только не перевести, а написать на Си. Не понимаю зачем Вы запостили это в Паскале, если нужно в Си? 0

@Foxtrot_1 -10 / 0 / 0 Регистрация: 14.06.2009 Сообщений: 85
	20.06.2009, 21:52 [ТС]
	Вы понимаете, я в Pascal учусь, а требуют в С. Там для меня еще пока темный лес. 0