|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.04.2018, 12:36 | #1 |
Новичок
Джуниор
Регистрация: 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. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |