Как-то так <span>procedure SqRoot(a,b,c: real;
var x1,x2: real;
var ok: boolean);
{ a,b,c – коэффициенты уравнения x1,x2 – корни уравнения
ok = True – решение есть ok = False – решения нет }
var
d: real; // дискриминант
begin
d: = Sqr(b) -4*a*c; if d < 0 then
ok: = False // уравнение не имеет решения
else
begin
ok: = True;
x1: = (-b + Sqrt(d)) / (2*a); x2: = (b + Sqrt(d)) / (2*a);
end;
end;</span>
Program treyg; var a,b,c,p:integer; s,pol:real; begin readln(a,b,c); p:=a+b+c; pol:=p/2; s:=Sqrt(pol*(pol-a)*(pol-b)*(pol-c)) ; Writeln('Площадь=',s); Writeln('Периметр =',p) end.
Абсолютная адресация используется в том случае, когда нужно использовать значение, которое не будет меняться в процессе вычислений. Тогда записывают, например, так: =$А$5. Соответственно, при копировании такой формулы в другие ячейки текущего рабочего листа, в них всегда будет значение =$А$5. Для того, чтобы задать ячейке абсолютный адрес, необходимо перед номером строки и номером столбца указать символ “$” либо нажать клавишу F4.
Смешанная адресация представляет собой комбинацию относительной и абсолютной адресаций, когда одна из составляющих имени ячейки остается неизменной при копировании. Примеры такой адресации: $A3, B$1.