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

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

'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;  {выбор варианта}

   

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

    'n','т':GoTo l1;  {ссылка на метку}

    'o','щ':GoTo l2;

    'r','к':GoTo l3;

    's','ы':GoTo l4;

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



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

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