Примеры линейных программ
1. Ввести 3 стороны треугольника (а, b, c). Найти площадь по теореме Герона.
Program Geron;
Var a, b, c, p, s: real;
Begin
Write(‘Введите стороны треугольника’);
Read(a, b, c);
P: = (a + b + c)/2;
S:
= sqrt(p
;
Write(‘Площадь равна:’; s : 6);
End.
2. Вычислить значение выражения по формуле. На печать вывести значения вводимых исходных данных и результат вычислений, сопровождая вывод наименованиями выводимых переменных.
Program Formula;
Var x, a, b, z, g: real;
P1: real;
Begin
Write(‘Введите значения для a, b, z, g’);
Read(a, b, z, g);
{Вычислим a5, результат присвоим вспомогательной переменной p1}
p1:=exp(5*ln(a));
X:=Sin(p1) + Sqr(cos(b)) + Sqrt(sqr(z)+ Sqr(g));
Writeln(‘При исходных значениях a= ’, a:4:2,’ b= ‘, b:4:2,’ z= ‘, z:4:2, ‘ g= ‘,g:4:2);
Writeln(‘ X= ‘, x:4:2);
End.