Информатика.Паскаль.Задача.Известны координаты вершин A,B,C треугольника.Составить программу в паскале,вычисляющую площадь этого
5-9 класс
|
треугольника.Где:xa=2,ya=1,xb=6,yb=5,xc=10,yc=1
var xa,ya,xb,yb,xc,yc,S:real;
begin
readln(
program z;
var a,b,c,d,e,r,t,y,u,s,p:real;
begin
writeln('Введите координаты (x;y) точки А');
readln(a,b);
writeln('Введите координаты (x;y) точки B');
readln(c,d);
writeln('Введите координаты (x;y) точки C');
readln(e,r);
t:=sqrt(sqr(a-c)+sqr(b-d));
y:=sqrt(sqr(a-e)+sqr(b-r));
u:=sqrt(sqr(c-e)+sqr(d-r));
p:=(t+y+u)/2;
s:=sqrt(p*(p-t)*(p-y)*(p-u));
writeln('Площадь треугольника = ',s:5:2);
end.
люблю запутанные программы
Другие вопросы из категории
10я- 19; 2я-?; 8я-?; 16я-?; сумма- 10011+ 111001=?; разность 111001-10011=?; 10я-34; 2я-?; 8я-?; 16я-?; сумма-10010+1100110=?; разность-1100110-100010=? 10я-49; 2я-?; 8я-?; 16я-?; сумма-110001+10010011=?; разность-10010011-110001=?;
10я-64; 2я-?; 8я-?; 16я-?; сумма 1000000+11000000=? разность-11000000-1000000=?
1) в книге 150 страниц по 40 строк и 60 символов обьем книги выразить в мегабайтах
2) дано 5 учебников их вес 350кб найти вес 1 учебника в байтах
пожалуста все подробно кто решит все правильно сдеалю лучший
1) Основное устройство ввода информации
2)"Мозг" компьютера
3)Устройство вывода информации
4)Устройство хранения программ и данных
5)Устройство для быстрого перемещения по экрану
6)Носитель информации, на которой записывают программы для хранения
7)Другое название жесткого диска
8)Устройство, с помощью которого можно вывести на бумагу тексты и рисунки
Читайте также
Пример входных данных: xa=2 ya=1 xb=6 yb=5 xc=10 yc=1
Пример выходных данных: S=16.0
объемы ящиков . Вывести на экран больший объем. Составить программу в паскале.
Известны радиусы и координаты центров двух окружностей таких , что одна окружность не содержит внутри другой . Определить пересекаются ли эти окружности (расстояние между центрами должно быть меньше суммы радиусов). Определит площадь большей окружности. Составить программу в паскале
координат.(СРОЧНО. ЗАРАНЕЕ СПАСИБО)
B-литровым банкам (L и B- целые числа).Сколько полных банок получится и сколько литров останется?