Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 29.10.2017
Сообщений: 17

Индекс находится вне границы массива

23.12.2017, 02:28. Показов 1058. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста) Ниже есть код, он достаточно длинный но вопрос чисто по единственному массиву (с ним как вы поняли всё очень плохо). Запускаю программу и выдаёт ошибку: Индекс находится вне границ массива. Вопрос вот в чём, как мне уменьшить этот самый индекс в массиве. Мне не нужно увеличивать массив а нужно чтобы индекс входил в данную границу. Ни как не могу найти ответ на этот вопрос.




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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191

program FINAL;
 
Type masiv=array [1..13] of real;
var P,T,Pu,Tu,ppl,tpl,rond,g,pnas,rogo,ya,ycl,bn,vgv,s:real;
i:integer;
mas:masiv;
f:text;
 
 
function dod(p,t:real):real;
  var
  m,Pnast,R,D,Vgv,Vgr,rogv,am,um,rogr,lamda,
  an,ron,a,b,ab,bb,mund,bn,sigm,mundt,am1,bm,
  Vgr1,mung:real;
  
begin
pnast:=pnas-((Tpl-T))/(9.157+701.8/(G*(ycl-0.8*ya)));
R:= (1+(ln(P))/(ln(10)))/(1+(ln(pnast))/(ln(10)))-1;
m:= 1+(0.029*(T - 293)) * (rond * rogo * exp(ln(10) * (-3)) - 0.7966);
D:= exp(ln(10) * (-3))*rond*rogo*(4.5-0.00305*(T-293))-4.785;
Vgv:= G*R*m*(D*(1+R)-1);
Vgr:= G*m-Vgv;
am:= 1+0.0054*(T-293);
um:=exp(ln(10) * (-3))*rond*G-186;
rogv:=am*(rogo-0.0036*(1+R)*(105.7+um*R));
rogr:= G*(am*m*rogo-rogv*Vgv/G)/Vgr;
  if (rond > 780) and (rond < 860) then
  an := exp(ln(10) * (-3)) * (3.083 - 2.638 * exp(ln(10) * (-3)) * rond)
else
  if (rond > 860) and (rond < 960) then
  an:= exp(ln(10) * (-3)) * (2.513 - 1.975 * exp(ln(10) * (-3)) * rond);
lamda:= exp(ln(10) * (-3)) * (4.3 - 3.54 * exp(ln(10) * (-3)) * rond + 1.0337 * rogr / am + 5.581* exp(ln(10) * (-6)) * rond * (1 - (1.61 *exp(ln(10) * (-6))) * rond * Vgr) * Vgr);
bn:= 1+(((1.0733*exp(ln(10) * (-3))*rond*lamda*Vgr)/m)+(an*(Tpl-293)-6.5*exp(ln(10) * (-4))*ppl));
ron:=rond*((1+1.293*exp(ln(10) * (-3))*rogr*Vgr)/(am*m))/bn;
if (rond > 780) and (rond < 845) then
  mund:= sqr((0.456*sqr(rond))/(833*exp(ln(10) * (3))-sqr(rond)))
else
  if (rond > 860) and (rond < 960) then
mund:= sqr((0.658*sqr(rond))/(886*exp(ln(10) * (3))-sqr(rond)));
am1:=exp(ln(10) * (-0.0175*(293-T)-2.58));
bm:=(8.0*exp(ln(10) * (-5))*rond-0.047)*exp(ln(mund) * (0.13+0.002*(T-293)));
mundt:=mund*exp(ln(T-293) * (am1))*exp(bm*(293-T));
Vgr1:=1.055*exp(ln(10) * (-3))*(1+5*an)*Vgr*rond;
ab:=1+0.0129*Vgr1-0.0364*exp(ln(vgr1) * (0.85));
bb:=1+0.0017*Vgr1-0.0228*exp(ln(vgr1) * (0.667));
mung:=ab*exp(ln(mundt) * (bb));
sigm:=1/exp(ln(10) * (1.58+0.05*p))-72*exp(ln(10) * (-6))*(T-305);
dod:=mung;
end;
 
function posle(p,t:real):real;
 
