Версия для печати темы

Автор: тупка 21.05.2007 0:02

Uses Crt;

Function f(x: Double): Double;
 Begin
   f := 1 / (Exp(x * Ln(2))) - 10 + 0.5*Sqr(x)
 End;

Var
 x, Eps, a, b, c: Double;
 n: Integer;

begin
 ClrScr;
 Writeln('Введите значения a и b'); Read(a, b);
 WriteLn('Введите точность Eps'); Read(Eps);

 n := 0;
 Repeat
   c := (a + b) / 2;
   If (f(a) * f©) < 0 Then b := c
   Else a := c;
   Inc(n)
 Until (b - a) <= Eps;

 x := (a + b) / 2;
 WriteLn('Корень равен  x=', x:10:7);
 WriteLn('Количество делений = ',n);
 ReadKey
end.
нужна блок схема к этой программе, помоги прожалуйта 
 

Автор: klem4 21.05.2007 0:09

http://forum.pascal.net.ru/index.php?showtopic=4270

Автор: тупка 21.05.2007 0:16

о боже, я ничего не понял =(

Добавлено через 13 мин.
народ помогите пожалуйста, мне нужно очень написать блок схему по лабораторке в паскале, я ничего не понимаю =(