Алгоритмизация . Циклические процессы
3 задания
1) Вычислить значения следующей функции у= х2 - 5х +1 на отрезке [ -3; 5] c шагом 0.5
с использованием цикла "пока
2)Вычислить значения функции y=f(x) на отрезке [a;b] в точках хi = a+i*h, где h=(b-a)/m, m – заданное число . Результаты оформить в виде таблицы:
x- sin(x) 0 π/2 10
с использованием цикла "делай"
3)Найти сумму делителей данного натурального числа.
с использованием цикла "Для" и цикла "пока"
Любое помогите в решении нужны схемы
s=0
for x=-3 to 5 step 0.5
s=s+x*x-5*x+1
next x
print s
вот похожая
program tabulaciya; // y:=x+1/x
uses crt;
var
a,b,h,x,y:real;
BEGIN
clrscr;
writeln('tabulaciya funkcii y:=x+1/x, obl.opredeleniya x<>0');
writeln('-----------------------------------------------------');
writeln;
write('vvesti levuy granicu promegutka A -->');
readln(a);
write('vvesti pravuy granicu promegutka B -->');
readln(b);
write('vvesti shag tabulacii dx -->');
readln(h);
writeln;
writeln(' x y');
writeln('----------------');
x:=a;
repeat
if abs(x)<0.00001 then begin
writeln(x:6:2,' net resheniya') end
else
begin y:=x + 1/x;
writeln(x:6:2,y:9:2); end;
x:=x+h;
until x >b;
writeln('----------------');
writeln;
writeln('konec zadachi');
readln;
END.