Выполнить значение функции y=kx+b на отрезке [-2;2] с шагом 2.
K и B ввести с клавиатуры.
Решение с оператором repeat и while. И если не трудно, то блок-схемы. Спасибо!
//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
begin
print(k * x + b);
x := x + 2;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
