Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2011, 20:13   #1
Абай
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 19
По умолчанию ввод и вывод данных, оператор присваивания

Begin21±
. Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3).
Найти его периметр и площадь, используя формулу для расстояния меж-
ду двумя точками на плоскости (см. задание Begin20). Для нахождения
площади треугольника со сторонами a, b, c использовать формулу Герона:
S =корень из p*(p - a)(p - b)(p -c),
где p = (a + b + c)/2 — полупериметр..
Абай вне форума Ответить с цитированием
Старый 12.06.2011, 20:22   #2
Абай
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 19
По умолчанию

var x1, y1, x2, y2, x3, y3, p, s, a, b, c: real;
begin
write('Введите координаты первой вершины треугольника ->');
readln(x1, y1);
write('Введите координаты второй вершины треугольника ->');
readln(x2, y2);
write('Введите координаты третьей вершины треугольника ->');
readln(x3, y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x3-x2)+sqr(y3-y2));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника = ', s:6:2);
end.
Абай вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оператор присваивания Slunkin Паскаль, Turbo Pascal, PascalABC.NET 3 14.01.2011 17:53
Оператор присваивания BaNNeD Помощь студентам 2 14.12.2010 17:39
Оператор присваивания Lotles Общие вопросы C/C++ 2 12.10.2010 20:48
Оператор присваивания Superlotles Общие вопросы C/C++ 15 12.07.2010 16:46