Перейти к содержимому




- - - - -

Нужна курсовая.


  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1 temka86

temka86

    Абитуриент

  • Студенты
  • Pip
  • 4 сообщений

Отправлено 12 Январь 2019 - 07:06

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

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

#2 AntiSgaMuh

AntiSgaMuh

  • Методисты
  • 3 356 сообщений

Отправлено 12 Январь 2019 - 10:09

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 Январь 2019 - 10:10





Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных



Добро пожаловать!
Что бы получить полный доступ ко всем форумам, созданию тем и многому другому, пожалуйста Войдите или Зарегистрируйтесь.
Вы можете не тратить время на скучную анкету, а просто войти с помощью вашей любимой социальной сети в правом верхнем углу ;)