Помогите найти ошибку в коде

var a,b,c,d,f,k,h:integer;

begin

• wtiteln('В каком веке было введено право городов избирать органы власти?');
• wtiteln('в 11-12 веках');
• wtiteln('1.В 13 веке');
• wtiteln('2. в 11-12 веках');
• wtiteln('3.в 5 веке');
• readln(a);
• if a=2 then writeln ('молодец!');
• k:=k+1;

end

• writeln('на ком основывалась светская власть в Средневековье?');
• writeln('короли');
• writeln('1.короли');
• writeln('2. Церковь');
• writeln('3. Крестьяне');
• readln(b);
• if b=1 then writeln ('молодец!');
• k:=k+1

end.

else wtiteln('Неправильно');

• writeln('какую власть имел орден св.Доминика?');
• writeln('преследовать еретиков');
• writeln('1.не подчинятся церкви ');
• writeln('2. преследовать еретиков');
• writeln('3. вести завоевательные походы');
• readln(c);
• if c=2 then writeln ('молодец!');
• k:=k+1

end.

else wtiteln('Неправильно');

• writeln('какие государства были образованы на завоеванных территориях во время крестовых походов?');
• writeln(' Иерусалимское королевство, Княжество Антиохия');
• writeln('1.Финикия ');
• writeln('2. Иерусалимское королевство, Княжество Антиохия');
• writeln('3. королевство Крестоносцев');
• readln(d);
• if d=2 then writeln ('молодец!');
• k:=k+1

end.

else wtiteln('Неправильно');

• writeln('Что было важнейшим орудием Церкви против еретиков?');
• writeln('Инквизиция');
• writeln('1.Законы ');
• writeln('2. Вера');
• writeln('3. Инквизиция');
• readln(k);
• if k=3 then writeln ('молодец!');
• k:=k+1

end.

else wtiteln('Неправильно');

• writeln('Кто такой Фома Аквинский?');
• writeln('Теолог признанный церковью');
• writeln('1.Теолог ');
• writeln('2. Еретик');
• writeln('3. Церковный служитель');
• readln(k);
• if k=3 then writeln ('молодец!');
• k:=k+1

end.

else wtiteln('Неправильно');

• if k=6 then writeln ('Вы набрали ',k,' баллов , ваша оценка 5');
• if k=5 then writeln ('Вы набрали ',k,' баллов , ваша оценка 4');
• if k=4 then writeln ('Вы набрали ',k,' баллов , ваша оценка 3');
• if k=3 then writeln ('Вы набрали ',k,' баллов , ваша оценка 2');
• if k=2 then writeln ('Вы набрали ',k,' баллов , ваша оценка 1');
• if k=1 then writeln ('Вы набрали ',k,' баллов , ваша оценка 0');

Информатика 9 класс Программирование информатика ошибка в коде помощь с кодом программирование Pascal тестирование кода вопросы по информатике исправление ошибок оценка работы логика программы Новый

В вашем коде есть несколько ошибок, которые необходимо исправить. Давайте рассмотрим их по порядку:

1. Ошибка в написании команды:

• Вы написали wtiteln, вместо writeln. Это опечатка, и программа не сможет выполнить вывод.

2. Неправильное использование переменной k:

• Переменная k используется для подсчета баллов, но вы не инициализируете её перед началом работы. Необходимо добавить k := 0; в начале программы.
• Также, в некоторых местах вы перезаписываете значение k при чтении, например, readln(k);. Это неправильно, нужно использовать разные переменные для чтения ответов и для подсчета баллов.

3. Неправильное использование конструкции if-else:

• У вас есть конструкция end., которая не соответствует правильному закрытию блока. Вместо этого используйте end; для завершения блока if.

4. Логика подсчета баллов:

• Подсчет баллов выполняется после проверки правильности ответа, но вы не должны увеличивать k в любом случае. Увеличение должно происходить только при правильном ответе.

5. Неправильное использование переменной в конце программы:

• Вы используете k для чтения ответов, это может привести к путанице. Лучше использовать разные переменные для этого.

Теперь давайте исправим ваш код, учитывая вышеперечисленные ошибки:

var a, b, c, d, f, k: integer;
begin
    k := 0;  // Инициализация переменной k
    writeln('В каком веке было введено право городов избирать органы власти?');
    writeln('в 11-12 веках');
    writeln('1. В 13 веке');
    writeln('2. в 11-12 веках');
    writeln('3. в 5 веке');
    readln(a);
    if a = 2 then
    begin
        writeln('молодец!');
        k := k + 1;  // Увеличиваем k только при правильном ответе
    end
    else
        writeln('Неправильно');

    writeln('На ком основывалась светская власть в Средневековье?');
    writeln('короли');
    writeln('1. короли');
    writeln('2. Церковь');
    writeln('3. Крестьяне');
    readln(b);
    if b = 1 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');

    writeln('Какую власть имел орден св. Доминика?');
    writeln('преследовать еретиков');
    writeln('1. не подчинятся церкви');
    writeln('2. преследовать еретиков');
    writeln('3. вести завоевательные походы');
    readln(c);
    if c = 2 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');

    writeln('Какие государства были образованы на завоеванных территориях во время крестовых походов?');
    writeln('Иерусалимское королевство, Княжество Антиохия');
    writeln('1. Финикия');
    writeln('2. Иерусалимское королевство, Княжество Антиохия');
    writeln('3. королевство Крестоносцев');
    readln(d);
    if d = 2 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');

    writeln('Что было важнейшим орудием Церкви против еретиков?');
    writeln('Инквизиция');
    writeln('1. Законы');
    writeln('2. Вера');
    writeln('3. Инквизиция');
    readln(a);  // Используем другую переменную
    if a = 3 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');

    writeln('Кто такой Фома Аквинский?');
    writeln('Теолог признанный церковью');
    writeln('1. Теолог');
    writeln('2. Еретик');
    writeln('3. Церковный служитель');
    readln(a);  // Используем другую переменную
    if a = 1 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');

    // Оценка
    if k = 6 then writeln('Вы набрали ', k, ' баллов, ваша оценка 5');
    if k = 5 then writeln('Вы набрали ', k, ' баллов, ваша оценка 4');
    if k = 4 then writeln('Вы набрали ', k, ' баллов, ваша оценка 3');
    if k = 3 then writeln('Вы набрали ', k, ' баллов, ваша оценка 2');
    if k = 2 then writeln('Вы набрали ', k, ' баллов, ваша оценка 1');
    if k = 1 then writeln('Вы набрали ', k, ' баллов, ваша оценка 0');
end.

Теперь ваш код должен работать корректно. Убедитесь, что вы тестируете его и проверяете, что все ответы обрабатываются правильно.