Тест программных программ
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: налоги в россии, курсовые работы бесплатно
| Добавил(а) на сайт: Сталин.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Window(10,10,53,15); {вывод вопроса, ожидание ввода ответа}
TextBackGround(cyan);
clrscr;
while not Eoln(c)or(b<>'&') do Begin
Read(c,b);
If b<>'&' Then Write(b);
End;
Writeln;
Window(55,10,80,15); {вывод сообщения о вводе ответа}
TextBackGround(blue);
clrscr;
Write('ваш ответ ');
TextColor(yellow);
repeat{таймер}
Window(60,20,70,21);
TextBackGround(black);
clrscr;
z2:=z2-1;
If z2<0 Then Begin
z1:=z1-1;
z2:=60;
End;
If (z1=0)and(z2=0) Then GoTo l1;
GetTime(g1,g2,g3,g4);
Writeln(z1,':',z2);
Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.
Категории:
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата