Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Программа проверки знаний. (Помогите пожалуйста составить программу.)
Программа проверки знаний.
Программа должна выводить вопрос и 3 варианта ответов, пользователь должен выбрать правильный ответ и ввести его номер, если ответ правильный должно появиться сообщение "вы ответили верно", а если не правильно "вы ошиблись (ввести номер правильного ответа)" вопросов должно быть 5. И если не сложно можно добавить систему оценок.
1 | Автор: Dezgarn | 2011-05-27, 12:44   |  Репутация: [ + 0 ]
пиши вопросы, я напишу программу
2 | Автор: viper-klas | 2011-07-04, 18:53   |  Репутация: [ + 3 ]
1) Чему равен 1 Кбайт?
1. 1000 байт 2. 1024 бит 3. 1024 байт
2) Какое устройство обладает наибольшей скоростью обмена информацией?
1. CD-ROM дисковод 2. жесткий диск 3. микросхемы оперативной памяти
3) В целях сохранения информации гибкие диски необходимо оберегать от…
1. холода 2. загрязнения 3. магнитных полей
4) Системная дискета необходима для…
1. первоначальной загрузки операционной системы 2. систематизации файлов 3. хранения важных файлов
5) Информационной моделью организации учебного процесса в школе является…
1. список класса 2. расписание уроков 3. перечень учебников
Вот вопросы, таким шрифтом я выделил правильные ответы...
Заранее спасибо.
3 | Автор: Dezgarn | 2011-07-05, 03:25   |  Репутация: [ + 0 ]
program proverka;
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
writeln('1)Чему равен 1 Кбайт? ');
writeln('. 1000 байт 2. 1024 бит 3. 1024 байт ');
read(a);
if (a=3) then writeln('Ответ правильный!')
else writeln('Ответ не правильный. Правильный ответ 3. 1024 байт');
writeln('2) Какое устройство обладает наибольшей скоростью обмена информацией?');
writeln('1. CD-ROM дисковод 2. жесткий диск 3. микросхемы оперативной памяти ');
read(b);
if (b=3) then writeln('Ответ правильный!')
else writeln('Ответ не правильный. Правильный ответ 3. микросхемы оперативной памяти');
writeln('3) В целях сохранения информации гибкие диски необходимо оберегать от… ');
writeln('1. холода 2. загрязнения 3. магнитных полей ');
read ©;
if (c=3) then writeln('Ответ правильный!')
else writeln('Ответ не правильный. Правильный ответ 3. магнитных полей');
writeln('4) Системная дискета необходима для… ');
writeln('1. первоначальной загрузки операционной системы 2. систематизации файлов 3. хранения важных файлов ');
read(d);
if (d=3) then writeln('Ответ правильный!')
else writeln('Ответ не правильный. Правильный ответ 1. первоначальной загрузки операционной системы');
writeln('5) Информационной моделью организации учебного процесса в школе является…');
writeln('1. список класса 2. расписание уроков 3. перечень учебников ');
read(e);
if (e=3) then writeln('Ответ правильный!')
else writeln('Ответ не правильный. Правильный ответ 2. расписание уроков');
readln;
end.

счетчик не знаю как поставить. Спасибо можеш выразить в виде нажатым зелёным плюсом возле ника.
Будут вопросы, обращайся!
4 | Автор: viper-klas | 2011-07-05, 13:39   |  Репутация: [ + 3 ]
Зачем 5 переменных?
Вместо b,c,d,e можно заново считывать переменную а;
Для счётчика стоит взять ещё одну переменную и если ответ правильный - этой переменной присвоить эту переменную+1;


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2011-07-12, 15:30   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Программа проверки знаний. (Помогите пожалуйста составить программу.)
  • Страница 1 из 1
  • 1
Поиск: