| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
discovery5
Зарегистрирован: 29.04.2006
Сообщения: 1
|
 Добавлено: Вс Май 07 2006 18:22 Заголовок сообщения: Генератор тестов |
 |
|
Поделитесь, пожалуйста, исходником проги, состоящей из 2-х частей: В одной тест создается, а в другой запускается и выролняется. Помогите, а то если не сдам курсовую, выгонят. Спасибки  |
|
| Вернуться к началу |
|
 |
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
| Добавлено: Пн Май 08 2006 05:54 Заголовок сообщения: |
|
|
| А на основе чего он, собственно, создается? |
|
| Вернуться к началу |
|
|
Kefir
Зарегистрирован: 16.04.2005
Сообщения: 443
Откуда: Пермь
|
| Добавлено: Пн Май 08 2006 13:57 Заголовок сообщения: |
|
|
| Делал я подобную систему, я бы ее оценил в 100Круб, без налогов |
|
| Вернуться к началу |
|
|
grf
Зарегистрирован: 05.04.2005
Сообщения: 1242
Откуда: Москва
|
| Добавлено: Ср Май 10 2006 13:22 Заголовок сообщения: |
|
|
может объясните о чем речь, а то я нефига не понял.
Мой вариант такой
| Код: |
programm test
procedure greatetest
begin
writeln("тест на знания математики#10#13сколько будет 2Х2");
end;
procedure runtest
var
a,b,c:byte;
begin
writeln("сколько будет 2Х2");
a:=2;
b:=2;
c:=a*b;
Writeln("Ответ ",c," Правильно! Какие у меня выдающиеся математические способности!!!")ж
end;
Begin
greatetest;
runtest;
End.
|
 |
|
| Вернуться к началу |
|
|
Kefir
Зарегистрирован: 16.04.2005
Сообщения: 443
Откуда: Пермь
|
| Добавлено: Ср Май 10 2006 14:22 Заголовок сообщения: |
|
|
| проси 100Круб |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
