Подпрограмма Function

[BDA]

Program pr;
Uses crt;

const
  alpha: array [1 .. 4] of real = (3.14 / 18, 2.3, -3.14 / 14, 3.14 / 1);
  a: array [1 .. 4] of real = (-2.1, 21.3, -0.2, 31.2);

var
  i: integer;

function f(u, t: real): real;
begin
  if u > 0 then
    f := u + sin(t)
  else
    f := u + t;
end;

function z(alpha, a: real): real;
begin
  z := f(sin(alpha), a) + f(cos(alpha), a) + f(sqr(sin(alpha)), a) + f
    (sin(alpha) - cos(alpha), sqr(a) - 1) + f(sqr(sin(alpha)) - 1,
    cos(alpha) + a);
end;

begin
  writeln('Results: ');
  for i := 1 to 4 do
    writeln(chr(i + ord('a') - 1), ') Z', i, ' = ', z(alpha[i], a[i]):0:0);
  readln;
end.

Не забывайте про форматирование кода - это признак хорошего тона.

[Tanya-Manya]

Спасибо за помощь!