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

        Write(g1,':',g2,' ',g3);

        Delay(1000);

        until keypressed;

        Window(55,10,80,15);

        TextBackGround(blue);

        clrscr;

        TextColor(yellow);

        b:=readkey; {считывание цифры ответа}

        Write(b); {считывание правильного ответа из файла}

        Readln(u,k);

        Readln(c);

        If k=b Then p:=p+1; {сравнение ответов, начисление баллов}

        Window(60,20,70,21);

        TextBackGround(black); {закрытие окна отверов}

        clrscr;

        TextColor(black);

        z2:=z2-1; {таймер}

        If z2<0 Then Begin

                     z1:=z1-1;

                     z2:=60;

                     End;

        If (z1=0)and(z2=0) Then GoTo l1;

        GoToXY(70,15);

        GetTime(g1,g2,g3,g4); {вывод текущего времени}

        Writeln(z1,':',z2);

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



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

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