Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Вниз

Массив   Найти похожие ветки 

← →
Bad_B   (2007-05-03 13:07) [0]

Подскажите, почему этот код выдает баг:

const n=10;
var
a:array of integer;
i,k:integer;
begin
setlength(a,n);
k:=0;
for i:=0 to n do
begin
a[i]:=random(98);
if (a[i] mod 9=2) then
memo1.Lines.Add(inttostr(a[i]))
else
inc(k);
end;

---

← →
clickmaker ©   (2007-05-03 13:12) [1]

потому что to n-1 надо

---

← →
umbra ©   (2007-05-03 13:12) [2]

каков наибольший индекс в массиве?

---

← →
icWasya ©   (2007-05-03 13:15) [3]

for i:=low(a) to high(a) do // !!!

---

← →
Bad_B   (2007-05-03 13:16) [4]

> clickmaker ©   (03.05.07 13:12) [1]

как я это мог пропустить:((... В самом деле до n-1. От нуля ж...
Спасибо.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.042 c