Question

1.определите сколько раз будет выполняться тело цикла,при вычислении: y=5x+12a на промежутке [-6; 6 ] с шагом 2 . 2.определите сколько раз будет выполняться тело цикла,при вычислении: y=7/12a на промежутке [-2; 1 ] с шагом 0,5 . 3.определите сколько раз будет выполняться тело цикла,при вычислении: y=9a+a(sqr2) на промежутке [-3,2 ] с шагом 2 . 4.определите сколько раз будет выполняться тело цикла,при вычислении: y=15a+3(sqr3) на промежутке [-1,2 ] с шагом 0,5 . и можно узнать как это сделать в pascalabc?

Answer 1

Исходя из самого вопроса - тут не важно само выражение функции.

1. 7   { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
  n:=0;
  k:=-6;
  While k<=6 do
  Begin
    k:=k+2;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

2. 7   { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
  n:=0;
  k:=-2;
  While k<=1 do
  Begin
    k:=k+0.5;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

3. 3   { -3, -1, 1 }
Var k,n : Real;
Begin
  n:=0;
  k:=-3;
  While k<=2 do
  Begin
    k:=k+2;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
  n:=0;
  k:=-1;
  While k<=2 do
  Begin
    k:=k+0.5;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.