Создание программ, выполняющих в цикле вычисление интеграла методом прямоугольников и вычисление значения выражения

Цель работы: создать программы, выполняющие в цикле следующие действия: вычисление интеграла методом прямоугольников, вычисление значения выражения, вычисление значения функции на заданном отрезке с заданным шагом.

Задания:

а) Создать программу по вычислению приближенного значения интеграла функции вида Ln(2+Sinx).

б) Создаёте программу для вычисления выражения…

в) Вычислить значение функции на отрезке

Блок-схемы:

а)

 

б)

в)

 

                                         Да                                   Нет

              Да                              Нет

                                   Да                           Нет

                                                         Да                           Нет

Программы:

а) Program Dolphin_07;

Uses crt;

Var a,b,x,y,h:real;

n,i:word;

begin

clrscr;

writeln (‘’:4,’программа вычисления приближённого значения интеграла’);

writeln (‘’:10,’функции вида Ln(2+Sinx) ‘);

writeln;

writeln (‘  введите пределы интегрирования ‘);

write (‘a=’);

readln (a);

write (‘b=’);

readln (b);

write (‘  введите количество интервалов разбиения n=’);

readln (n);

h:=(b-a)/n;

Y:=0; x:=a;

For i:=1 to n-1 do

begin

Y:=Y+Ln(2+sin(x));

x:=x+h;

writeln (‘  Приближённое значение интеграла Y=’,Y:8:4);

write (‘  Нажмите ENTER для выхода’);

readln;

end.

б) Program Dolphin_08;

uses crt

var k:real;

i,n:integer;

begin

clrscr;

write (‘ввод числа n=’);

readln (n);

k:=sqrt(3*n);

for i=n-1 downto 1 do

k:=sqrt(3*i+k);

writeln (‘k=’,k:8:2);

readln;

end.

в) Program Dolphin_09;

uses crt;

var y,x:real;

begin

clrscr;

x=-2;

while (x<=4) do begin

if x<0 then y:=-2 else if (x>0) and (x<2) then y:=4*3.14 else if x>=2 then y:=0;

writeln (‘ x=’,x:8:2,’  y=’,y:8:2);

x:=x+0.25;

readln;

end;

readln;

end.

Результаты:

а) a=2, b=3: Y=0.84502.;

б) n=4: k=2.45;

в) при  y=-2.00, при  y=12.56, при  y=0.00.

Вывод:

Я научился создавать программы, выполняющие в цикле следующие действия: вычисление интеграла методом прямоугольников, вычисление значения выражения, вычисление значения функции на заданном отрезке с заданным шагом.