|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Оператор присваивания | 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 |