задачки

[Pandemona18]

1)Найти длину окружности и площадь круга радиуса R

2)Найти площадь и периметр прямоугольника с катетами а и б

[Vanta11a]

halayi.net

[Вадим Мошев]

Pandemona18

Открывайте учебник по математике/геометрии и ищите.

[phomm]

длина окружности с = 2*pi*R площадь - S = pi*R*R
площадь ПРЯМОУГОЛЬНИКА СО СТОРОНАМИ а и б S = a*b его периметр Р = 2*(a+b)
площадь ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ а и б S = a*b/2 его периметр Р = a+b+SQRT(a*a+b*b)

как определитесь с пунктами, выделенными капсом, пишите, реализуем в коде (не за спасибо, конечно)

[vesta_eshly]

длина окружности с = 2*pi*R площадь - S = pi*R*R

program E10(input,output);
const= pi=3.14
var 
R:REAL;
S:REAL;
C:REAL;
begin
writeln ('введите значение радиуса R=');
read(R);
S = pi*R*R;
с = 2*pi*R;
writeln('результат:');
writeln('площадь = ' ,s:8:3)
writeln('длина окружности = ' ,с:8:3)
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[vesta_eshly]

площадь ПРЯМОУГОЛЬНИКА СО СТОРОНАМИ а и б S = a*b его периметр Р = 2*(a+b)
площадь ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ а и б S = a*b/2 его периметр Р = a+b+SQRT(a*a+b*b)

program E02(input,output);
var
a,b:REAL;
R:REAL;
S:REAL;
P:REAL;
begin
writeln ('введите значение a=');
writeln ('введите значение b=');
read(a,b);
S = a*b;
S1 = a*b/2;
Р = 2*(a+b);
Р1 = a+b+SQRT(a*a+b*b);
writeln('результат:');
writeln(' Площадь = ' ,s:8:3)
writeln(' Периметр = ' , p:8:3)
writeln('Площадь ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ = ' ,s1:8:3)
writeln('Периметр ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ = ' , p1:8:3)
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.