var
m,G_pl,ro_otn,a,b_npl,a_n,lamda,ro_npl,G_ud,a_a,b_b,
m_nd,a_m,b_m,m_t,m_nnas,sigm,m_npl:real;
Const
 
 
p_pl = 17.5;
T_pl = 313;
ro_nd = 868;
g = 55.6;
p_nas = 9.2;
ro_go = 1.119;
y_a = 0.069;
y_cl = 0.355;
 
  begin;
  m:= 1+(0.029*(T_pl - 293)) * (ro_nd * ro_go * exp(ln(10) * (-3)) - 0.7966);
  G_pl:= g * m;
  a:= 1 + 0.0054 * (T_pl - 293);
  ro_otn := a * m * ro_go * g / G_pl;
      if (ro_nd > 780) and (ro_nd < 860) then
      a_n := exp(ln(10) * (-3)) * (3.083 - 2.638 * exp(ln(10) * (-3)) * ro_nd)
    else
      if (ro_nd > 860) and (ro_nd < 960) then
      a_n:= exp(ln(10) * (-3)) * (2.513 - 1.975 * exp(ln(10) * (-3)) * ro_nd);
    lamda:= exp(ln(10) * (-3)) * (4.3 - 3.54 * exp(ln(10) * (-3)) * ro_nd + 1.0337 * ro_otn / a + 5.581* exp(ln(10) * (-6)) * ro_nd * (1 - (1.61 *exp(ln(10) * (-6))) * ro_nd * G_pl) * G_pl);
    b_npl:= 1+((1.0773*exp(ln(10) * (-3)) * ro_nd * lamda * G_pl)/m) + a_n * (T_pl - 293) - (6.5 * (exp(ln(10) * (-4))) * P_pl);
    ro_npl:= ro_nd * (1 + 1.293 * (exp(ln(10) * (-3))) * ro_otn * G_pl / (m*a))/b_npl;
    G_ud:= 1.055*exp(ln(10) * (-3)) * (1 + 5*a_n) * g * ro_nd;
    a_a := 1+0.0129 * G_ud - 0.0364 * exp(ln(G_ud) * (0.85));
    b_b:= 1+0.0017 * G_ud - 0.0228 * exp(ln(G_ud) * (0.667));
      if (ro_nd >= 780) and (ro_nd <= 845) then
      m_nd:= sqr((0.456* sqr(ro_nd))/(833*exp(ln(10) * (3)) - sqr(ro_nd)))
   else
      if (ro_nd >= 845) and (ro_nd <= 924) then
      m_nd:= sqr((0.658 * sqr(ro_nd))/(886*exp(ln(10) * (3)) - sqr(ro_nd)));
     a_m:= exp(ln(10) * (-0.0175*(293-T_pl)-2.58));
     b_m:= (8.0 * exp(ln(10) * (-5)) * ro_nd - 0.047) * exp(ln(m_nd) * (0.13+0.002*(T_pl-293)));
     m_t:= m_nd * exp(ln(T_pl-293) * (a_m))*exp(b_m*(293-T_pl));
     m_nnas:= (a_a) * (exp(ln(m_t) * (b_b)));
      if (m_nnas<5) then
     sigm:= 0.0114 * m_nnas
   else 
      if (m_nnas<10) then
     sigm:= 0.057 + 0.023*(m_nnas - 5)
   else
      if (m_nnas<25) then
     sigm:= 0.0171 + 0.031*(m_nnas - 10)
   else
      if (m_nnas<45) then
     sigm:= 0.643 + 0.045*(m_nnas - 25)
   else
      if (m_nnas<75) then
      sigm:= 1.539 + 0.058*(m_nnas - 45)
   else
      sigm:= 3.286 + 0.1*(m_nnas - 75);
    m_npl:= m_nnas + sigm*(p_pl - p_nas);
    posle:=m_npl
  end;
   
 function z(p,t:real):real;
 var 
 rogou,Ppr,Tpr,Zy,Za,Z1:real;
 const
 roa=0.97;
 begin
 rogou:=(rogo-roa*Ya)/(1-Ya);
 Ppr:=(p*exp(ln(10)*(6)))/(exp(ln(10)*(5))*(46.9-2.06*sqr(rogou)));
 Tpr:=T/(97+172*sqr(rogou));
  if (ppr>=0) and (ppr<=3.8) and (tpr>=1.17) and (tpr<=2) then
    Zy:=1-Ppr*(0.18/(Tpr-0.73)-0.135)+(0.016*exp(ln(ppr)*(3.45))/exp(ln(tpr)*(6.1)));
  if (Ppr>=0) and (Ppr<=1.45) and (Tpr>=1) and (Tpr<=1.17) then 
    Zy:=1-0.23*Ppr-(1.88-1.6*Tpr)*exp(ln(ppr)*(2));
  if (Ppr>=1.45) and (Ppr<=4) and (Tpr>=1) and (Tpr<=1.17) then
    Zy:=0.13*Ppr+(6.05*Tpr-6.26)*Tpr/exp(ln(ppr)*(2));
    Za:=1+0.564*power(10, -10)*power(T-273, 3.71)*power(p, 14.7/sqrt(T-273));
  
  Z1:=1-exp(ln(10) * (-2))*(0.76*exp(ln(Tpr) * (3))-9.36*tpr+13)*(8-Ppr)*Ppr;
z:=z1;
end;  
 
function H ():real;
const
Qzh = 72;
Betv = 0;
Alf = 10;
Lc = 1600;
Rg = 5.6;
Dt = 0.0555;
var
 
w,wp,Vsm,musm,rosm,fk,dp_dH:real;
begin
 
