Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2018, 12:36   #1
T0D
Новичок
Джуниор
 
Регистрация: 01.04.2018
Сообщений: 1
По умолчанию PascalABC

Как написать эту программу?
Автоматизация выбора оптимального пути передвижения транспорта из произвольного офиса компании в три подразделения, с возвратом в офис.

Это то, что у меня получилось, но там надо найти оптимальный путь

uses crt;
var R1,i,R2,R3,R4,R5,a:integer;
begin
randomize;
R1:=random (5)+1;

for i:=1 to 5 do
begin
write('Вы находитесь в офисе №',R1);

R2:=random (26)+90;
write(' ',R2);
R4:=random (20)+83;
write(' ',R4);
R5:=random (35)+96;
write(' ',R5);


writeln(' вы вернулись в офис№',R1);
end;
end.
T0D вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PascalABC Васи Помощь студентам 1 10.02.2018 14:40
Преобразование кода из C в PascalABC.NET (символы и строки) - PascalABC.NET ParkerVans Помощь студентам 5 05.12.2017 10:09
PascalABC Юся=) Помощь студентам 0 28.12.2011 00:42
PascalABC Юся=) Помощь студентам 8 23.12.2011 00:11
PascalABC Юся=) Помощь студентам 1 22.12.2011 19:09