 Ошибка 201 |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Buka |
 9.11.2011 15:35
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 15 Пол: Женский Репутация:  0   |
Не могу понять почему не работает
Program integ;
const a=0; b=1; E=0.0001;
var R,S,Si:real;
x,h:real;
n,i:integer;
function F(x:real):real;
begin
F:=sin(x+x*x*x);
end;
Function Sim(n:integer):real;
begin
h:=abs(b-a)/n;
S:=0;x:=a;
for i:=1 to n do
begin
Si:=(f(x)+4*f(x+h/2)+f(x+h))*h/6;
S:=S+Si;
x:=x+h;
end;
Sim:=S;
end;
Begin
n:=1;
R:=abs(Sim(n)-Sim(n*2))/15;
while(R>E) do n:=2*n;
writeln('S=',Sim(n):7:10);
readln;
end.
|
   |
 
|
Сообщений в этой теме
Buka Ошибка 201 9.11.2011 15:35
TarasBer На какой строчке программа вылетает? 9.11.2011 15:53 IUnknown
Здесь проблема? Правильно делает, что вылетает: у... 9.11.2011 16:57
Buka Везде поменяла на extended, кроме i, и всё зарабо... 9.11.2011 21:52 TarasBer После одной лишь замены типа цикл перестал уходить... 10.11.2011 9:03 Lapp Не могу понять почему не работает Внимательно вгля... 10.11.2011 10:13  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 15.11.2025 7:40 |