Реферат Створення довідника "Парфумерний магазин" за допомогою програми Turbo Pascal

тих пір, поки не натиснутий введення або назад або вихід}

until (Ord (ch) = 13) or (ord (ch) = 8) or (ord (ch) = 68);

vof: = true;

if (ord (ch) <> 68) then vhod; {Не натиснута вихід то вхід в черговий розділ або підрозділ}

end;

{Основна програма}

begin

rozd: = '0 '; {Підрозділ не вибрано, значить виводити головний розділ}

razdel: = 0; {Показує що відкрито розділ, а не підрозділ}

vof: = false; {Мінлива показує що переміщень не було}

repeat

clrscr;

f1: = 11; f2: = 7; f3: = 11; f4: = 7; f8: = 7; pu: = 7; pd: = 7; f10: = 11; {Кольори нижніх кнопок}

Text1: = 'Рухайтеся курсором';

Text2: = 'до потрібного розділу'; {Підказка}

Text3: = 'і натисніть ВВЕДЕННЯ';

Text4: = 'Для повернення <-';

shapka; {Процедура виводить розмітку на екран}

GoToXY (79,1);

perem; {Процедура переміщення курсором в розділах і підрозділах}

until (ord (ch) = 68); {До тих пір поки не натиснутий пункт EXIT}

end.