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

                             End;

        while not EOLN(c) do Begin       {можно было применить и цикл с параметром от 0 до 2}

                             Read(c,b);

                             Write(b);

                             End;

        Readln(c);

        Writeln;

        while not EOLN(c) do Begin       {вывод редактируемого вопроса на экран}

                             Read(c,b);

                             Write(b);

                             End;

        Readln(c);

        Writeln;

        while not EOLN(c) do Begin    

                             Read(c,b);

                             Write(b);

                             End;

        Readln(c);

        Writeln;

        Writeln('Заменить на:');

        Writeln(z,')'); {ввод нового вопроса}

        Writeln(y,z,')');

        Readln(f);

        Writeln(y,f);

        Window(55,10,80,15); {окно ответов}

        TextBackGround(cyan);

        clrscr;

        Write('количество ответов на ',z,'-й вопрос ');

        Readln(e); {ввод количества ответов}

        Window(10,10,53,20); {окно вопросов}

        TextBackGround(lightgray);

        clrscr;

        For j:=1 to e do Begin     {ввод ответов на вопрос}

                         Write(' ',j,')');

                         Readln(a);

                         Str(j,f);

                         a:=' '+f+')'+a;

                         Write(y,a);

                         End;

        Writeln(y,'&');

        Window(55,10,80,15); {окно ответов}

        TextBackGround(cyan);

        clrscr;

        Write('Правильный ответ: ');

        Readln(b); {ввод правильного ответа}

        Window(55,10,80,15); {закрытие окна ответов}

        TextBackGround(black);

        clrscr;

        Writeln(a1,b);

        repeat

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



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

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