Вычисление интеграла. Паскаль

[Svetlanka]

Вычисление интеграла. Паскаль

Решить методом трапеций

n=12

 

[Vladimir_S]

Решить методом трапеций
Посмотреть вложение 27251
n=12

И Вас с наступающим!

CONST
 Npoints=12;
VAR
 X,DX,S:Real;
 i:Integer;

Function Fun(xf:Real):Real;
 begin
  Fun:=SQR(Ln(xf))/xf;
 end;

BEGIN
 DX:=3/Npoints;
 S:=(Fun(1)+Fun(4))/2;
 For i:=2 to Npoints do
  begin
   X:=1.0+Dx*(i-1);
   S:=S+Fun(X);
  end;
 WriteLn('Approximate value = ',S*Dx:9:7);
 WriteLn('Accurate value = 0.8880657');
 Readln;
END.

Чего еще прикажете?

 

[Svetlanka]

Спасибо, большое! простите за невежливость!
буду вам очень признательна, если вы еще и блок-схему составите..)
спасибо заранее, и с Новым Годом!

 

[Vladimir_S]

Спасибо, большое! простите за невежливость!
буду вам очень признательна, если вы еще и блок-схему составите..)
спасибо заранее, и с Новым Годом!

Света, насчет блок-схем - всем отказываю: не занимаюсь ими, не умею и вообще как-то обходился и обхожусь. Но у нас есть по ним крупные специалисты. Вот только боюсь, что день для рисования блок-схем... как бы это... вроде не совсем удачный. Но вдруг?

 

[DDS]

Блок-схема выглядит так:

 

[Svetlanka]

Спасибо!!!!!