0 / 0 / 0
Регистрация: 24.03.2020
Сообщений: 1
1

Программа компилируется без ошибок, но не запускается

24.03.2020, 12:04. Показов 196. Ответов 1
Метки нет (Все метки)

Строка 44. Ошибка времени выполнения: Индекс находился вне границ массива.
Если просто убрать проблемную строку, то ошибка появится в следующей.
Я думаю это из-за долгой переборки всех значений массива, но не знаю как упростить код.
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
program Project2;
uses GraphABC;
var I,I2: integer;
var pole: array[1..600,1..300,1..3] of integer;
var genom: array[1..4,-1..14,1..150] of byte;
begin
   SetWindowSize(1201,601);
   for I:=1 to 600 do
      begin
        for I2:=1 to 300 do
        begin
           pole[I][I2][1]:= -1;
        end;
      end;
   SetPenColor(rgb(0,0,0));
   Rectangle(0,0,1201,601);
   pole[300][300][1]:=0;
   pole[300][300][2]:=1;
   for I:=1 to 600 do
      begin
        for I2:=1 to 300 do
        begin
           SetPenColor(clblack);
           SetBrushStyle(bsSolid);
           if not pole[I][I2][1] = -1 then 
             begin
             SetPixel(I*2,I2*2, clBlack);
             SetPixel(I*2-1,I2*2, clBlack);
             SetPixel(I*2,I2*2-1, clBlack);
             SetPixel(I*2-1,I2*2-1, clBlack);
             end;
        end;
      end;
      for I:=0 to 14 do
        for I2:=1 to 4 do
          genom[I2][I][1]:= random(31);
      for I:=1 to 600 do 
         for I2:=1 to 300 do
         begin
            if not pole[I][I2][1] = -1 then 
              if genom[1][pole[I][I2][1]][pole[I][I2][2]] < 15 then
                pole[I][I2-1][1]:= genom[1][pole[I][I2][1]][pole[I][I2][2]];
              
              if genom[2][pole[I][I2][1]][pole[I][I2][2]] < 15 then
                pole[I][I2-1][1]:= genom[1][pole[I][I2][1]][pole[I][I2][2]];
              
              if genom[3][pole[I][I2][1]][pole[I][I2][2]] < 15 then
                pole[I][I2-1][1]:= genom[1][pole[I][I2][1]][pole[I][I2][2]];
              
              if genom[4][pole[I][I2][1]][pole[I][I2][2]] < 15 then
                pole[I][I2-1][1]:= genom[1][pole[I][I2][1]][pole[I][I2][2]];
              
         end;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2020, 12:04
Ответы с готовыми решениями:

Программа компилируется без ошибок, но не запускается
Программа компилируется без ошибок, но не запускается. В чем проблема? Помогите, пожалуйста ...

Программа в Turbo Pascal 7 компилируется без ошибок а исполняемое приложение не появляется
Сегодня установил Турбо Паскаль. Написал первую программу. Она скомпилировалась без ошибок, но...

Программа компилируется без ошибок, но консоль появляется и через секунду исчезает
http://pastebin.com/ecQZSs0L СПАСИТЕ Добавлено через 27 секунд #include &lt;stdio.h&gt; #include...

Программа билдица и компилица без ошибок, но не запускается
Здравствуйте! Программирую на MASM32 под семёркой. Имеется следующий год: TITLE вапирвапрт ...

1
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,600
24.03.2020, 12:07 2
А запустить из под IDE не пробовали?

Program1.pas(44) : Ошибка времени выполнения: Индекс находился вне границ массива.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2020, 12:07

Не компилируется программа, несколько ошибок
Здравствуйте, изучаю учебник новичков Г.Шилдта, пытаясь выполнить заданий столкнулся с проблемой и...

Компилируется без ошибок, но командная строка, почему то, сразу же закрывается
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;fstream&gt; #include &lt;list&gt; #include &lt;iterator&gt;...

Первая программа. Код не компилируется и не запускается программа.
Первая программа, первая ошибка Здравствуйте! Решил учить С++. Скачал книгу Programming:...

Программа компилируется, но не запускается
#include &lt;iostream&gt; using namespace std; int main() { int x = 0, y = 0; cout&lt;&lt;&quot;Set...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.