Выполнить значение функции y=kx+b ** отрезке [-2;2] с шагом 2. K и B ввести с...

Question

Выполнить значение функции y=kx+b на отрезке [-2;2] с шагом 2.
K и B ввести с клавиатуры.

Решение с оператором repeat и while. И если не трудно, то блок-схемы. Спасибо!

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var k:real;
  var b:real;
  repeat
    k := ReadReal('Введите k');
    b := ReadReal('Введите b');
  until k <> 0;
  var x := -2;
  while x <= 2 do <br>  begin
    print(k * x + b);
    x := x + 2;
  end;
end.