Навыки создания собственного меню. Распечатка программы. Краткие сведения о программе

1. Цель работы: Получить навыки создания собственного меню.

2. Задание на лабораторную работу: Создать меню следующего содержания:

- Справка;

- Ввод исходных данных;

- Вывод результата;

- Выход;

При выборе одного из пунктов меню файла, должно открываться окно для исходных данных.

3. Распечатка программы:

{Лабораторная работа №44

Создание меню

Выполнил ст.гр. }

program menu;

uses Crt;

var

men1:array[1..4] of string;

df:Word;

ch:Char;

{--------------------------------------------------}

procedure spravka;

begin

textcolor(13);

textbackground(0);

clrscr;

writeln;

writeln;

writeln;

writeln('                Данная программа является лабораторной работой ');

writeln('                      студента гр. а А.А. ');

writeln('                          по дисциплине "Информатика" ');

writeln('       Программа выполняет действия заданные в лабораторной работы № 44 ');

writeln('                          Создание собственного меню ');

writeln;

writeln;

textcolor(3);

writeln('                          Краткие сведения о программе ');

writeln;

writeln('               Программа создает собственное меню а А.А. ');

writeln('               следующего содержания: ');

writeln;

writeln('                                     - Справка    ');

writeln('                                     - Ввод данных');

writeln('                                     - Результ    ');

writeln('                                     - Выход      ');

writeln;

writeln('      При выборе одного из этих пунктов открывается соответствующее окно. ');

writeln('        В данный момент вы находитесь в окне " Справка "  ');

textcolor(4);

writeln;

write('                               нажмите любую клавишу... ');

readkey;

end;

{--------------------------------------------------}

procedure vichis;

begin

textcolor(13);

textbackground(0);

clrscr;

writeln;

writeln;

writeln;

writeln;

writeln;

writeln;

writeln('                       Ввод данных временно не возможен... ');

writeln('                                                           ');

writeln('                                                           ');

textcolor(4);

writeln;

write('                              нажмите любую клавишу... ');

readkey;

end;

{--------------------------------------------------}

procedure vivod;

begin

textcolor(13);

textbackground(0);

clrscr;

writeln;

writeln;

writeln;

writeln;

writeln;

writeln;

writeln('                       Вывод результата временно не возможен... ');

writeln('                                                       ');

writeln('                                                       ');

textcolor(4);

writeln;

write('                              нажмите любую клавишу... ');

readkey;

end;

{--------------------------------------------------}

procedure menu1;

var

fl:boolean;

procedure pmenu1;

var i:integer;

begin

for i:=1 to 4 do

begin

gotoxy(32,10+i);

if i=df then begin textcolor(16+5);

textbackground(2);end

else begin textcolor(0);

textbackground(1);end;

writeln(men1[i]);

end;

end;

begin

fl:=true;

while fl do

begin

textbackground(1);

clrscr;

textcolor(15);

gotoxy(33,9);

write('Главное меню');

df:=1;

pmenu1;

ch:=readkey;

while ch<>#13 do

begin

case ch of

#72:if df=1 then df:=4

else df:=df-1;

#80:if df=4 then df:=1

else df:=df+1;

end;

pmenu1;

ch:=readkey;

END.

4. Вывод: Получил практические навыки создания собственное меню пользователя.