Министерство Образования Российской Федерации Иркутский Государственный Технический Университет.

Кафедра АПП.

Курсовая работа по программированию.

и основам алгоритмизации.

Выполнил студент гр. АТП-04−1.

Чечев И.С.

Проверила: Пешкова Л. И Иркутск.

2005 г Вариант 31.

Задание 1.

1. Проверить условие сходимости и записать расчетные формулы для нахождения корня уравнения с точностью = методом половинного деления, интервал существования корня [1;2].

Составить блок-схему алгоритма и программу решения задачи. В программе предусмотреть подсчет и вывод на печать числа итерации, за которое удается найти значение корня с заданной точностью. Отладить и выполнить программу на машине.

Блок-схема алгоритма..

Function f (x: real):real.

Общая:

Программа.

Program delenie;

uses crt;

const.

e=0.0001.

var x, a, b, t: real;

n:integer;

function f (x:real):real;

begin.

t:=sqrt (1+exp (2*x));

F:=exp (x)+t-2;

end;

begin.

readln (a, b);

n:=0;

if F (a)*F (b)>0 then begin writeln (`kornei net'); end;

while ABS (a-b)>e do.

Begin.

n:=n+1;

x:=(a+b)/2.

if F (a)*F (x)<0 then b:=x else a:=x;

end;

writeln (`koren: `, x);

writeln (`chislo iterazii: `, n);

end.

Задание 2.

Записать расчетные формулы, составить блок-схему алгоритма и программу для вычисления определенного интеграла методом Симпсона, разбивая отрезок интегрирования [0;1] на 78 частей. Предусмотреть в программе вычисление точного значения определенного интеграла через первообразную .

Решение.

Вытекает из формулы Симпсона.

Блок-схема алгоритма.

Function p (x:real):real.

Function y (x:real):real;

Основная блок-схема:

Программа.

Program Simpson;

var x, s, h, z, a, b: real;

n, c: integer;

i, k: integer;

function p (x:real):real;

begin.

p:=1/sqr (3*sin (x)+2*cos (x));

end;

function y (x:real):real;

begin.

y:=3/36-(3*cos (x)-2*sin (x))/(13*(2*cos (x)+3*sin (x)));

end;

begin.

writeln (`vvod', a, b, n).

readln (a, b, n);

h:=(b-a)/(2*n);

c:=-1;

x:=a;

for i:=1 to 2*n-1 do.

begin.

x:=x+h;

k:=3+c;

s:=s+k*y (x);

c:=-c;

end;

s:=s+y (a)+y (b);

s:=s*(h/3);

z:=p (b)-p (a);

writeln (`vivod', z);

end.

Задание 3.

Построить график функции.

Y=1/sqr (3sin (x)+2cos (x)).

Программа.

Program grafik;

uses Graph;

var x0, y0:Word;

сrdr, crm: integer;

x, y: real;

i, j: word;

begin.

СrDr:=Detect;

InitGraph (GrDr, Grm,'C:paskalBGI');

if GraphResult <> grok then.

begin writeln (`error graf');Halt end;

x0:=40;

y0:=GetMaxy;

setbkcolor (1);

y0:=GetMaxy;

setbkcolor (1);

setcolor (15);

Line (x0,0,x0,y0);

Line (x0,y0,getmaxx, y0);

MoveTo (x0,y0);

for i:=1 to getymaxx-40 do.

begin.

x:=1/(3*sin (x)+2*cos (x)*(3*sin (x)+2*cos (x)));

LineTo (x0+i, y0-round (y*40));

setcolor (15);

Line (x0,0,x0,y0);

Line (x0,y0,getmaxx, y0);

MoveTo (x0,y0);

for i:=1 to getymaxx-40 do.

begin.

x:=1/(3*sin (x)+2*cos (x)*(3*sin (x)+2*cos (x)));

z:=78*sin (x)+44*cos (x)* 78*sin (x)+2*cos (x);

e:=cos (x).

LineTo (x0+i, y0-round (y*40));

end;

readln;

CloseGraph;

end.