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

        If z>d Then Writeln('номер превышает число вопросов'); {проверка существования номера}

        until z<=d;

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

        TextBackGround(black);

        clrscr;

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

        TextBackGround(lightgray);

        clrscr;

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

        Reset(c);

        p:=0;

        repeat

          while not EOLN(c) do Begin        {копирование значений в другой файл}

                               Read(c,b);

                               Write(y,b);

                               End;

          Readln(c);

          Writeln(y);

          p:=p+1;

        until p=z*3; {установка количества копируемых строк}

        p:=0;

        while not (p=z-1) do Begin     {стирание ненужного вопроса}

                             p:=p+1;

                             Readln(u,b);

                             Writeln(a1,b);

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



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

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