Выход за границы диапазона изменения индекса

@Shkipper86 · Регистрация: 29.08.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток! При компиляции ошибка: »*Ошибка: 100001 - выход за границы диапазона изменения индекса 0..100000 (NumericalIntegrationParabola.pas, строка 17)
исходник:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program NumericalIntegration;
var i,j,k,n: integer; a,b,Sum1,Sum2,h, Intexact,deltaRunge,Kdelta,deltaExact, deltaTeor: real; Int: array [1..100000] of real; x,y: array [0..100000] of real;
begin
k:=4;
a:=0;
b:=1;
n:=1;
j:=0;
Intexact:=1;
repeat
n:=2*n;
j:=j+1;
h:=(b-a)/n;
   Sum1:=0;
   Sum2:=0;
   for i:=0 to n-1 do begin
   x[i]:=a+i*h;
   Sum1:=6*x[i]*x[i]*x[i]*x[i]*x[i]+Sum1;
   Sum2:=6*(x[i]+h/2)*(x[i]+h/2)*(x[i]+h/2)*(x[i]+h/2)*(x[i]+h/2)+Sum2
   end;
Int[j]:=h/6*(6+2*Sum1+4*Sum2);
if j>1 then deltaRunge:=(Int[j]-Int[j-1])/(exp(ln(2)*k)-1) else deltaRunge:=1;
if j>2 then Kdelta:=(Int[j-1]-Int[j-2])/(Int[j]-Int[j-1]) else Kdelta:=1;
deltaExact:=Intexact-Int[j];
deltaTeor:=72/288*h*h*h*h;
writeln('n    ','Kdelta   ','deltaExact                     ','deltaRunge                           ','deltaTeor');
writeln(n,'     ', Kdelta:2:1, '     ', deltaExact, '             ',deltaRunge, '               ',deltaTeor);
writeln
until abs(deltaRunge)<=exp(ln(10)*(-18));
writeln('Integral=',Int[j])
end.

@Puporev · 24.10.2013, 10:22

Слишком высока точность

Pascal
1
until abs(deltaRunge)<=exp(ln(10)*(-18));

Поставьте например -12

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .