Правила форума
Прочтите прежде чем задавать вопрос!
Код
unit integral;
interface
uses crt;
var
n,i:integer;
a,b,shad,sum,itog:real;
implementation
function f(x:real):real;
begin
f:=x*x*x*x+2*x*x+4{¬Ґв®¤ Їаאַ㣮«мЁЄ }
end;
begin
clrscr;
textbackground(2);
textcolor(blue);
writeln('***************************');
writeln('* *');
writeln('*Њ е®ў ‚пзҐб« ў ЊЁе Ё«®ўЁз*');
writeln('* *');
writeln('ННННННННННННННННННННННННННН');
write('начало интегрирования a= ');readln(a);
write('конец интегрирования b= ');readln(B);
write('количество разбиения интервала n= ');readln(n);
shad:=(b-a)/n;
sum:=0;
for i:=1 to n-1 do
sum :=sum + f(shad*i+a);
sum :=sum +(f(a) +f(B))/2;
itog:=(b-a)/n * sum;
writeln ('ЁвҐЈа « = ', itog:10:1);
readln;
end.
interface
uses crt;
var
n,i:integer;
a,b,shad,sum,itog:real;
implementation
function f(x:real):real;
begin
f:=x*x*x*x+2*x*x+4{¬Ґв®¤ Їаאַ㣮«мЁЄ }
end;
begin
clrscr;
textbackground(2);
textcolor(blue);
writeln('***************************');
writeln('* *');
writeln('*Њ е®ў ‚пзҐб« ў ЊЁе Ё«®ўЁз*');
writeln('* *');
writeln('ННННННННННННННННННННННННННН');
write('начало интегрирования a= ');readln(a);
write('конец интегрирования b= ');readln(B);
write('количество разбиения интервала n= ');readln(n);
shad:=(b-a)/n;
sum:=0;
for i:=1 to n-1 do
sum :=sum + f(shad*i+a);
sum :=sum +(f(a) +f(B))/2;
itog:=(b-a)/n * sum;
writeln ('ЁвҐЈа « = ', itog:10:1);
readln;
end.
Надо чтоб не я вводил количество разбиения интервал а он всегда разбивался до 0.01
Нужно срочно(до понедельника)
1. В следующий раз выбирай более подходящий раздел ...
2. ... и название темы.
3. И пользуйся тегами [CОDE] ...
4. ... и поиском (хотя бы в FAQ-е).
Сообщение отредактировано: volvo -
