Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

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

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;

    's','ы':Begin

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

             End;

    End;

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

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

                                                                                                                                                             выходом}

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

    b:=readkey;  {выбор варианта}

Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки