Вычислить площадь и периметр прямоугольного треугольника по двум сторонам
📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET
🟩 Вычисление периметра и площади квадрата. Четыре варианта решения задачи. В том числе вариант решения на PascalABC.NET, без использования устаревших конструкций (с точки зрения этой версии).
Четыре варианта решения задач: 1) по двум катетам – только вычисление, 2) по катету и гипотенузе, 3) проверка условия, 4) использование циклов while и repeat
Задача №1. По двум катетам
Задание:
Вычислить площадь и периметр прямоугольного треугольника по двум катетам
Program Triangle1;
Var K1, K2, G, Perimeter, Square : Real;
begin
writeln(‘Площадь и периметр прямоугольного треугольника ‘);
write(‘Введите катеты треугольника ‘);
readln(K1, K2);
G := Sqrt(Sqr(K1) + Sqr(K2));
Perimeter := K1 + K2 + G;
Square := (K1 * K2) / 2;
writeln(‘Периметр треугольника ‘, Perimeter);
writeln(‘Площадь треугольника ‘, Square);
end.
Задача №2. По катету и гипотенузе
Задание:
Вычислить площадь и периметр прямоугольного треугольника по катету и гипотенузе
Program Triangle1;
Var K1, K2, G, Perimeter, Square : Real;
begin
writeln(‘Площадь и периметр прямоугольного треугольника ‘);
write(‘Введите катет треугольника ‘);
readln(K1);
write(‘Введите гипотенузу треугольника ‘);
readln(G);
K2 := Sqrt(Sqr(G) + Sqr(K1));
Perimeter := K1 + K2 + G;
Square := (K1 * K2) / 2;
writeln(‘Периметр треугольника ‘, Perimeter:8:5);
writeln(‘Площадь треугольника ‘, Square:8:5);
end.
Задача №3. По гипотенузе и одному из катетов. Использование оператора if
Задание:
Вычислить площадь и периметр прямоугольного треугольника по гипотенузе и одному из катетов
Проверить, существует ли треугольник, с введёнными значениями сторон
Program Triangle3;
Var
K1, K2, G, Perimeter, Square : Real;
begin
writeln(‘Площадь и периметр прямоугольного треугольника ‘);
write(‘Введите катет треугольника ‘);
readln(K1);
write(‘Введите гипотенузу треугольника ‘);
readln(G);
if (K1 < G) then begin
K2 := Sqrt(Sqr(G) + Sqr(K1));
Perimeter := K1 + K2 + G;
Square := (K1 * K2) / 2;
writeln(‘Периметр треугольника ‘, Perimeter:12:6);
writeln(‘Площадь треугольника ‘, Square:12:6);
end
else writeln(‘Гипотенуза должна быть больше катета’);
end.
Замечание:
В процедуре вывода writeln используется форматированный вывод переменной. Perimeter:12:6 обозначает, что для вывода значения переменной Perimeter будет использоваться 12 позиций, в том числе 6 после запятой.
Задача №4. Использование циклов while и repeat
Задание:
1. Вычислить площадь и периметр прямоугольного треугольника по гипотенузе и одному из катетов
2. Если введённое значение катета больше гипотенузы, то сообщить об ошибке.
3. Спросить у пользователя “Продолжить вычисления?”.
Program Triangle4;
Var
K1, K2, G, Perimeter, Square : Real;
Calc : Boolean;
Answer : Char;
begin
Calc := True;
while Calc do begin
writeln(‘Площадь и периметр прямоугольного треугольника ‘);
write(‘Введите катет треугольника ‘);
readln(K1);
write(‘Введите гипотенузу треугольника ‘);
readln(G);
if (K1 < G) then begin
K2 := Sqrt(Sqr(G) + Sqr(K1));
Perimeter := K1 + K2 + G;
Square := (K1 * K2) / 2;
writeln(‘Периметр треугольника ‘, Perimeter:8:5);
writeln(‘Площадь треугольника ‘, Square:8:5);
end
else writeln(‘Катет не может быть больше или равен гипотенузе’);
repeat
write(‘Продолжить вычисления Y / N ‘);
readln(Answer);
if (Answer = ‘N’) or (Answer = ‘n’) then Calc := False;
until (Answer = ‘Y’) or (Answer = ‘y’) or (Answer = ‘N’) or (Answer = ‘n’)
end;
writeln(‘Программа завершила работу.’);
end.
📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET
🟩 Вычисление периметра и площади квадрата. Четыре варианта решения задачи. В том числе вариант решения на PascalABC.NET, без использования устаревших конструкций (с точки зрения этой версии).
Рекламный блок
Информационный блок
На чтение 2 мин Просмотров 4.7к. Опубликовано 19.03.2022
Содержание
- Введение
- Импорт модулей
- Ввод катетов
- Нахождение гипотенузы, площади, периметра
- Гипотенуза
- Площадь
- Периметр
- Вывод площади и периметра
- Заключение
Введение
Начинаю новую рубрику, в которой будет рассматриваться решение простых задач на python.
В данной статье мы с Вами решим задачу с нахождением площади и периметра прямоугольного треугольника.
Импорт модулей
На самом деле нам понадобится всего один модуль, а именно модуль math из которого мы возьмём sqrt.
Импортируем:
Ввод катетов
Для того, чтобы пользователь мог вводить длины катетов, создаём переменные AB и AC с типом данных float.
Код:
AB = float(input("Длина первого катета: "))
AC = float(input("Длина второго катета: "))Нахождение гипотенузы, площади, периметра
Гипотенуза
Для нахождения гипотенузы вспомним теорему Пифагора – квадрат гипотенузы равен сумме квадратов катетов. Следовательно создадим переменную BC, которая будет являться гипотенузой и найдём её по теореме.
Код:
BC = sqrt(AB ** 2 + AC ** 2)** – оператор возведения в степень
sqrt – функция нахождения квадратного корня из модуля math
Площадь
Площадь прямоугольного треугольника равна половине произведения гипотенузу на высоту, проведенную к гипотенузе. Т.е. формула будет выглядеть так:
Создадим переменную S, в которой будет храниться значение площади, найденное по формуле.
Код:
Периметр
Как мы знаем, для нахождения периметра нужно всего навсего сложить все стороны, а формула выглядит так:
Создадим переменную P, в которой будет храниться значение периметра, найденное по формуле.
Код:
Вывод площади и периметра
Последнее что нам осталось сделать, так это вывести результаты. Для этого мы конечно же будем использовать функцию print().
Код:
print("Площадь треугольника: ", S)
print("Периметр треугольника: ", P)Заключение
В данной статье мы с Вами нашли периметр и площадь прямоугольного треугольника с помощью python. Спасибо всем, кто читал, удачи Вам 😉
Формулировка задачи:
написать программу в которой компьютер должен вывести “введите длину треугольника” и зажечь курсор после ввода в новой строке “введите ширину” и зажечь курсор а затем с новой строке “плоащадь равна и значание” (версию не знаю,мы пишем в тетради)(потом переносим в пк)
Код к задаче: «’Площадь прямоугольного треугольника»
textual
Листинг программы
uses
crt;
var
a, b, s: real;
begin
CursorOff;
write('Введите длину треугольника: ');
CursorOn;
readln(a);
CursorOff;
write('Введите ширину треугольника: ');
CursorOn;
readln(b);
s := (a + b) / 2;
writeln('Площадь прямоугольного треугольника: ', s);
end.
Найти площадь и периметр прямоугольного треугольника
Найти площадь и периметр прямоугольного треугольника по двум заданным катетам.
Решение задачи на языке программирования Python
Площадь прямоугольного треугольника равна половине площади прямоугольника, стороны которого равны длинам катетов.
Поэтому, если площадь прямоугольника равна произведению его длины на ширину, то площадь соответствующего ему прямоугольного треугольника будет равна половине от этого произведения:
Периметр находится путем сложения длин всех сторон треугольника:
P = a + b + c
Поскольку из условия задачи известны только длины катетов, предварительно следует вычислить длину гипотенузы по теореме Пифагора:
c2 = a2 + b2
Чтобы извлечь квадратный корень в Python, можно воспользоваться функцией sqrt из модуля math.
import math a = input("Длина первого катета: ") b = input("Длина второго катета: ") a = float(a) b = float(b) c = math.sqrt(a ** 2 + b ** 2) S = (a * b) / 2 P = a + b + c print("Площадь треугольника: %.2f" % S) print("Периметр треугольника: %.2f" % P)
Пример выполнения программы:
Длина первого катета: 5.4 Длина второго катета: 2.1 Площадь треугольника: 5.67 Периметр треугольника: 13.29
Больше задач в PDF
Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.
Давайте посмотрим на формулы :
1. Это у нас будет периметр :
Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :
2. Это у нас площадь :
И так формулы есть, теперь можно решать.
Для того чтобы решить задачу нам понадобятся следующие переменные :
Начнем мы с каркаса нашей программы
var
a, b, c, S, P : real;
begin
write('Введите катет a : ');readln(a);
write('Введите катет b : ');readln(b);
end.
Тут мы объявили все переменные и попросили пользователя ввести наши катеты. Дальше найдем гипотенузу:
c := sqrt(sqr(a)+sqr(b));
Информация sqrt и sqr — sqrt считает корень, sqr возводит число в квадрат
Ну и всё, теперь осталось только подставить всё в формулы :
P := a + b + c;
S := (a*b)/2;
writeln('Периметр равен : ', P);
writeln('Площадь равна : ', S);
Всё решение задачи Pascal
var
a, b, c, S, P : real;
begin
write('Введите катет a : ');readln(a);
write('Введите катет b : ');readln(b);
c := sqrt(sqr(a)+sqr(b));
P := a + b + c;
S := (a*b)/2;
writeln('Периметр равен : ', P);
writeln('Площадь равна : ', S);
readln;
end.
Предыдущая
ПрограммированиеЗадачи по Pascal. Подсчитать, сколько элементов массива А1,А2…А40 больше среднего арифметического всех его элементов и сколько элементов меньше.
Следующая
ПрограммированиеЗадачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.
