Как составить программу по тестам на языке паскаль

var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
 writeln('Викторина на тему "Африканские царства".');
 writeln('№ 1. Правителя Мали называли:');
 writeln(' 1.оба');
 writeln(' 2.манса');
 writeln(' 3.хамса');
 read(a);
 writeln('№ 2. Морской путь из Европы в Индию открыл:');
 writeln(' 1.Васко да Гама');
 writeln(' 2.Генрих Мореплаватель');
 writeln(' 3.манса Муса');
 read(b);
 writeln('№ 3. Манса Муса награждал храбрых воинов:');
 writeln(' 1.большими тюрбанами');
 writeln(' 2.широкими штанами');
 writeln(' 3.длинными туфлями');
 read(c);
 writeln('№ 4. В Мали собирали урожай:');
 writeln(' 1.пшеницы и орехов кола');
 writeln(' 2.кукурузы и арахиса');
 writeln(' 3.попкорна и пепси-колы');
 read(d);
 writeln('№ 5. Томбукту - это:');
 writeln(' 1.африканский король');
 writeln(' 2.торговый город');
 writeln(' 3.пустыня');
 read(e);
 writeln('№ 6. Народ ашанти делал золотые головы с помощью:');
 writeln(' 1.воды и железа');
 writeln(' 2.воска и меди');
 writeln(' 3.воска и глины');
 read(f);
 writeln('№ 7. Народ Бенина видел его оба:');
 writeln(' 1.раз в неделю');
 writeln(' 2.раз в месяц');
 writeln(' 3.раз в год');
 read(g);
 writeln('№ 8. Жилища кочевников сделаны:');
 writeln(' 1.из камня');
 writeln(' 2.кожи');
 writeln(' 3.песка');
 read(h);
 writeln('№ 9. Слоновая кость - это:');
 writeln(' 1.ценный метал');
 writeln(' 2.твёрдое дерево');
 writeln(' 3.бивни слона');
 read(i);
 writeln('№ 10. Народ ашанти использовал вместо денег:');
 writeln(' 1.мелике камешки');
 writeln(' 2.золотой песок');
 writeln(' 3.медные весы');
 read(j);
  if a = 2 then
  begin
   k:=1;
  end;
  if (a = 1) or (a = 3) then
  begin
   k:=0;
  end;
  if b = 1 then
  begin
   l:=k+1;
  end;
  if (b = 2) or(b = 3)then
  begin
   l:=k;
  end;
  if c = 2 then
  begin
   m:=l + 1;
  end;
  if (c = 1) or (c = 3)then
  begin
   m:=l
  end;
  if d = 1 then
  begin
   n:=m + 1;
  end;
  if (d = 2) or (d = 3) then
  begin
   n:=m
  end;
  if e = 2 then
  begin
   o:=n + 1;
  end;
  if (e = 1) or (e = 3) then
  begin
   o:=n;
  end;
  if f = 3 then
  begin
   p:=o + 1;
  end;
  if (f = 1) or(f = 2) then
  begin
   p:=o;
  end;
  if g = 3 then
  begin
   q:=p + 1;
  end;
  if (g = 1) or (g = 2) then
  begin
   q:=p;
  end;
  if h = 2 then
  begin
   r:= q + 1;
  end;
  if (h = 1) or (h =3 ) then
  begin
   r:=q;
  end;
  if i = 3 then
  begin
   s:=r + 1;
  end;
  if (i = 1) or (i = 2)then
  begin
   s:=r;
  end;
  if j = 2 then
  begin
   t:=s + 1;
  end;
  if (j = 1) or (j = 3) then
  begin
   t:=s;
  end;
  if (t = 10) or (t = 9) or (t = 8)then
  begin
   writeln('Вы набрали ',t,' баллов.Отлично!');
  end;
  if (t = 7) or (t = 6) or (t = 5) or (t = 4) then
  begin
   writeln('Вы набрали ',t,' баллов.Неплохо.');
  end;
  if (t = 3) or (t = 2) or (t = 1) or(t = 0) then
  begin
   writeln('Вы набрали ',t,'баллов.Советую пройти викторину снова.');
  end;
 if t<=9 then
  writeln('Вы ошиблись на следующих вопросах:');
  if a=1 then
  begin
   writeln(' № 1.Правителя Мали называли:');
   writeln('Ваш выбор: 1.оба');
   writeln('Правильный ответ: 2.манса');
  end;
  if a=3 then
  begin
   writeln(' № 1.Правителя Мали называли:');
   writeln('Ваш выбор: 3.хамса');
   writeln('Правильный ответ: 2.манса');
  end;
    if b=2 then
    begin
     writeln(' № 2. Морской путь из Европы в Индию открыл:');
     writeln('Ваш выбор: 2.Генрих Мореплаватель');
     writeln('Правильный ответ: 1.Васко да Гама');
    end;
    if b=3 then
    begin
     writeln(' № 2. Морской путь из Европы в Индию открыл:');
     writeln('Ваш выбор: 3.манса Муса');
     writeln('Правильный ответ: 1.Васко да Гамма');
    end;
    if c<=1 then
    begin
     writeln(' № 3. Манса Муса награждал храбрых воинов:');
     writeln('Ваш выбор: 1.большими тюрбанами');
     writeln('Правильный ответ: 2.широкими штанами');
    end;
    if c=3 then
    begin
     writeln('Ваш выбор: 3.длинными туфлями');
     writeln('Правильный ответ: 2.широкими штанами');
     end;
        if d=2 then
        begin
         writeln(' № 4. В Мали собирали урожай:');
         writeln('Ваш выбор: 2.кукурузы и арахиса');
         writeln('Правильный ответ: 1.пшеницы и орехов кола');
        end;
        if d=3 then
        begin
         writeln('Ваш выбор: 3.попкорна и пепси-колы');
         writeln('Правильный ответ: 1.пшеницы  орехов кола');
        end;
          if e=1 then
          begin
           writeln(' № 5. Томбукту - это:');
           writeln('Ваш выбор: 1.африканский король');
           writeln('Правильный ответ: 2.торговый город');
          end;
          if e=3 then
          begin
           writeln(' № 5. Томбукту - это:');
           writeln('Ваш выбор: 3.пустыня');
           writeln('Правильный ответ: 2.торговый город');
          end;
            if f=1 then
            begin
             writeln(' № 6. Народ ашанти делал золотые головы с помощью:');
             writeln('Ваш выбор: 1.воды и железа');
             writeln('Правильный ответ: 3.воска и глины');
            end;
            if f=2 then
            begin
             writeln(' № 6. Народ ашанти делал золотые головы с помощью:');
             writeln('Ваш выбор: 2.воска и меди');
             writeln('Правильный ответ: 3.воска и глины');
            end;
              if g=1 then
              begin
               writeln(' № 7. Народ Бенина видел своего оба:');
               writeln('Ваш выбор: 1.раз в неделю');
               writeln('Правильный ответ: 3.раз в год');
              end;
              if g=2 then
              begin
               writeln(' № 7. Народ Бенина видел своего оба:');
               writeln('Ваш выбор: 2.раз в месяц');
               writeln('Правильный ответ: 3.раз в год');
              end;
                if h=1 then
                begin
                 writeln(' № 8. Жилища кочевников сделаны:');
                 writeln('Ваш выбор: 1.из камня');
                 writeln('Правильный ответ: 2.из кожи');
                end;
                if h=3 then
                begin
                 writeln(' № 8. Жилища кочевников сделаны:');
                 writeln('Ваш выбор: 3.из песка');
                 writeln('Правильный ответ: 2.из кожи');
                end;
                  if i=1 then
                  begin
                   writeln(' № 9. Cлоновая кость - это:');
                   writeln('Ваш выбор: 1.ценный металл');
                   writeln('Правильный ответ: 3.бивни слона');
                  end;
                  if i=2 then
                  begin
                   writeln(' № 9. Cлоновая кость - это:');
                   writeln('Ваш выбор: 2.твёрдое дерево');
                   writeln('Правильный ответ: 3.бивни слона');
                 end;
                   if j=1 then
                   begin
                    writeln(' № 10. Народ ашанти использовал вместо денег:');
                    writeln('Ваш выбор: 1.мелкие камешки');
                    writeln('Правильный ответ: 2.золотой песок');
                   end;
                   if j=3 then
                   begin
                    writeln(' № 10. Народ ашанти использовал вместо денег:');
                    writeln('Ваш выбор: 3.медные весы');
                    writeln('Правильный ответ: 2.золотой песок');
                   end;
