1. найти функцию y=4x-5 на отрезке [1; 30] с шагом h=3.2. Найти функцию y=5x²-2x+1 на отрезке [-5; 5] с шагом h=2. Сделать в Паскале.

1. program zz1;

var x, y, h:real; / / задаем переменные не целого типа

begin

x:=1; h:=3.2;

while x < = 30 do / / организуем цикл

begin

y:=4 * x - 5; / / вычисляем значение по заданной формуле

writeln (' для ', x, ' вычисленное значение y = ', y:5:2); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

x:=x + h; / / увеличиваем на шаг

end;

end.

2. program zz1;

var x, y, h:real; / / задаем переменные не целого типа

begin

x:=-5; h:=2;

while x < = 5 do / / организуем цикл

begin

y: = 5 * x * x - 2 * x + 1; / / вычисляем значение по заданной формуле

writeln (' для ', x, ' вычисленное значение y = ', y); / / выводим ответ в столбец

x:=x + h; / / увеличиваем на шаг

end;

end.