Цель работы: Составление простейших программ, реализующих
проведение вычислительных операций по формулам, задающих алгоритм
линейной структуры.
Линейные алгоритмы – последовательность блоков, каждый из которых
имеет по одному входу и одному выходу и выполняется в программе один раз.
Рис. 5.2. Алгоритм линейной структуры
Задание. Вычислить площадь треугольника по трем известным сторонам
a,
b, c, используя теорему Герона
)
)(
)(
(
c p b p a p p S
, где
)
(
5
.
0
c b a p
.
Методика выполнения работы 1. Программа имеет линейную структуру в соответствии с алгоритмом на
рис. 5.2.
S1 – блок ввода исходных данных a, b, c.
S2 – блоки расчета полупериметра треугольника p и площади S.
S3 – блок вывода результата: площадь S.
Введите программу решения этой задачи (см. пп. 1-3, Лабораторная работа
№ 1).
Program Geron; Uses crt; Var a,b,c,p,S:Real; Begin Clrscr;
{Ввод исходных данных}
Writeln(‘Введите значения сторон треугольника a,b,c’); Readln(a,b,c); S1
S2
S3
75
{Расчет полупериметра и площади треугольника}
p:= 0.5*(a+b+c); S:=sqrt(p*(p-a)*(p-b)*(p-c)); {Вывод результата расчета}
Writeln(‘Площадь треугольника = ’, S:5:3)
