Страница 1 из 1
Тестирование в Turbo Pascale
Добавлено: 07 фев 2010, 22:11
Irenna
Необходимо составить тест,который будет подсчитывать количество балов и оценивать(т.е. на первой странице должно быть написано тест,на тему:…,а также строка,в каторой можно писать любое Ф.И.О., после заполнения строки Ф.И.О.,должна появится друга страница на которой будет тест с выбором ответа,позволяющий выбрать курсором ответ
(тест:1.Sпрямоугольника=:а)а*b; b)а/b; с)2*а*b. 2.Sквадрата=:а)2*а; b)4*а; с)а*а; 3.Sкруга=:а) P*R*R;b) P/R;c)P*R),после прохождения теста на третей странице должно выводится вы не прошли тест,или прошли тест и набрали 2б-средний ур.,а на последней стр.должно выводится предложение не хотите ли вы еще раз пройти тест(да,нет))(можн исп. Граф. режим).
Re: Тестирование в Turbo Pascale
Добавлено: 08 фев 2010, 10:01
Хыиуду
1. Устное предупреждение за неинформативное название темы.
2. Создаем массив вопросов и массив номеров правильных ответов. В цикле проходим по всем вопросам, выводим очередной вопрос на экран, считываем номер ответа пользователя, если номер совпадает с номером правильного ответа - даем 1 балл, после окончания всех вопросов подсчитываем количество баллов. Про "выбрать курсором" забудьте навсегда.
3. Что непонятно?
Re: Тестирование в Turbo Pascale
Добавлено: 08 фев 2010, 23:55
Irenna
немогу понять, как 4тоб ч/з несколько сек. появилась др. стр. с тестом))))
Re: Тестирование в Turbo Pascale
Добавлено: 09 фев 2010, 09:13
BHy4ok
Irenna писал(а):немогу понять, как 4тоб ч/з несколько сек. появилась др. стр. с тестом))))
[syntax='Pascal']
sleep(1000);
[/syntax]
Re: Тестирование в Turbo Pascale
Добавлено: 09 фев 2010, 17:09
Irenna
Я не пойму,как нужно правильно составить тест с вариантами ответов,так чтоб после ответов на вопросы програма могла подсчитывать правильное количество ответов и оценить их.
Re: Тестирование в Turbo Pascale
Добавлено: 10 фев 2010, 09:06
Хыиуду
Смотрите мое предыдущее сообщение
Примерно так
Код: Выделить всё
const questions:array[1..3] of string=['Sпрямоугольника=:а)а*b; b)а/b; с)2*а*b', 'Sквадрата=:а)2*а; b)4*а; с)а*а', 'Sкруга=:а) P*R*R;b) P/R;c)P*R'];
const answers:array[1..3] of char=['a','c','a'];
...........
for i:=1 to 3 do
begin
writeln(questions[i]);
readln(c);
if c=answers[i] then inc(balls);
end;
Предупреждая следующий вопрос: нет, целиком код не напишу
Re: Тестирование в Turbo Pascale
Добавлено: 10 фев 2010, 17:02
Irenna
Пасиб)))))))inс -это значит общий??????))))))))))))
Re: Тестирование в Turbo Pascale
Добавлено: 11 фев 2010, 08:58
BHy4ok
Irenna писал(а):Пасиб)))))))inс -это значит общий??????))))))))))))
inc(i) Это тоже самое, что и -- i:=i+1;
Вам для начала не помешало бы почитать основы.
Re: Тестирование в Turbo Pascale
Добавлено: 11 фев 2010, 14:12
QuadroX
За небольшое вознаграждение дам полный код программы с комментариями.
ICQ: 323787261.