Тест программных программ
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: налоги в россии, курсовые работы бесплатно
| Добавил(а) на сайт: Сталин.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная