Цель работы: создать программы, выполняющие в цикле следующие действия: вычисление интеграла методом прямоугольников, вычисление значения выражения, вычисление значения функции на заданном отрезке с заданным шагом.
Задания:
а) Создать программу по вычислению приближенного значения интеграла функции вида 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.
Вывод:
Я научился создавать программы, выполняющие в цикле следующие действия: вычисление интеграла методом прямоугольников, вычисление значения выражения, вычисление значения функции на заданном отрезке с заданным шагом.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.