генератор случайных чисел

[dearkato]

Выдать на экран 5 целых случайных чисел в диапазоне от -15 до +36.
Вот что я написала, вот только он не выдает отрицательных чисел((( в чем ошибка??

procedure TForm1.button1Click(Sender: TObject);
var a,b,c,d,e,i:Shortint;
begin
Randomize;
for i:=-15 to +36 do
begin
a:=Random(i);
b:=Random(i);
c:=Random(i);
d:=Random(i);
e:=Random(i);
end;
label2.Caption:=IntToStr(a)+' '+IntToStr(b)+' '+IntToStr(c)+' '+IntToStr(d)+' '+IntToStr(e);
end;

[unbanned]

randomize;
label2.caption:='';
for i:=1 to 5 do 
  begin
     x:=random(52)-15;
     label2.caption:=label2.caption+' '+inttostr(x);
  end;

а у вас ошибка вот в чем

for i:=-15 to +36 do

цикл от -15 до 36 это все равно что от 1 до 21

т.е. грубо говоря вы 21 раз меняете значения переменных a,b,c,d,e
причем конечное значение( random(36) ) у переменных будет в диапазоне от 0 до 35

[unbanned]

Сообщение от unbanned

все равно что от 1 до 21

поправка))) не до 21го, а аж до 52х

[Sna1L]

я вообще смысла цикла не понял. Вы 52 раза присваиваете переменным значения и никак их не используете. Причем финальный этап выглядит так:
a:=Random(36);
b:=Random(36);
c:=Random(36);
d:=Random(36);
e:=Random(36);

почему просто не написать:

for i:=1 to 5 do
label2.Caption:=IntToStr( random(52) - 15 )+' '+label2.Caption;

ЗЫ заметьте, вы используете на десяток байт памяти меньше
ЗЫЫ модераторы, извините за второе сообщение

[Sna1L]

я вообще смысла цикла не понял.
почему просто не написать:

for i:=1 to 5 do
label2.Caption:=IntToStr( random(52) - 15 )+label2.Caption;