пожааааалуйста, помогите с информатикой )

+ 0 -

Fox008

26 окт. 2013 г., 6:46:02 (10 лет назад)

var
  a, b, c, x, xn, xk, dx, f: real;
  ac, bc, cc, rc: integer;
  v: boolean;

begin
  Write('Введите через пробел a,b,c: ');
  Readln(a, b, c);
  Write('Введите через пробел Хнач, Хкон и шаг: ');
  Readln(xn, xk, dx);
  x := xn;
  while (x <= xk) do
  begin
    if (x < 0) and (b <> 0) then f := a - x / (10 + b)
    else
    if (x > 0) and (b = 0) then f := (x - a) / (x - c)
    else f := 3 * x + 2 / c;
    ac := trunc(a);
    bc := trunc(b);
    cc := trunc(c);
    rc := (ac and bc) or cc;
    if rc=0 then f:=int(f);
    Writeln('x=',x:0:3,' F=',f);
    x:=x+dx
  end
end.

Тестовое решение 1:
Введите через пробел a,b,c: 2 7 3
Введите через пробел Хнач, Хкон и шаг: 1 10 1
x=1.000 F=3.66666666666667
x=2.000 F=6.66666666666667
x=3.000 F=9.66666666666667
x=4.000 F=12.6666666666667
x=5.000 F=15.6666666666667
x=6.000 F=18.6666666666667
x=7.000 F=21.6666666666667
x=8.000 F=24.6666666666667
x=9.000 F=27.6666666666667
x=10.000 F=30.6666666666667

Тестовое решение 2:
Введите через пробел a,b,c: 3 2 2
Введите через пробел Хнач, Хкон и шаг: 1 10 1
x=1.000 F=4
x=2.000 F=7
x=3.000 F=10
x=4.000 F=13
x=5.000 F=16
x=6.000 F=19
x=7.000 F=22
x=8.000 F=25
x=9.000 F=28
x=10.000 F=31