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


Решение задач. День третий. Задачи Begin21-30.
Май 23, 2016 – 07:06
11 Решение

Здравствуйте, дорогие читателинашего сайта. На этой недели счетчик посещаемости наконец-то сдвинулся с мертвой точки. Это не может не радовать. Если вы новоиспеченный постоянный посетитель этого сайта, оставьте комментарий к любому посту, чтобы мы не думали, что на нашем сайте обитают только боты 🙂 Ну что ж, приступим к решению задач Begin21-30.

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

На первый взгляд задача может показаться весьма и весьма трудной, и для того, чтобы не заблудиться в решении, составим план наших действий:

  1. Для того, чтобы найти периметр треугольника, находим расстояния между всеми вершинами (ведь расстояния между вершинами это и есть стороны) по формуле √((x2 — x1)2+(y2 — y1)2), а затем суммируем их.
  2. Для того, чтобы найти площадь, используем формулу Герона.

program Begin21; var a, b, c, x1, x2, x3, y1, y2, y3, p, per, s: real; begin write('Введите x1, y1: '); readln(x1, y1); write('Введите x2, y2: '); readln(x2, y2); write('Введите x3, y3: '); readln(x3, y3); a := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); b := sqrt(sqr(x3 - x2) + sqr(y3 - y2)); c := sqrt(sqr(x1 - x3) + sqr(y1 - y3)); per := a + b + c; {Находим периметр} p := per / 2; {Находим полупериметр} s := sqrt(p * (p - a) * (p - b) * (p - c)); {Находим площадь} writeln('Периметр треугольника = ', per); writeln('Площадь треугольника = ', s); end.

Begin22°. Поменять местами содержимое переменных A и B и вывести новые значения A и B.

Эта классическая задача является основой более сложных алгоритмов. Представьте, у Вас есть два кувшина: первый наполнен водой, второй — соком. Требуется поменять жидкости местами, то есть, перелить воду во второй кувшин, а сок — в первый. Как Вы решите данную проблему? Скорее всего, Вы возьмете третий кувшин и временно перельете в него содержимое одного из кувшинов. Так и в Паскале: сначала мы присваиваем значение любой из двух переменных третьей, а уже потом перемещаем значения переменных.

Source: learnpascal.ru
Похожие публикации