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.
Answers & Comments
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.