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

Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3).
Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения
площади треугольника со сторонами a, b, c использовать формулу Герона:
S =
√
p·(p − a)·(p − b)·(p − c),
где p = (a + b + c)/2 — полупериметр.

Код (C/C++)

Скопировать код

#include #include using namespace std; int main()< double x1,y1,x2,y2,x3,y3,a,b,c,P,p,S; cout > x1 >> y1; cout > x2 >> y2; cout > x3 >> y3; a = sqrt(pow((x1-x2),2)+pow((y1-y2),2)); b = sqrt(pow((x1-x3),2)+pow((y1-y3),2)); c = sqrt(pow((x2-x3),2)+pow((y2-y3),2)); P = a+b+c; p = P/2; S = sqrt(p*(p-a)*(p-b)*(p-c)); cout

Код (Python)

Скопировать код

import numpy as np import math def Distance(A,B): return math.sqrt((A[0] — B[0])**2 + (A[1] — B[1])**2) x1,x2,x3,y1,y2,y3 = list(np.random.choice(range(-10, 11), 6)) #x1,x2,x3,y1,y2,y3 = [0,3,0,0,0,4] while (x3-x1)*(y2-y1) == (y3-y1)*(x2-x1): x1,x2,x3,y1,y2,y3 = list(np.random.choice(range(-10, 11), 6)) print(«Вершина A (x1, y1): (,)».format(x1, y1)) print(«Вершина B (x2, y2): (,)».format(x2, y2)) print(«Вершина C (x3, y3): (,)».format(x3, y3)) d_AB = Distance([x1,y1],[x2,y2]) print(«Длина AB: «, d_AB) d_AC = Distance([x1,y1],[x3,y3]) print(«Длина AC: «, d_AC) d_BC = Distance([x2,y2],[x3,y3]) print(«Длина BC: «, d_BC) p = (d_AB + d_AC + d_BC)/2 print(«Полупериметр: «, p) S = math.sqrt(p*(p-d_AB)*(p-d_AC)*(p-d_BC)) print(«Площадь: «, S)

Код (Pascal)

Скопировать код

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

program Begin21; var x1,y1,x2,y2,x3,y3,a,b,c,P,pp,S: Real; begin Writeln(‘Введите значение координат певой точки: ‘); Write(‘Введите значение x: ‘); Readln(x1); Write(‘Введите значение y: ‘); Readln(y1); Writeln(‘Введите значение координат второй точки: ‘); Write(‘Введите значение x: ‘); Readln(x2); Write(‘Введите значение y: ‘); Readln(y2); Writeln(‘Введите значение координат третьей точки: ‘); Write(‘Введите значение x: ‘); Readln(x3); Write(‘Введите значение y: ‘); Readln(y3); a:=sqrt(sqr(x1-x2)+sqr(y1-y2)); b:=sqrt(sqr(x2-x3)+sqr(y2-y3)); c:=sqrt(sqr(x3-x1)+sqr(y3-y1)); P:=a+b+c; Writeln(‘Периметр треугольника равен: ‘,P); pp:=(a+b+c)/2; S:=Sqrt(pp*(pp-a)*(pp-b)*(pp-c)); Writeln(‘Площадь треугольника равен: ‘,S); end.

Begin. Абрамян

Источник: mycod.net

Вычисление площади треугольника по разным формулам в программах на языке Паскаль

Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, (программа Паскаль)

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

• Обратная связь
• Правила сайта

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

Написать программу на языке Паскаль для нахождения площади треугольника по трем сторонам

Напишем программу на языке программирования Паскаль для нахождения площади треугольника по трем сторонам. Для этого воспользуемся формулой Герона:

S = √(p * (p — a) * (p — b) * (p — c)), где p — половина периметра.

var a, b , c, p, S: real;

writeln (‘Придумайте и введите с клавиатуры длину первой стороны треугольника’);

writeln (‘Придумайте и введите с клавиатуры длину второй стороны треугольника’);

writeln (‘Придумайте и введите с клавиатуры длину третьей стороны треугольника’);

s:= sqrt (p * (p — a) * (p — b) * (p — c));

writeln (‘Площадь по формуле Герона равняется’,s);

Как добавить хороший ответ?
Что необходимо делать:

• Написать правильный и достоверный ответ;
• Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
• Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.

Что делать не стоит:

• Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
• Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
• Писать ответ ПРОПИСНЫМИ БУКВАМИ;
• Материться. Это невежливо и неэтично по отношению к другим пользователям.

Пример вопроса
Русский язык
7 минут назад
Какой синоним к слову «Мореплаватель»?
Пожаловаться
Хороший ответ

Вася Иванов

Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.

Источник: uchi.ru