|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2012, 22:43 | #1 |
Регистрация: 17.11.2011
Сообщений: 4
|
Блок схема
Помогите пожалуйста составить блок схему
Program scanir; uses crt; const c=-2;d=2;h=0.1; eps=1e-5; fres='res1_01.pas'; var k:INTEGER; a,b,x: real; fr:text; function f(x:real):real; Begin f:=(x*x)-cos(pi*x); end; procedure mpd(var fr: text;a,b,eps:real; var x:real); var m,i:integer; begin writeln(fr,'***** метод половинного деления ******'); m:=trunc(ln((b-a)/eps)/ln(2))+1; writeln (fr, 'теоретическая оценка m=',m); writeln(fr,'итерация':8,'x':6,'f(x) ':14); i:=1; while b-a>eps do begin x:=(a+b)/2; writeln (fr,i:6,x:12:6,f(x):12:6 ); i:=i+1; if i>m+2 then begin writeln(fr,'нет сх-ти за ',m, ' итераций!!!'); exit; end; if f(a)*f(x)<=0 then b:=x else a:=x; end; end; begin clrscr; assign(Fr,fres); rewrite(fr); k:=0; a:=c; b:=a+h; while b<=d do begin if f(a)*f(b)<0 then begin k:=k+1; writeln(fr,' корень ', k, ' a=',a:0:2,' b=',b:0:2); mpd(fr,a,b,eps,x); writeln(fr,' Корень =',x:0:6); end; a:=b; b:=a+h; end; write(fr,'найдено ',k ); case k of 1:write (fr, ' корень'); 2..4:write (fr, ' корня'); else begin write (fr, ' корней'); end; end; close(fr); writeln('смотри файл ',fres); readkey end.
godspeed
|
15.05.2012, 08:52 | #2 |
Форумчанин
Регистрация: 06.02.2011
Сообщений: 105
|
|
15.05.2012, 11:25 | #3 |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype Последний раз редактировалось denisbrain; 15.05.2012 в 11:27. |
18.05.2012, 12:25 | #4 |
Регистрация: 17.11.2011
Сообщений: 4
|
Спасибо!очень помогло
godspeed
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок-схема | Citizens | Помощь студентам | 0 | 06.12.2011 18:21 |
Схема алгоримта (блок схема) на задачу по Паскалю | LINCHAK | Помощь студентам | 0 | 22.10.2010 16:56 |
Блок схема | sir.andrey | Помощь студентам | 4 | 27.03.2010 13:33 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |