[i] = 15 then
begin
if Lom = 1 then begin Help; break; end; {Перехід в режим довідки}
if Lom = 2 then begin avtor; break; end; {Перехід в режим гри}
if Lom = 3 then begin Game15; break; end; {Перехід в режим гри}
if Lom = 4 then begin result; break; end; {Перехід в режим гри}
end
else Lom: = Lom +1;
end;
end;
until Lom = 5 {До тих пір поки не натиснутий пункт EXIT}
end.
Додаток 2 Результати роботи.
Для демонстрації ии результату роботи програми, візьмемо основний розділ ГРА. p> При запуску програми з'являється табло, заповнене випадковими неповторяющееся цифрами від 1 до 15 і один порожній елемент (Малюнок 8).
В
Рисунок 8 - Основне табло з випадковими числами
Далі користувачеві пропонується зробити хід. До приклади перемістити цифру на порожнє місце. Для цього необхідно натиснути клавішу (вгору) на клавіатурі. В результаті цифра один переміститься вгору, а порожня клітка переміщається на місце одиниці (Малюнок 9). br/>В
Рисунок 9 - Перший хід
Надалі переміщаючи по однієї клітини, за допомогою курсору, розклад буде виконаний. Весь процес до перемоги може зайняти дуже багато ходів, тому перейдемо до передостаннього моменту. p> Наприклад, гравець довго грав і у нього випав наступний розклад (Малюнок 10).
В
Рисунок 10 - черговий хід.
Тепер користувачеві необхідно зробити один, останній хід, а саме перемістити клітку з цифрою 15 на порожній елемент. В результаті розклад буде виконаний (Малюнок 11). p> У разі якщо гравець розклав необхідний розклад за найменшу кількість ходів, ніж гравці, що грали раніше, то користувачеві пропонується ввести ім'я і надалі його ім'я і результати буде відображатися в розділі Результати (Малюнок 11).
В
Малюнок 11 - кінець гри
