Как составить программу в паскале вычисляющую периметр треугольника

Вычисление площадей и периметров фигур

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

Длины сторон и радиус вводятся пользователем.

Площади и периметры фигур можно найти по следующим формулам.

Периметр треугольника: 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

вычислить площадь фигуры паскаль

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 = %.2fnn», (a+b+c), S);
printf(«Ширина и высота прямоугольника: «);
scanf(«%d%d», &a,&b);
printf(«P = %d; S = %dnn», (a+b)*2, a*b);
printf(«Радиус круга: «);
scanf(«%d», &a);
printf(«P = %.2f; S = %.2fn», 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 = int(input(«b=»))
c = int(input(«c=»))
p = (a+b+c)/2
s = math.sqrt(p*(p-a)*(p-b)*(p-c))
print(«P=%d; S=%.2f» % (a+b+c, s))

print(«Введите длины сторон прямоугольника: «)
a = int(input(«a=»))
b = int(input(«b=»))
print(«P=%d; S=%d» % ((a+b)*2, a*b))

print(«Введите радиус круга: «)
r = int(input(«r=»))
print(«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

алг фигуры
нач
цел a,b,c
ввод a, b, c
вещ p, S
p := (a+b+c)/2
S := sqrt(p*(p-a)*(p-b)*(p-c))
вывод «P=», p*2, «; S=», S, нс

цел w, h
ввод w, h
вывод «P=», (w+h)*2, «; S=», w*h, нс

цел r
ввод r
p := 2 * 3.14 * r
S := 3.14 * r**2
вывод «P=», p, «; S=», S, нс
кон

5 7 9
P=21; S=17.41228
4 9
P=26; S=36
5
P=31.4; S=78.5

Не нашлось константы для числа π

# найти площади и периметры геометрических фигур
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

КРУГ
радиус: 5
Периметр: 31.42
Площадь: 78.54

Решение задач. День третий. Задачи Begin21-30

Здравствуйте, дорогие читателинашего сайта. На этой недели счетчик посещаемости наконец-то сдвинулся с мертвой точки. Это не может не радовать. Если вы новоиспеченный постоянный посетитель этого сайта, оставьте комментарий к любому посту, чтобы мы не думали, что на нашем сайте обитают только боты 🙂 Ну что ж, приступим к решению задач Begin21-30.

Begin21. Даны координаты трех вершин треугольника: (x₁, y₁), (x₂, y₂), (x₃, y₃). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения пло щади треугольника со сторонами a, b, c использовать формулу Герона: S = √(p ⋅ ( p − a) ⋅ ( p − b) ⋅ ( p − c)), где p — полупериметр.

На первый взгляд задача может показаться весьма и весьма трудной, и для того, чтобы не заблудиться в решении, составим план наших действий:

1. Для того, чтобы найти периметр треугольника, находим расстояния между всеми вершинами (ведь расстояния между вершинами это и есть стороны) по формуле √((x₂ — x₁) 2 +(y₂ — y₁) 2 ), а затем суммируем их.
2. Для того, чтобы найти площадь, используем формулу Герона.

Begin22°. Поменять местами содержимое переменных A и B и вывести новые значения A и B.

Эта классическая задача является основой более сложных алгоритмов. Представьте, у Вас есть два кувшина: первый наполнен водой, второй — соком. Требуется поменять жидкости местами, то есть, перелить воду во второй кувшин, а сок — в первый. Как Вы решите данную проблему? Скорее всего, Вы возьмете третий кувшин и временно перельете в него содержимое одного из кувшинов. Так и в Паскале: сначала мы присваиваем значение любой из двух переменных третьей, а уже потом перемещаем значения переменных.

Вода и персиковый сок

Begin23. Даны переменные A, B, C. Изменить их значения, переместив содер жимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C.

И снова мы используем дополнительную переменную.

Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C.

Задача, противоположная предыдущей.

Begin25. Найти значение функции y = 3·x 6 – 6·x 2 – 7 при данном значении x.

И снова мы прибегаем к помощи функций power и sqr .

Begin26. Найти значение функции y = 4·(x–3) 6 – 7·(x–3) 3 + 2 при данном значе нии x.

Begin27°. Дано число A. Вычислить A 8 , используя вспомогательную перемен ную и три операции умножения. Для этого последовательно находить A 2 , A 4 , A 8 . Вывести все найденные степени числа A.

В данной задачи требуется использовать вспомогательную переменную и три операции умножения, поэтому мы не можем использовать функцию power.

Begin28. Дано число A. Вычислить A 15 , используя две вспомогательные пере менные и пять операций умножения. Для этого последовательно находить A 2 , A 3 , A 5 , A 10 , A 15 . Вывести все найденные степени числа A.

Эта задача аналогична предыдущей, но немного сложнее .

Begin29. Дано значение угла α в градусах (0 этого же угла в радианах, учитывая, что 180° = π радианов. В качестве зна чения π использовать 3.14.

Две следующие задачи является актуальными для нас. Ведь функции sin, cos, arctan работают только с радианами. И программа, которая быстро переводит градусы в радианы или радианы в градусы, очень ценна. А теперь формула: Радианы = Градусы * pi / 180.

Begin30. Дано значение угла α в радианах (0 этого же угла в градусах, учитывая, что 180° = π радианов. В качестве зна чения π использовать 3.14.

Формула нахождения градусов следует из предыдущей формулы : Градусы = Радианы * 180 / pi. Кстати, в решении данной задачи я использую стандартное значение Pi = 3.14159265358979

На сегодня все! Мы с вами решили целых десять задач. Конечно, они не очень сложные, но ведь цель этих задач познакомить вас с основными функциями, вводом и выводом и показать вам то, как легко и интересно программировать на любом из языков программирования.

Периметр треугольника на паскале

Задачи по Pascal. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.

Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.

Давайте посмотрим на формулы :

1. Это у нас будет периметр :

Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :

2. Это у нас площадь :

И так формулы есть, теперь можно решать.

Для того чтобы решить задачу нам понадобятся следующие переменные :

1. Переменные a и b — для катетов
2. Переменная c — для гипотенузы
3. Переменная S — для площади
4. Переменная P — для периметра

Вычисление площадей и периметров фигур

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

Длины сторон и радиус вводятся пользователем.

Площади и периметры фигур можно найти по следующим формулам.

Периметр треугольника: 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

вычислить площадь фигуры паскаль

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

Длины сторон треугольника: 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 = int(input(«b=»))
c = int(input(«c=»))
p = (a+b+c)/2
s = math.sqrt(p*(p-a)*(p-b)*(p-c))
print(«P=%d; S=%.2f» % (a+b+c, s))

print(«Введите длины сторон прямоугольника: «)
a = int(input(«a=»))
b = int(input(«b=»))
print(«P=%d; S=%d» % ((a+b)*2, a*b))

print(«Введите радиус круга: «)
r = int(input(«r=»))
print(«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

алг фигуры
нач
цел a,b,c
ввод a, b, c
вещ p, S
p := (a+b+c)/2
S := sqrt(p*(p-a)*(p-b)*(p-c))
вывод «P=», p*2, «; S=», S, нс

цел w, h
ввод w, h
вывод «P=», (w+h)*2, «; S=», w*h, нс

цел r
ввод r
p := 2 * 3.14 * r
S := 3.14 * r**2
вывод «P=», p, «; S=», S, нс
кон

5 7 9
P=21; S=17.41228
4 9
P=26; S=36
5
P=31.4; S=78.5

Не нашлось константы для числа π

# найти площади и периметры геометрических фигур
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

КРУГ
радиус: 5
Периметр: 31.42
Площадь: 78.54

Решение задач. День третий. Задачи Begin21-30

Здравствуйте, дорогие читателинашего сайта. На этой недели счетчик посещаемости наконец-то сдвинулся с мертвой точки. Это не может не радовать. Если вы новоиспеченный постоянный посетитель этого сайта, оставьте комментарий к любому посту, чтобы мы не думали, что на нашем сайте обитают только боты 🙂 Ну что ж, приступим к решению задач Begin21-30.

Begin21. Даны координаты трех вершин треугольника: (x₁, y₁), (x₂, y₂), (x₃, y₃). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения пло щади треугольника со сторонами a, b, c использовать формулу Герона: S = √(p ⋅ ( p − a) ⋅ ( p − b) ⋅ ( p − c)), где p — полупериметр.

На первый взгляд задача может показаться весьма и весьма трудной, и для того, чтобы не заблудиться в решении, составим план наших действий:

1. Для того, чтобы найти периметр треугольника, находим расстояния между всеми вершинами (ведь расстояния между вершинами это и есть стороны) по формуле √((x₂ — x₁) 2 +(y₂ — y₁) 2 ), а затем суммируем их.
2. Для того, чтобы найти площадь, используем формулу Герона.

Begin22°. Поменять местами содержимое переменных A и B и вывести новые значения A и B.

Эта классическая задача является основой более сложных алгоритмов. Представьте, у Вас есть два кувшина: первый наполнен водой, второй — соком. Требуется поменять жидкости местами, то есть, перелить воду во второй кувшин, а сок — в первый. Как Вы решите данную проблему? Скорее всего, Вы возьмете третий кувшин и временно перельете в него содержимое одного из кувшинов. Так и в Паскале: сначала мы присваиваем значение любой из двух переменных третьей, а уже потом перемещаем значения переменных.

Вода и персиковый сок

Begin23. Даны переменные A, B, C. Изменить их значения, переместив содер жимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C.

И снова мы используем дополнительную переменную.

Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C.

Задача, противоположная предыдущей.

Begin25. Найти значение функции y = 3·x 6 – 6·x 2 – 7 при данном значении x.

И снова мы прибегаем к помощи функций power и sqr .

Begin26. Найти значение функции y = 4·(x–3) 6 – 7·(x–3) 3 + 2 при данном значе нии x.

Begin27°. Дано число A. Вычислить A 8 , используя вспомогательную перемен ную и три операции умножения. Для этого последовательно находить A 2 , A 4 , A 8 . Вывести все найденные степени числа A.

В данной задачи требуется использовать вспомогательную переменную и три операции умножения, поэтому мы не можем использовать функцию power.

Begin28. Дано число A. Вычислить A 15 , используя две вспомогательные пере менные и пять операций умножения. Для этого последовательно находить A 2 , A 3 , A 5 , A 10 , A 15 . Вывести все найденные степени числа A.

Эта задача аналогична предыдущей, но немного сложнее .

Begin29. Дано значение угла α в градусах (0 этого же угла в радианах, учитывая, что 180° = π радианов. В качестве зна чения π использовать 3.14.

Две следующие задачи является актуальными для нас. Ведь функции sin, cos, arctan работают только с радианами. И программа, которая быстро переводит градусы в радианы или радианы в градусы, очень ценна. А теперь формула: Радианы = Градусы * pi / 180.

Begin30. Дано значение угла α в радианах (0 этого же угла в градусах, учитывая, что 180° = π радианов. В качестве зна чения π использовать 3.14.

Формула нахождения градусов следует из предыдущей формулы : Градусы = Радианы * 180 / pi. Кстати, в решении данной задачи я использую стандартное значение Pi = 3.14159265358979

На сегодня все! Мы с вами решили целых десять задач. Конечно, они не очень сложные, но ведь цель этих задач познакомить вас с основными функциями, вводом и выводом и показать вам то, как легко и интересно программировать на любом из языков программирования.