Нужно написать программу

[Vanek001]

Нужно написать программу

Табулирование функции на отрезке [-7,2] с шагом h.
Функция: y=x^5-6x^4+6x^3+20x^2-39x+18
За ранее благодарен!!!

 

[Gruvi]

КОГДА ВЫ НАЧНЁТЕ ПИСАТЬ ЯЗЫК ?

 

[shrek=)]

Если вам на паскаль, то вот пожалуйста:

var
h,x,y:real;
function step(deg,num:real):real;
var
res:real;
j:integer;
begin
j:=0;
while j<deg do begin
res:=res*num;
inc(j);
end;
step:=res;
end;
begin
write('input the h ');
readln (h);
x:=-7;
writeln ('_______________________________________________');
while x<>2 do begin
y:=step(x,5)-step(6*x,4)+step(6*x,3)+step(20*x,2)-39*x+18;
writeln ('| x=',x:1:3,'             |y=',y:1:3,'         |');
x:=x+h;
end;
writeln ('_______________________________________________');
readln
end.

 

[shrek=)]

Ну а если нужно на C++, то вот:

#include <iostream> 
#include <string.h>
using namespace std;
double step(double deg, double num);
int main ()
{
     double x=-7,y,h;
     cout<<"Input the h "; cin>>h; cout<<endl;
     cout<<"_______________________________________________"<<endl;
while (x!=2) {
y=step(x,5)-step(6*x,4)+step(6*x,3)+step(20*x,2)-39*x+18;
cout<<"| x="<<x<<"             |y="<<y<<"         |"<<endl;
x+=h;
}
cout<<"_______________________________________________"<<endl;
system ("pause");
}
double step(double deg, double num)
{
        double res;int j=0;
        while (j<deg) {
        res*=num;
        j++;
}
return res;
}

 

[Vladimir_S]

Миша, а где на PL и ADA? Да и Assembler бы не помешал...

 

[shrek=)]

ну это уже не ко мне! хотя.... )