w:=(tpl-273)/lc;
wp:=(0.0034+0.79*w)/exp(ln(10) * ((qzh/(20*86400*exp(ln(Dt)*(2.67))))));
vsm:=bn+((vgv+rg/(1-betv))*z(p,t)*0.1*t)/(p*273)+betv/(1-betv);
musm:=rond+rogo*(g+rg/(1-betv))+1000*betv/(1-betv);
rosm:=musm/vsm;
fk:=exp(ln(10)*(19.66*ln(((1+(ln(0.99*0.00001*qzh*(1-betv)*musm/Dt)*(-0.25)))))))-17.713;
dp_dH:=rosm*9.81*0.000001*0.9848+(fk*sqr(qzh)*sqr(1-betv)*sqr(musm))/(2.3024*exp(ln(10)*(15))*rosm*exp(ln(Dt)*(5)));
i:=1+i;
mas[i]:=(1/dp_dh);
if i=1 then h:=0 else
begin
s:=s+mas[i];
h:=0.1*((mas[1]+mas[i])/2+s);
end;
end;
 
begin
assign (f, 'read.txt');
 reset (f);
  read(f,ppl,tpl,rond,g,pnas,rogo,ya,ycl,pu,tu);
 close(f);
  p:=pu;
 assign (f, 'rez.txt');
   rewrite(f);
   writeln(f,'Показатели до давления насыщения');
   writeln(f,' p      ','  t      ','u');
repeat
 t:=tu+((tpl-tu)*(p-pu))/(ppl-pu);
 if (p<pnas) then 
  begin
  write(f,p:2:2,'   ');
  write(f,t:2:2,'   ');
  writeln(f,dod(p,t):2:2,'   ',z(p,t):2:5,'   ',h():2:2);
  end;
if (p>pnas) then 
   begin
  write(f,p:2:2,'   ');
  write(f,t:2:2,'   ');
  writeln(f,dod(p,t):2:2,'   ',z(p,t):2:5,'   ',h:2:2);
   end;
 p:=p+0.1;
  until (p>ppl);
 close(f);
 
end.
0
Лучшие ответы (1)
Сообщение: #11972907
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 23.12.2017, 02:28
Ответы с готовыми решениями:

Индекс находился вне границы массива
Подскажите , что сделано не так , если при вводе значения больше 2-ух , он выдает ошибку &quot;Индекс находился вне границы массива&quot;. ...

Индекс находится вне границ массива
Не могу понять, где идёт числовое переполнение. uses crt; type mass = array of integer; var a: mass;

Индекс находится вне границ массива
При компиляции выдает ошибку: Индекс находится вне границ массива. Причем если заполнить файл вручную то ошибки нет. В чем причина? ...

3
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
23.12.2017, 03:12
Лучший ответ Сообщение было отмечено Морошка как решение

Решение

Морошка, сильно глубоко не разбирался, на первый взгляд:

Цитата Сообщение от Морошка Посмотреть сообщение
p:=p+0.1;
* until (p>ppl);
чему равны p и ppl и чему равна разность ppl-p (наверняка больше 1.2). Вы 12, по высоте, точек всего берете, а разница давлений похоже больше. наверное условия начальные менять надо или шаг роста.
1
0 / 0 / 1
Регистрация: 29.10.2017
Сообщений: 17
23.12.2017, 10:46  [ТС]
Joy, да, Вы правы. А как мне изменить шаг роста?
И вот два файлика с дано и выводом
Вложения
Тип файла: txt read.txt (49 байт, 2 просмотров)
Тип файла: txt rez.txt (4.8 Кб, 0 просмотров)
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
23.12.2017, 14:42
Вообще шаг устанавливается исходя из физики процесса (при большом шаге можно потерять "ребёнка"), если по тупому - (конечный-начальный)/(к-во шагов - 1).

Добавлено через 3 минуты
Ps: Численный эксперимент удобен, тем что его делать можно сколько угодно раз, меняя условия, шаги и пр. "метод научного тыка" тут приветствуется.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 23.12.2017, 14:42
Помогаю со студенческими работами здесь

Ошибка: индекс находится вне границ массива
Доброго времени суток. Вот задача: Университет Иннополис готовится к проведению Летней школы олимпиадного программиро- вания....

Почему индекс находится вне границ массива?
Вот есть код, который определяется массив, затем он определяет его длину по числу введенных символов (а каждый элемент массива есть...

Ошибка времени выполнения: Индекс находится вне границ массива
Здравствуйте! Столкнулся с ошибкой: var f: textfile; n: longint; text: string; s: char; begin assignfile(f,'file.txt'); ...

Индекс вне границы, массив
const P=7; R=7; var a:array of integer; i,j,U:integer; H,W:integer; begin readln(H); readln(W);

Индекс вне границ массива
program zhiznb; const M = 10; N = 15; type matr = array of integer; var a:matr; procedure input(var mm:matr); var i,j:integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
 SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru