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

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

Выполнил студент гр.АТП-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;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--