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

Министерство образования Российской федерации

УГТУ – УПИ

Филиал в г. Краснотурьинске

Кафедра вычислительной техники

Отчет

По лабораторной работе № 3

По теме ,, Создание программ циклической структуры.”

Преподовалель                                                                                              Бывшева М. А.

Студент                                                                                                          Килин И. С.

Группа                                                                                                            МТ-235

2003

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

1.  Задания:

а) Вычислить

б) Дано натуральное число n . Вычислить.

в)Создать программу вычисления значения функции на заданном отрезке с заданным шагом. Результат вычисления вывести в виде таблицы

 

2. 

х

у

2

Блок – схемы

а)                                                                     

 

 

 

S = 0

начало

б)

начало

в)

		Х = -2

 

3.  Программы :

а) program integral;

uses crt;

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

n,i:word;

begin

clrscr;

writeln('програма вычисления приближенного значения интеграла');

writeln('функция вида Ln(2+sinx)');

writeln;

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

write('a=');

readln(a);

write('b=');

readln(b);

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

readln(n);

h:=(b-a)/n;

Y:=0;x:=a;

for i:=1to n-1 do

begin

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

x:=x+h;

end;

Y:= Y*h;

writeln('приближенное значение интеграла Y=',y:7:5);

write('для выхода нажмите enter');

readln;

end.

б) program integral;

uses crt;

var s:real;

n,i:word;

begin

clrscr;

writeln('программа вычисления плохой функции');

writeln('функция очень плохая');

s:=0;

writeln;

writeln('введите n');

readln(n);

for i:=n downto 1 do

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

writeln('функция равна s=',s:7:5);

write('для выхода нажмите enter');

readln;

end.

в) Program moe;

uses crt;

Var x,y:real;

    i,h:integer;

begin

 clrscr;

 x:=-2;

 i:=2;

 h:=1;

 Writeln(' Таблица значений');

 repeat

  if x<=0 then y:=x

          else if (x>0)and(x<=2) then y:=-1

                                 else y:=-2;

  gotoxy(h,i);

  writeln(' X= ',x:5:2,'  Y= ',y:5:2);

  i:=i+1;

  if i=25 then

           begin

            i:=2;

            h:=h+23;

           end;

  x:=x+0.25;

 until x>4;

 readln;

end.

4.  Результат

   а) при а=0, b=3.14 , n =  100 ,Y = 2.99974

   б) при n = 4 , S= 2.46721

   в) при а=-4 , b =2 , n=0.5 :

Х	-4	-3,5	-3	-2,5	-2	-1,5	-1	-0,5	0	0,5	1	1,5	2
У	-2	-2	-2	-2	-2	0,5	1	1,5	-2	-1,5	-1	-0,5	0

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