|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.06.2009, 17:50 | #1 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
День добрый. Помогите написать программу для учета 3х радиостанций и человека стоящего в центре. На С. На рисунке 1,2 и 3 радиостанции, 4 человек.
С заданными координатами, координаты Мурманской области. Спасибо кто поможет!!!
Всегда бывает лучше, чем ты хочешь!!!
Последний раз редактировалось Stilet; 15.06.2009 в 10:12. |
14.06.2009, 17:58 | #2 |
Заблокирован
Старожил
Регистрация: 20.07.2008
Сообщений: 4,032
|
Что конкретно Вам надо? Если что- стучите в асю.
На С++ не пойдет? Последний раз редактировалось Levsha100; 14.06.2009 в 18:07. |
15.06.2009, 23:32 | #3 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
На паскале надо
Всегда бывает лучше, чем ты хочешь!!!
|
19.06.2009, 20:15 | #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 секунд Кто сможет надо подредактировать код с вышеперечисленными условиями
Всегда бывает лучше, чем ты хочешь!!!
|
19.06.2009, 23:43 | #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. |
20.06.2009, 00:36 | #6 |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 226
|
Код:
следи за собой. Будь осторожен.
Не забывай свой первый "hello world". |
20.06.2009, 01:00 | #7 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
Ну ты даешь, спасибочки большущее!!!
Всегда бывает лучше, чем ты хочешь!!!
|
20.06.2009, 01:32 | #8 |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 226
|
ну дык! Помню как и сам на первом курсе с паскалем носился . Удачи.
следи за собой. Будь осторожен.
Не забывай свой первый "hello world". |
20.06.2009, 02:11 | #9 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 67
|
По условию надо было добавить второго человека
//------------------------------------------------ Код:
Всегда бывает лучше, чем ты хочешь!!!
Последний раз редактировалось Foxtrot_1; 21.06.2009 в 00:10. |
20.06.2009, 02:12 | #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 |