{координати першого рядка меню}
Procedure punkt1;
begin
ClrScr;
writeln ('Виконав студент гр. 2-АС-3 Тимофєєв Т.П. (2001 р.) ');
writeln ('Курсова робота-а-а-а-а-а-а-а!!!!!!! ');
readln;
end;
Procedure punkt2;
begin
ClrScr;
writeln ('Тута все зрозуміло навіть дитині. ');
readln;
end;
Procedure MenuToScr; {висновок меню на екран}
var i: integer;
begin
ClrScr;
for i: = 1 to N do begin
GoToXY (x, y + i-1);
write (menu [i]);
end;
TextAttr: = SEL;
GoToXY (x, y + punkt-1);
write (menu [punkt]); {виділимо рядок меню}
TextAttr: = NORM;
end;
begin
menu [1]: = 'Про програму';
menu [2]: = 'Допомога';
menu [3]: = 'Вихід';
punkt: = 1;
x: = 5;
y: = 5; TextAttr: = NORM;
MenuToScr;
repeat
ch: = ReadKey;
if ch = char (0) then begin
ch: = ReadKey;
case ch of
chr (80): {стрілка вниз}
if punkt
GoToXY (x, y + punkt-1);
write (menu [punkt]);
punkt: = punkt +1;
TextAttr: = SEl;
GoToXY (x, y + punkt-1);
write (menu [punkt]);
TextAttr: = NORM;
end;
chr (72): {стрілка вгору}
if punkt> 1 then begin
GoToXY (x, y + punkt-1);
write (menu [punkt]);
punkt: = punkt-1;
TextAttr: = SEl;
GoToXY (x, y + punkt-1);
write (menu [punkt]);
TextAttr: = NORM;
end;
end;
end
else
if ch = chr (13) then begin {Натиснута клавіша }
case punkt of
1: punkt1;
2: punkt2;
3: i: = 2; { вихід}
end;
MenuToScr;
end;
until i = 2;
end;
end.
Висновок.
В
В результаті виконаної роботи я написав прекрасну програму за 4 години вільного від навчання часу практично без допомоги літератури та інших джерел.
Програма заснована на стандартних процедурах та функціях модуля Crt: Rename, Erase, Append, Rewrite, Reset, Assign та ін
Список використаної літератури.
1. Попов В.Б. "Turbo Pascal для школярів ":
Учеб.пособие. - 3-е доп. вид. - М.: Фінанси і статистика, 2001р. p> 2. Вірт Н. "Алгоритми та структури даних ":
Пер. з англ. - М.: Світ, 1989р. p> 3. Прайс Д. "Програмування на мові Паскаль: Практичне керівництво ". p> Пер. з англ. - М.: Світ, 1987р. br/>
