Вычисление площади геометрических фигур
Написать программу, которая в зависимости от выбора пользователя вычисляет площадь одной из трех геометрических фигур: прямоугольника, треугольника или круга.
Для вычисления площади прямоугольника вводятся длины двух его сторон, треугольника — трех сторон, круга — вводится диаметр.
Решение
Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2. В языке Pascal функция sprt() извлекает квадратный корень.
Площадь круга: area = pi * sqr(d) / 4. Функция sqr() возводит в квадрат.
Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3.
Для выбора ветви вычисления используется конструкция условного оператора if-else, которая включает вложенный оператор ветвления.
Программа на языке Паскаль:
Примеры выполнения программы
Примечание. При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
Поскольку выбор ветви определяется не выражением, а определенным значением целочисленной переменной, данную задачу также можно решить с помощью другого условного оператора — case.
Напишите, пожалуйста, программу на языке паскаль для вычисления площади и периметра квадрата
program 1;
uses crt;
var a,b :integer;
begin
s:=x*y;
p:=2*(x+y);
readln;
end.
как то вроде
забыл уже
Немного поздновато, но вдруг кому-то пригодится))
Program name;
Uses crt;
Var a, b, S, P :integer;
Begin
Clrscr;
Writeln (‘Даны стороны прямоугольника a и b.’);
Writeln (‘(1) Найти его площадь S=a*b.’);
Writeln (‘(2) Найти его периметр P=2*(a+b).’);
Write (‘Введите значение стороны а: ‘);
a := 0;
Readln (a);
Write (‘Введите значение стороны b: ‘);
b := 0;
Readln (b);
S := a*b;
P := 2*(a+b);
Writeln (‘(1) Площадь прямоугольника S=a*b =’, S);
Writeln (‘(2) Периметр прямоугольника P=2*(a+b) =’, P);
Readln (S, P);
End.
Вычисление площадей и периметров фигур
треугольника по данным трем сторонам,
прямоугольника по данным ширине и высоте,
круга по заданному радиусу.
Длины сторон и радиус вводятся пользователем.
Площади и периметры фигур можно найти по следующим формулам.
Периметр треугольника: P = a + b + c
Площадь треугольника: S = √(p(p-a)(p-b)(p-c)), где p = P/2
Периметр прямоугольника: P = 2(a + b)
Площадь прямоугольника: S = ab
Периметр круга: P = 2πr
Площадь круга: S = πr 2
Pascal
вычислить площадь фигуры паскаль
Язык Си
В библиотеке math.h нет константы числа π.
При компиляции с помощью gcc необходимо в конце команды указать ключ -lm (из-за math.h).
Python
вычислить площадь фигуры Python
КуМир
Basic-256
- Total 0
- 0
- 0
- 0
- 0
# помню я когда-то такое делал вроде даже с 3-мерными фигурами
pi = 3.14
def point_in_circle(x, y, r):
return r >= sqrt(pow(x, 2) + pow(y, 2)), sqrt(pow(x, 2)+pow(y, 2))
def P_triangle(a, b, c):
return a+b+c
def S_triangle(a, b, c):
p = P_triangle(a, b, c)/2
return sqrt(p*(p-a)*(p-b)*(p-c))
def P_rect(a, b):
return 2*(a+b)
def S_recr(a, b):
return a*b
def P_circle(R):
return 2*pi*R
def S_circle(R):
return pi*R**2
там я с другого задания зацепил)))
вычислить площадь фигуры паскаль
var
a,b,c: word;
w,h: word;
r: word;
P,S: real;
begin
readln(a,b,c);
P := (a + b + c) / 2;
S := sqrt(P * (P — a) * (P — b) * (P — c));
writeln(‘P=’,a+b+c,’; S=’,S:5:2);
readln(r);
P := 2 * pi * r;
S := pi * r * r;
writeln(‘P=’,P:5:2,’; S=’,S:5:2);
end.
5 3 5
P=13; S= 7.15
3 9
P=24; S=27
5
P=31.42; S=78.54
#define PI 3.14159
main() <
int a,b,c;
float p,S;
printf(«Длины сторон треугольника: «);
scanf(«%d%d%d», &a,&b,&c);
p = (a+b+c)/2;
S = sqrt(p*(p-a)*(p-b)*(p-c));
printf(«P = %d; S = %.2f\n\n», (a+b+c), S);
printf(«Ширина и высота прямоугольника: «);
scanf(«%d%d», &a,&b);
printf(«P = %d; S = %d\n\n», (a+b)*2, a*b);
printf(«Радиус круга: «);
scanf(«%d», &a);
printf(«P = %.2f; S = %.2f\n», 2*PI*a, PI*pow(a,2));
>
Длины сторон треугольника: 4 4 6
P = 14; S = 7.94
Ширина и высота прямоугольника: 2 5
P = 14; S = 10
Радиус круга: 3
P = 18.85; S = 28.27
В библиотеке math.h нет константы числа π.
При компиляции с помощью gcc необходимо в конце команды указать ключ -lm (из-за math.h).
вычислить площадь фигуры Python
print(«Введите длины сторон треугольника: «)
a = int(input(«a b c P=%d; S=%.2f» % (a+b+c, s))
print(«Введите длины сторон прямоугольника: «)
a = int(input(«a b P=%d; S=%d» % ((a+b)*2, a*b))
print(«Введите радиус круга: «)
r = int(input(«r P=%.2f; S=%.2f» % (2*math.pi*r, math.pi*r**2))
Введите длины сторон треугольника:
a=2
b=4
c=3
P=9; S=2.90
Введите длины сторон прямоугольника:
a=6
b=7
P=26; S=42
Введите радиус круга:
r=3
P=18.85; S=28.27
# найти площади и периметры геометрических фигур
decimal 2
# треугольник
print «ТРЕУГОЛЬНИК»
input » первая сторона: «, a
input » вторая сторона: «, b
input » третья сторона: «, c
p = a + b + c
print «Периметр: » + p
p = p / 2
s = sqr(p*(p-a)*(p-b)*(p-c))
print «Площадь: » + s
print
# прямоугольник
print «ПРЯМОУГОЛЬНИК»
input » ширина: «, a
input » высота: «, b
print «Периметр: » + ((a + b) * 2)
print «Площадь: » + (a * b)
print
# круг
print «КРУГ»
input » радиус: «, r
print «Периметр: » + (2 * pi * r)
print «Площадь: » + (pi * r^2)
ТРЕУГОЛЬНИК
первая сторона: 5
вторая сторона: 5
третья сторона: 5
Периметр: 15
Площадь: 10.83
ПРЯМОУГОЛЬНИК
ширина: 5
высота: 5
Периметр: 20
Площадь: 25