Главная » Файлы » Для учня/студента » Інформатика [ Добавить материал ]
Запис інформації про склад у файлі науковий
14.07.2010, 16:53
В простих програмах робот їздить, опитує обстановку, переміщує вантажі. Однак це не є прикладом ефективного програмування поведінки робота. Справді, щоб знайти і привезти вантаж, зовсім не потрібно ганяти робота по всіх закутках і тупиках складу. Якщо реальний робот - багатотонний автонавантажувач, то на пошук шляху він витратить непомірну кількість палива чи енергії.
Набагато краще, якщо програма на основі інформації про склад сформує для робота послідовність команд, які приводять до поставленої мети найкоротшим шляхом. Прочитати інформації про складу можна із текстового файлу з розширенням .maz.
У файлі міститься 15 рядків по 20 символів в кожному. Перші та останні рядки та стовпчики (по периметру складу) змінювати не можна. При читанні файлу програмою вони ігноруються.
Символи мають такий зміст:
w - в клітинці стіна;
b - в клітинці вантаж;
s - клітинка помічена;
. - клітинка вільна;
цифра 0-3 - в клітинці робот, направлений у відповідному напрямі.

Program LoadMaze;
Type
maze = array[ 0..14, 0..19 ] of char;
Var
test : maze;
i, j : integer;
Procedure load;
Var
fm : text;
Begin
Assign( fm, 'left.maz' );
Reset( fm );
For i := 0 to 14 do
Begin
For j := 0 to 19 do
Read( fm, test[ i ] [ j ] );
ReadLn( fm );
end;
Close( fm );
end;
Begin
load;
..................

Категория: Інформатика | Добавил: Zet
Просмотров: 205 | Загрузок: 0 | Рейтинг: 0.0/0