Почему не работает такого типа рандом? И как его исправить?

@VuFa · Регистрация: 05.03.2011

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

Почему не работает такого типа рандом? И как его исправить? заранее спасибо! при ране выкидывает эррор((

Pascal

procedure Fill(var D: Dequeue; var e: StdElement; DNo: No);
var i,k:integer;
    alf:array[1..26] of char;
begin
    for i:=1 to 26 do
    begin
        alf[i]:=CHR(96+i);
    end;
    e.key:=0;
    for i:=1 to 10 do
    begin
 
        e.data:='';
 
        for k:=1 to random(5)+5 do
        begin
 
             e.data:=e.data+alf[random(26)];
        end;
                e.key:=nextkey;
        Enqueue(D,e,2);
        inc(nextkey);
    end;
 
end;

magirus · 22.05.2011, 09:21

Комментарий модератора

назывйте темы максимально информативно(Правила п.3.3)

@Puporev · 22.05.2011, 16:33

Pascal

1	for k:=1 to random(5)+5 do

Да потому что цикл с параметром должен иметь точно заданное число итераций..

Pascal

1 2	n:=random(5)+5; for k:=1 to n do

	22.05.2011, 16:33