![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
День добрый. Помогите написать программу для учета 3х радиостанций и человека стоящего в центре. На С. На рисунке 1,2 и 3 радиостанции, 4 человек.
С заданными координатами, координаты Мурманской области. Спасибо кто поможет!!!
Всегда бывает лучше, чем ты хочешь!!!
Последний раз редактировалось Stilet; 15.06.2009 в 10:12. |
![]() |
![]() |
![]() |
#2 |
Заблокирован
Старожил
Регистрация: 20.07.2008
Сообщений: 4,032
|
![]()
Что конкретно Вам надо? Если что- стучите в асю.
На С++ не пойдет? Последний раз редактировалось Levsha100; 14.06.2009 в 18:07. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
На паскале надо
Всегда бывает лучше, чем ты хочешь!!!
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
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 секунд Кто сможет надо подредактировать код с вышеперечисленными условиями
Всегда бывает лучше, чем ты хочешь!!!
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 226
|
![]()
код работает только не правильно. и в "i nteger" пробел лишний
![]() я так понимаю что рисунки надо бы переделать. основное: 1. Само собой между станциями связь есть однозначно? (связист я немного) или не факт? () 2. Задача сводится к расчету расстояния абонента до ближайшей станции и все? если у станции и абонентского устройства радиус действия по 50 км то расстояние уверенного приема не должно превышать 100 км? "r1:=sqrt(sqr(x1)+sqr(y1));" -это как? явный подвох ![]() черти-че и сбоку бантик. ушел качать паскаль ![]()
следи за собой. Будь осторожен.
Не забывай свой первый "hello world". Последний раз редактировалось bush007; 19.06.2009 в 23:46. |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 226
|
![]() Код:
следи за собой. Будь осторожен.
Не забывай свой первый "hello world". |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
Ну ты даешь, спасибочки большущее!!!
Всегда бывает лучше, чем ты хочешь!!!
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 226
|
![]()
ну дык! Помню как и сам на первом курсе с паскалем носился
![]() ![]()
следи за собой. Будь осторожен.
Не забывай свой первый "hello world". |
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
По условию надо было добавить второго человека
//------------------------------------------------ Код:
Всегда бывает лучше, чем ты хочешь!!!
Последний раз редактировалось Foxtrot_1; 21.06.2009 в 00:10. |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
![]()
Без тебя бы я ни хрена бы не сделал!!!!
![]()
Всегда бывает лучше, чем ты хочешь!!!
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа для создания меню для сайта | iukash | Софт | 3 | 06.06.2009 13:10 |
сделать формулы для расчета стекла | kbizz | Microsoft Office Excel | 1 | 26.10.2008 20:52 |
Разработать в среде Borland Delphi приложение для расчета стоимости покупок. | patron | Помощь студентам | 3 | 30.03.2008 15:12 |
Нужна программа расчета расстояний | Евгений Мариуполь | Фриланс | 2 | 21.01.2007 21:23 |