Составить программу, задающую загадки и анализирующую ответы - Pascal ABC
Формулировка задачи:
Составить программу, задающую загадки и анализирующую ответы
Решение задачи: «Составить программу, задающую загадки и анализирующую ответы»
textual
Листинг программы
q : string; a : string end; var a : array [1..n] of zagadka; {массив загадок} i, r, w : integer; answer : string; begin {инициализация 3 загадок, можно подобное сделать из текстового файла например} a[1].q := 'Зимой и летом одним цветом'; a[1].a := 'ёлка'; a[2].q := 'Синий, рогатый, зайцами набит'; a[2].a := 'троллейбус'; a[3].q := 'Сто одежек и все без застежек'; a[3].a := 'капуста'; {ну и задаем вопросы, например 3} w := 0; {неверных ответов} r := 0; {правильных ответов} for i := 1 to n do begin write(a[i].q, ': '); readln(answer); if answer = a[i].a then begin inc(r); writeln('правильно!') end else begin inc(w); writeln('неправильно') end end; writeln('правильных ответов: ', r, ', неправильных: ', w); readln end.
Объяснение кода листинга программы
- Задана программа на языке Pascal ABC, которая задает загадки и анализирует ответы.
- В программе объявлены следующие переменные:
- q - строка, содержащая вопрос загадки.
- a - строка, содержащая правильный ответ на загадку.
- a - массив из n элементов, каждый элемент которого представляет собой структуру с полями q и a.
- i, r, w - целочисленные переменные.
- answer - строка, в которую считывается ответ пользователя.
- В начале программы инициализированы первые три элемента массива a с вопросами и ответами на загадки.
- Далее программа задает вопросы и анализирует ответы пользователя. Переменные w и r используются для подсчета правильных и неправильных ответов соответственно.
- Цикл for перебирает элементы массива a.
- Внутри цикла выводится вопрос текущей загадки.
- Пользователь вводит ответ, который сравнивается с правильным ответом.
- Если ответы совпадают, увеличивается значение переменной r и выводится сообщение
правильно!
. - Если ответы не совпадают, увеличивается значение переменной w и выводится сообщение
неправильно
. - По завершении цикла выводится общее количество правильных и неправильных ответов.
- Программа завершается чтением из консоли.
- Данный код можно использовать для создания игры-загадки, обучающих программ и т.д.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д