Реферат: Тест программных программ

uses crt,printer; { подключение модулей }

label l1,l2,l3,l4; {метки}

Var a,f,f1,a2:string; {раздел описаний}

b,k:char;

c,u,y,a1,b1:text;

d,e,i,j,p,z:integer;

c1:boolean;

Procedure oform; {процедура оформления начала программы}

Begin

<набор операторов>

End;

Begin

oform; {оформление начала программы}

<набор операторов>

Writeln('Новый файл(New),Открыть файл(Open),Редактирование(Redact),'); {вывод

альтернативных функций}

Writeln('Просмотр результатов(Search),Выход(Any key)');

b:=readkey; {выбор нужной функции}

case b of {оператор варианта}

По нажатию соответствующей клавиши происходит выбор функции.

'n','в':Begin

l1:<набор операторов> {выполнение функции}

End;

'o','й':Begin

l2:<набор операторов> {выполнение функции}

End;

'r','Є':Begin

l3:<набор операторов> {выполнение функции}

End;