В теме одно сообщение

[temka86]

Уважаемые форумчане, помогите с курсовой бедному студенту!

Тема: Разработать приложение «Тестирование». Программа должна обеспечивать проведение тестирования по одному из разделов курса «Программирование на языке высокого уровня». Выбор правильного ответа осуществляется при помощи переключателя. За каждый правильный ответ начисляется один балл. В конце теста выводятся его результаты. Необходимо предусмотреть тренировочный режим работы, когда возможен вывод ответов на представленные вопросы. Доступ к тренировочному режиму работы предоставляется по паролю

[AntiSgaMuh]

Pascal
uses crt;
var t:array[1..9]of 1..3;
q:array[1..9]of string;
i,c,ans:integer;

begin
clrscr;
c:=0;
t[1]:=3;
t[2]:=2;
t[3]:=1;
t[4]:=1;
t[5]:=3;
t[6]:=3;
t[7]:=2;
t[8]:=1;
t[9]:=2;

q[1]:='Всегда ли Вы делаете немедленно то, о чем Вас просили?';
q[2]:='Случается ли, что рассердившись, Вы "выходите из себя"?';
q[3]:='Смеетесь ли Вы иногда над двусмысленными неприличными шутками?';
q[4]:='Полностью ли Вы свободны от всяких предрассудков?';
q[5]:='Любите ли Вы иногда прихвастнуть?';
q[6]:='Всегда ли Вы отвечаете на письма сразу после прочтения?';
q[7]:='Откладываете ли Вы иногда на завтра то, что можно сделать сегодня?';
q[8]:='Оплатите ли Вы проезд в автобусе, если будите знать,что проверки билетов не будет?';
q[9]:='Считаете ли Вы, что лучше больше выигрывать, чем больше проигрывать?';

for i:=1 to 9 do
begin
  write(q[i],' -> ');
  readln(ans);
  if ans=t[i] then inc(c);
end;

write('Ваша оценка - ');
case с of
8..9:write('ОТЛИЧНО ');
6..7:write('ХОРОШО ');
4..5:write('УДОЛЕТВОРИТЕЛЬНО ');
else write('НЕУДОЛЕТВОРИТЕЛЬНО ');
end;
writeln('Верных ответов: ',c,' из 9');
readln;
end.

Сообщение отредактировал AntiSgaMuh: 12 January 2019 - 10:10