TOPIC:

Not clear close the program!!! problem IDE?! 7 years 1 month ago #11046

Tigr
Topic Author
Offline
Junior Member
Posts: 54
Thank you received: 1

When performing a simple task, namely filling a three-dimensional array, the program suddenly for no reason just destroyed....( CT 6.2

var
mas:array[1..2097151,1..2097151,1..2097151] of integer;

///....////
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
for i:=1 to 2097151 do
begin
for j:=1 to 2097151 do
begin
for k:=1 to 2097151 do
begin
mas[i,j,k]:=1;
end;
end;
end;
form1.Memo1.Lines.Add('dfbdfbdb');
end;

Please Log in or Create an account to join the conversation.

Last edit: by Tigr.

Not clear close the program!!! problem IDE?! 7 years 1 month ago #11047

Tigr Topic Author Offline Junior Member Posts: 54 Thank you received: 1	after restarting the program from the environment .... there is a bug: failed to execute:193
	Please Log in or Create an account to join the conversation.

Not clear close the program!!! problem IDE?! 7 years 1 month ago #11048

Sternas Stefanos
Offline
Moderator
Ex Pilot, M.Sc, Ph.D
Posts: 4535
Thank you received: 1114

Sir
don't use so big numbers (2097151) in multi dimension arrays

wiki.freepascal.org/Integer

this sample work OK

var
  mas: array[1..100, 1..100, 1..100] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, k: integer;
begin
  for i := 1 to 100 do
  begin
    for j := 1 to 100 do
    begin
      for k := 1 to 100 do
      begin
        mas[i, j, k] := 1;
      end;
    end;
  end;

  form1.Memo1.Lines.Add('dfbdfbdb');
end;

PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Sternas Stefanos.

Not clear close the program!!! problem IDE?! 7 years 1 month ago #11049

Tigr Topic Author Offline Junior Member Posts: 54 Thank you received: 1	Thank you! I'm just under forgot for a moment that program need a lot of memory! when I'm on the calculator counted realized what a fool!
	Please Log in or Create an account to join the conversation. Last edit: by Tigr.

Not clear close the program!!! problem IDE?! 7 years 1 month ago #11050

Sternas Stefanos Offline Moderator Ex Pilot, M.Sc, Ph.D Posts: 4535 Thank you received: 1114	have fun... PilotLogic Architect and Core Programmer
	Please Log in or Create an account to join the conversation. Last edit: by Sternas Stefanos.

Page:
1

Forum

CodeTyphon Studio

CT Pascal Programming

Not clear close the program!!! problem IDE?!