помогите срочно!!!!!

+ 0 -

Vlasova1234

25 апр. 2013 г., 3:14:01 (11 лет назад)

var
  b, a, i, c, z, x, y: real;

begin
  readln(a, b);
  if (b < a) then
  begin
    c := sin(a) + sqrt(b);
    if (c > 12.5) then
      writeln('Z = ', System.Math.Log(b) + power(a, 3))
    else
      writeln('B = ', 0.25 * b + tan(a));
  end
  else
  begin
    x := -5;
    readln(i);
    while (x <= 6) do
    begin
      y := power(x, 3) + 1 / (x + 0.2);
      if (y > 0) then
        writeln('X = ', x:5, '  Y = ', y);
      x += i;
    end;
  end;
end.
--------------------------
var
  b, c, z, x, y: real;

begin
  readln(b, c, x);
  y := sin(x) / 2 + sqrt(sqr(b) + power(c, 5)) / (3.5 * b);
  if (y >= 0) then
  begin
    z := (power(b, 6) - sin(x)) / (128 * c);
    if (z < 12.5) then
      writeln('Q = ', 1.25 * sin(x + b));
  end
  else
  writeln(' y <0 ');
end.