Question

Программный продукт в Pascal, проверяющий знания правил русского языка(например, поставить правильную букву в слове). Вопросов - не менее 5. Программа должна выводить оценку за тест.

Answer 1

Ответ:var err, right, answer : integer;

BEGIN

err := 0; right := 0;

writeLn('Сейчас Вам будет предложен тест по архитектуре. ');

writeLn('К каждому вопросу три варианта ответа. ');

writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');

writeLn;

writeLn('Архитектор Исаакиевского собора: ');

writeLn('1. Доменико Трезини');

writeLn('2. Огюст Монферран');

writeLn('3. Карл Росси');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

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

err := err + 1;

end;

writeLn;

writeLn('Архитектор Зимнего дворца: ');

writeLn('1. Франческо Бартоломео');

writeLn('2. Карл Росси');

writeLn('3. Огюст Монферран');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

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

err := err + 1;

end;

writeLn;

writeLn('Невский проспект получил свое название: ');

writeLn('1. По имени реки, на которой стоит Санк-Петербург');

writeLn('2. По имени близко расположенной Александро-Невской лавры');

writeLn('3. В память о знаменитом полководце - Александре Невском');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

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

err := err + 1;

end;

WriteLn('Правильных ответов: ', right);

WriteLn('Неправильных ответов: ', err);

END.

Объяснение:

P.S. Это конечно не то,но думаю по аналогию сможешь составить

Answer 2

Приведу пример кода на Pascal для создания программы, которая проверяет знание правил русского языка. В данном случае, программа будет проверять правописание слов с помощью выбора правильной буквы для заполнения пропусков в словах. Вопросов будет 5, и после ответов программа выведет оценку за тест.

pascalCopy code
program RussianLanguageQuiz;

var
  questions: array [1..5] of string;
  answers: array [1..5] of char;
  userResponses: array [1..5] of char;
  score: integer;

procedure InitializeQuestions;
begin
  questions[1] := 'Мама готовит (обед/абед).';
  questions[2] := 'На столе лежит красный (яблоко/яблуко).';
  questions[3] := 'Он пришел (раньше/ранеше) обещанного срока.';
  questions[4] := 'Книга лежала на (полке/полкэ).';
  questions[5] := 'Мы посадили цветы в (горшок/горшак).';
  
  answers[1] := 'а';
  answers[2] := 'о';
  answers[3] := 'р';
  answers[4] := 'п';
  answers[5] := 'ш';
end;

procedure AdministerQuiz;
var
  i: integer;
  response: char;
begin
  for i := 1 to 5 do
  begin
    writeln('Вопрос ', i, ':');
    writeln(questions[i]);
    write('Введите ваш ответ: ');
    readln(response);
    userResponses[i] := response;
    writeln;
  end;
end;

procedure CalculateScore;
var
  i: integer;
begin
  score := 0;
  for i := 1 to 5 do
  begin
    if userResponses[i] = answers[i] then
      score := score + 1;
  end;
end;

procedure DisplayResult;
begin
  writeln('Тест завершен.');
  writeln('Ваша оценка: ', score, ' из 5');
end;

begin
  InitializeQuestions;
  writeln('Добро пожаловать в программу проверки знаний правил русского языка!');
  writeln('Пожалуйста, выберите правильные буквы для пропусков в словах.');
  writeln;

  AdministerQuiz;
  CalculateScore;
  DisplayResult;
end.

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