writeln('    ...  Желаю удачи в следующей виторине!!! ...     ');
end.

Инфоурок

›

Информатика

›Другие методич. материалы›Создание теста в среде PascalABCNET

Цель мастер класса – изучить язык программирования Pascal, научить составлять тесты с применением операторов ввода, вывода и условия.

Задачи:

1) обобщить и дополнить имеющиеся знания учащихся о линейных алгоритмах, закрепить знания о блок – схемах, о структуре программ; умение безошибочно располагать команды условия, ввода и вывода; проверить умение отличать операторы условия ввода и вывода.

 2)развивать алгоритмическое мышление обучающихся.

3) воспитывать интерес к изучению программирования, умение планировать свою деятельность, воспитывать чувство коллективизма, взаимопомощи, бережного отношения к компьютерной технике.

 Оборудование:

1. интерактивная доска.

2. мультимедийная презентация. Приложение 4

3. раздаточный материал Приложение 1, 2 (Шаблон – блок – схема, карточка с операторами).

4. демонстрационная таблица Приложение 3 (Операторы и команды в Pascal).

5. Тест в Pascal. Приложение 5, 6

Используемые методы обучения: объяснительно иллюстративный (рассказ, беседа, практическая работа)

Ход мастер – класса:

Целеполагание.

Добрый день, уважаемые коллеги и учащиеся!

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

Наш кружок называется «Основы программирования», цель которого формирование алгоритмического и логического мышления, так же навыков программирования и ИКТ компетентности.

Чтобы быть программистом не достаточно знать Компьютерные технологии, необходимо уметь работать и разбираться в них.

Тема сегодняшнего мастер – класса «Составление тестов на языке Паскаль». Цель которого научить программировать простые тесты. Каждый учащийся составит свой вопрос с вариантами ответа, затем все программы объединим в одну и получим общий проект – программу – тест.

Актуализация

Тест. Повторение операторов ввода, вывода, условия

Ребята посмотрите на экран, давайте вместе ответим на пару вопросов и повторим основные операторы программирования.

(на экране приложение Тест на паскале)

Как вы думаете, можно ли с помощью простых операторов, которые мы повторили только что, составить такую же программу – тест? (Да можно)

Сообщение нового материала

Учащиеся разделены на группы по 3 – 4 человека, на столах лежат карточки с операторами(приложение 1) и блок – схема шаблон алгоритма (приложение 2).

Блок – схемой называется форма записи алгоритма с помощью геометрических фигур.

Оператор ввода и вывода принято обозначать параллелограммом.

Начало и конец Овалом.

Действие – прямоугольником.

Условие – ромб.

Решение учебной задачи

Перед вами шаблон программы – тест.

Ребята ваша задача расставить карточки с операторами согласно блок схеме:

Весь материал – смотрите документ.