Вычислить площадь и периметр прямоугольного треугольника по двум сторонам
📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода 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, без использования устаревших конструкций (с точки зрения этой версии).
Рекламный блок
Информационный блок
Формулировка задачи:
написать программу в которой компьютер должен вывести «введите длину треугольника» и зажечь курсор после ввода в новой строке «введите ширину» и зажечь курсор а затем с новой строке «плоащадь равна и значание» (версию не знаю,мы пишем в тетради)(потом переносим в пк)
Код к задаче: «’Площадь прямоугольного треугольника»
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.
Нужно составить программу для нахождения периметра и площади треугольника.Вводимые данные: a,b — стороны прямоугольного треугольника,c — гипотенуза треугольника.(P=a+b+c; S(1 под чертой 2)a,b)
program plosh;
var
a,b,c: real;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln('Введите сторону c');
readln(c);
writeln('S=',(a*b)/2:0:2);
writeln('P=',(a+b+c):0:2);
end.
Похожие записи/страницы:
- Вычисление периметра и площади равностороннего треугольника по стороне — Pascal(Паскаль)
- Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c =√(a2 + b2), P = a + b + c -…
- Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е.…
- Написать программу с использованием процедуры для вычисления периметра 2-ух треугольников — Pascal(Паскаль)
- Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, используя формулу…
- Даны два треугольника ABC (стороны a,b,c) и RLF (стороны r,l,f). Переменной S присвоить значение -1,если площадь…
- Используя типы TPoint, TTriangle и функции Leng и Area, описать функцию Dist(P, A, B) вещественного типа (P, A, B —…
- Найти площадь и периметр прямоугольника с катетами а и б — Pascal(Паскаль)
Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык 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. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.
Задачи по Pascal. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.
Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.
Давайте посмотрим на формулы :
1. Это у нас будет периметр :
Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :
2. Это у нас площадь :
И так формулы есть, теперь можно решать.
Для того чтобы решить задачу нам понадобятся следующие переменные :
- Переменные a и b — для катетов
- Переменная c — для гипотенузы
- Переменная S — для площади
- Переменная P — для периметра
Площадь прямоугольного треугольника паскаль
Задачи по Pascal. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.
Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.
Давайте посмотрим на формулы :
1. Это у нас будет периметр :
Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :
2. Это у нас площадь :
И так формулы есть, теперь можно решать.
Для того чтобы решить задачу нам понадобятся следующие переменные :
- Переменные a и b — для катетов
- Переменная c — для гипотенузы
- Переменная S — для площади
- Переменная P — для периметра
Вычисление площадей геометрических фигур
Задача
Пример программы, позволяющей вычислять площади трех геометрических фигур: прямоугольника, треугольника и круга.
Решение
Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2
Площадь круга: area = pi * sqr(d) / 4
Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3.
Для выбора ветви вычисления используется конструкция if-else, которая включает вторую конструкцию if-else, а та, в свою очередь, — третью:
Программа на языке Паскаль:
При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
2012 PASCAL Линейные программы. Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам. — презентация
Презентация была опубликована 8 лет назад пользователемИнна Долматова
Похожие презентации
Презентация на тему: » 2012 PASCAL Линейные программы. Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам.» — Транскрипт:
1 2012 PASCAL Линейные программы
2 Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам a b S — ? P — ? S = ½ab P = a+b+c с = a 2 +b 2
3 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S); writeln(Периметр =,P); end.
4 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S:5:1); writeln(Периметр =,P:5:1); end.
5 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S: 6 :1); writeln(Периметр =,P: 10 : 4 ); end.
6 Program Treugolnik; var a,b,c,S,P:real; begin writeln(Введите катеты); readln(a,b); S:=1/2*a*b; c:=sqrt(a*a+b*b); P:=a+b+c; writeln(Площадь =,S: 0 :1); writeln(Периметр =,P: 0 :1); end.
7 Оператор вывода write( параметр, параметр, …, параметр ); a:=10; write(2, +, a, =, a+2); writeln(1,2,3); writeln(1,, 2,, 3, ); writeln(1:3, 2:3, 3:3); write(pi:6:2); write(pi:1:2); write(pi:0:0) 2+10=
8 Что будет напечатано в результате? begin write(1);write(2,3);writeln(4); write(5);writeln(6,7);writeln; write(8) end begin write(1);writeln(2,3);write(4); writeln(5,6);write(7);writeln(8,9) end
9 Функции в Паскале |x| x x 2 sinx cosx tgx arctgx e x Lnx pi abs(x) sqrt(x) sqr(x) sin(x) cos(x) tan(x) arctan(x) exp(x) ln(x) pi
10 Запишите по правилам языка Pascal следующие арифметические выражения: (abs(x-3)+sqr(sin(x)))/(8*sqrt(sqr(x)+1)) a+b/(c+d/(e+f/(g*h)))
11 Возведение в степень x 4 x 9 x x sqr(sqr(x)) sqr(sqr(sqr(x)))*x exp(37*ln(x)) exp((1+sqrt(x))*ln(2)) exp(1/5*ln(1+sqr(x))) a b =exp(b*ln(a))
12 n:=k div m 20 div 6 = 30 div 11 = 40 div 8 = 3 div 5 = Нахождение целой части от деления (целое деление)
13 m:= k mod n 20 mod 6 = 30 mod 11 = 40 mod 8 = 3 mod 5 = Нахождение остатка от деления
14 Определите значения выражений 16 div 4 * * 2 16 div (4 * 2) mod 5 (1 + 19) mod 5 3 div mod div 5 mod 2 ( div 5) mod
15 Запишите условие на языке Паскаль: А – четное число В – нечетное число А и В имеют одинаковую четность A mod 2 = 0 B mod 2 0 B mod 2 = 1 A mod 2 = = B mod 2
16 Задачи 1.Найти сумму цифр заданного трехзначного числа 2.Дано четырехзначное число. Получить число, записанное в обратном порядке (например: ) 3. Дано количество секунд с начала суток. Вычислить текущее время в виде количества часов, минут и секунд. 4. Даны координаты центра круга и одной из точек на окружности. Написать программу вычисления площади круга. 5.Написать программу, которая выводит степени числа ПИ.
17 Домашнее задание выучить теоретический материал; Задачи: 1.Даны два числа. Найти среднее арифметическое этих чисел. 2.Написать программу, которая выводит степени числа ПИ.
Вычисление площадей геометрических фигур
Задача
Пример программы, позволяющей вычислять площади трех геометрических фигур: прямоугольника, треугольника и круга.
Решение
Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2
Площадь круга: area = pi * sqr(d) / 4
Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3.
Для выбора ветви вычисления используется конструкция if-else, которая включает вторую конструкцию if-else, а та, в свою очередь, — третью:
Программа на языке Паскаль:
При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
http://b4.cooksy.ru/articles/ploschad-pryamougolnogo-treugolnika-paskal
http://pas1.ru/area