Решение:
Программа на языке Pascal:
pascal
program Rectangle;
var
a, b, area, perimeter: real;
begin
// Ввод длин сторон прямоугольника
write('Введите длину первой стороны: ');
readln(a);
write('Введите длину второй стороны: ');
readln(b);
// Вычисление площади
area := a * b;
// Вычисление периметра
perimeter := 2 * (a + b);
// Вывод результатов
writeln('Площадь прямоугольника: ', area:0:2);
writeln('Периметр прямоугольника: ', perimeter:0:2);
readln;
end.
Объяснение:
1. `program Rectangle;` - объявление программы с именем `Rectangle`.
2. `var a, b, area, perimeter: real;` - объявление переменных `a` и `b` для хранения длин сторон прямоугольника, а также переменных `area` для площади и `perimeter` для периметра. Тип `real` используется для хранения вещественных чисел (с плавающей точкой).
3. `write('Введите длину первой стороны: ');` - вывод сообщения на экран с просьбой ввести длину первой стороны.
4. `readln(a);` - считывание введенного значения и сохранение его в переменной `a`.
5. Аналогично, вводятся значения для переменной `b`.
6. `area := a * b;` - вычисление площади прямоугольника как произведение длин его сторон и присвоение результата переменной `area`.
7. `perimeter := 2 * (a + b);` - вычисление периметра прямоугольника как удвоенная сумма длин его сторон и присвоение результата переменной `perimeter`.
8. `writeln('Площадь прямоугольника: ', area:0:2);` - вывод на экран значения площади, округленного до двух знаков после запятой. `:0:2` форматирует вывод числа с плавающей точкой, показывая ровно два знака после десятичной точки.
9. `writeln('Периметр прямоугольника: ', perimeter:0:2);` - вывод на экран значения периметра, округленного до двух знаков после запятой.
10. `readln;` - ожидание нажатия клавиши Enter перед закрытием окна консоли.
Формулы, используемые в программе:
* Площадь прямоугольника: ( S = a cdot b )
* Периметр прямоугольника: ( P = 2 cdot (a + b) )
где ( a ) и ( b ) - длины сторон прямоугольника.