Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 18:51 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.
Пример входных данных: xa=2 ya=1 xb=6 yb=5 xc=10 yc=1
Пример выходных данных: S=16.0
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.
Пример входных данных: xa=2 ya=1 xb=6 yb=5 xc=10 yc=1
Пример выходных данных: S=16.0
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Program qq;
uses crt;
var xa, ya, xb, yb, xc, yc, s: integer
begin
write('Введите координаты вершины A');
read(xa,ya);
writeln('Введите координаты вершины B');
read(xb,yb);
writeln('Введите координаты вершины C');
read(xc,yc);
s:=0.5*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc));
if s<0 then<br>writeln('Площадь равна ',s);
end.
end.
Я могу со знаками напутать, так как компьютера под рукой нет