Question

Задание №1. Найдите ошибки в программе:
Program square;
var A, B : integer;
Begin
writeln ( ‘ введите длины сторон прямоуг-ка ’ );
read ( R );
S = A * B ;
readln ( площадь прямоуг-ка = S );
End

Answer 1

Привет! Спасибо за вопрос. Давай разберем ошибки в данной программе по порядку и исправим их.

1) Во-первых, название программы должно начинаться с ключевого слова "program" (с маленькой буквы) и заканчиваться точкой с запятой. Исправим это:

Program square;

2) Во-вторых, объявление переменных должно быть после заголовка программы. Правильно объявим переменные:

var
A, B, S: integer;

3) В следующей строке нужно исправить: "writeln ( ‘ введите длины сторон прямоуг-ка ’ );". Во-первых, кавычки должны быть двойными (") вместо одинарных (‘). Во-вторых, ошибка в слове "прямоуг-ка". Исправим это:

writeln ( "Введите длины сторон прямоугольника:" );

4) В следующей строке есть ошибка в функции чтения значения переменной A. Вместо "read ( R );" должно быть "read ( A );". Исправим:

read ( A );

5) В следующей строке пропущена операция умножения, так как переменные A и B нужно перемножить, чтобы получить площадь. Заменим "=" на "*", чтобы исправить эту ошибку:

S := A * B;

6) В следующей строке нужно исправить вывод площади прямоугольника. Необходимо удалить непонятную нотацию "площадь прямоуг-ка = S" и заменить ее на понятный текст. Исправим это:

writeln ( "Площадь прямоугольника равна:", S );

7) В конце программы нужно добавить ключевое слово "end." для завершения кода. Исправим:

End.

Итак, опишем поправленный вариант программы:

Program square;

var
A, B, S: integer;

Begin
writeln ( "Введите длины сторон прямоугольника:" );
read ( A );
read ( B );
S := A * B ;
writeln ( "Площадь прямоугольника равна:", S );
End.

Вот и все! Теперь программа должна работать правильно и корректно выводить площадь прямоугольника. Если у тебя есть еще вопросы, не стесняйся задавать!