Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

        TextBackGround(lightgray);

        clrscr;

        Writeln('Вывод вопросов через Enter:');

        repeat

        while not Eoln(c)or(b<>'&') do Begin     {просмотр вопросов через Enter}

                                       Read(c,b);

                                       If b<>'&' Then Write(b);

                                       End;

        Readln(c);

        Readln;

        until EOF(c);

        close(c); {перезапуск файла вопросов}

        Reset(c);

        Window(5,5,50,20); {закрытие окна просмотра файла}

        TextBackGround(black);

        clrscr;

        Window(30,5,58,10); {окно номера редактируемого вопроса}

        TextBackGround(yellow);

        clrscr;

        Read(c,b); {считывание количества вопросов}

        Readln(c,b);

        d:=ord(b)-ord('0');

        Write('№ редактируемого вопроса: ');

        repeat

        Readln(z); {ввод № вопроса}

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





Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата