1. Вычислите радиус окружности, зная её длину. Напишите программу на Паскале.
с=31.4000
2. Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон.

1. Вычисление радиуса окружности по длине (c = 31.4)

Программа на Паскале:

program radius;
var c, r: real;
begin
c := 31.4;
r := c / (2 * Pi);
writeln('Радиус = ', r:0:4);
end.

Пояснение: радиус r = c / (2π). В Паскале константа Pi встроена.

2. Площадь и периметр прямоугольника

Программа:

program rectangle;
var a, b, S, P: real;
begin
write('Введите длины сторон: ');
readln(a, b);
S := a * b;
P := 2 * (a + b);
writeln('Площадь = ', S:0:2, ', периметр = ', P:0:2);
end.

Программа запрашивает две стороны, вычисляет площадь и периметр, выводит результат.

0 0 Пожаловаться