Ошибка в вычислениях

@Viper27 · Регистрация: 01.01.2011

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

Вот почему, начиная с 31вой строчки в листбоксе идёт такая фигня:
сначала отрицательное число, а потом вообще нули?

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=1
for i:=1 to 10000
begin
ListBox1.Items.Add(inttostr(a));
a:=a*2;
end;
end;

@igoriy · 22.02.2011, 18:41

Если a integer то так и будет - памяти маловато выделяется ,поставь Extended
Вот это работает

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  a: Extended;
begin
 a:=1;
for i:=1 to 10000 do
 begin
   ListBox1.Items.Add(floattostr(a));
   a:=a*2;
 end;
end;

@19vitek · 22.02.2011, 18:52

igoriy, попробуй так.

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
a:Extended;
begin
a:=1;
for i:=1 to 10000 do
begin
ListBox1.Items.Add(floattostr(a));
a:=a*2;
end;
end;

@igoriy · 22.02.2011, 18:56

вот на это,если честно, не обратил внимания

Сообщение от 19vitek

FormCreate

Добавлено через 1 минуту
ну хотя попробовал - все прекрасно

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	22.02.2011, 18:56	4
	вот на это,если честно, не обратил внимания Сообщение от 19vitek FormCreate Добавлено через 1 минуту ну хотя попробовал - все прекрасно 0