Как написать программу в паскале нахождение площади треугольника

Содержание

Написать программу, которая вычисляет площадь треугольника, если известны координаты его углов. Ниже представлен рекомендуемый вид экрана во время работы программы.
Вычисление площади треугольника.
Введите координаты углов
(числа разделяйте пробелом):
х1,у1__>-2 5
x2,y2__>1 7
x3,y3__>5 -3

МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,134
И в чем заключается вопрос?

Что не получается?
Пишите язык программирования — это форум программистов , а не экстрасенсов. (<= это подпись )
Регистрация: 23.10.2010
Сообщений: 2,237

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

1. Если знаем координаты вершин, то можем найти длинны сторон — вспоминаем теорему Пифагора.
2. Зная длины сторон, можем получить площадь — вспоминаем теорему Герона.

Если не можем вспомнить, то копаемся в Интернете.

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

Это не сложно реализовать и .

Источник: www.programmersforum.ru

2012 PASCAL Линейные программы. Домашнее задание «Треугольник» Написать программу нахождения площади и периметра прямоугольного треугольника по его катетам. — презентация

Презентация на тему: » 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. Даны координаты центра круга и одной из точек на окружности. Написать программу вычисления площади круга.