Формирование чисел с пом. random и построение столбчатой диаграммы.

[syc07]

\UPDATE программа написана, тему можно закрыть\удалить.



Сформировать с помощью датчика случайных чисел 100 чисел в пределах от 1 до 10, построить столбчатую диаграмму частоты выпадения каждого числа.

program rand;
uses crt;
type kg=integer;
type mas=array[1..10] of kg;
Var a:mas;
    f:text;
    y,s:string;
    x,k,i,j,allcount,mx,h:integer;
    msh:real;
begin
clrscr;
allcount:=0;
s:='0123456789';
assign(f,'new.txt');
rewrite(f);
for k:=1 to 100 do
 begin
   x:=1+random(10);
   writeln(f,x);
 end;
close(f);
reset(f);
while not EOF(f) do
readln(f,y);
for i:=1 to 10 do
a[i]:=0;
for i:=1 to length(y) do
if pos(UpCase(y[i]),s)>0 then
  begin
    a[pos(UpCase(y[i]),s)]:=a[pos(Upcase(y[i]),s)]+1;
    allcount:=allcount+1;
  end;
close(f);
clrscr;
gotoxy(1,25);
for i:=1to 10 do
  begin
    gotoxy(i*3,wherey);
    write(chr(i+47));
  end;
mx:=0;
for i:=1 to 10 do
if a[i]>mx then mx:=a[i];
msh:=22/mx;
for i:=1 to 10 do
  begin
    h:=i*3;
    for j:=24 downto 24-round(a[i]*msh) do
      begin
       gotoxy(h,j);
       write('*');
      end;
    gotoxy(h,wherey-1);
    write(a[i]);
  end;
readln;
end.

программа почему-то берет только одно(последнее?)число и заносит его в диаграмму.
Как ее заставить "кушать" все 100 чисел?

[Dogmat]

Забыли Randimize.

Добавте, где-нибудь перед использованием функции random. Например:

rewrite(f);
randomize;
for k:=1 to 100 do
 begin
   x:=1+random(10);
   writeln(f,x);
 end;

[Alex11223]

почему-то

Потому что такой синтаксис в Паскале) Пример: в 1 случае в цикле выполнится только a:=a+i; а b:=b+i; выполнится только 1 раз (и i будет = 10) после цикла. Во 2 случае оба будут в цикле.

for i:=1 to 10 do
   a:=a+i;
b:=b+i;

for i:=1 to 10 do
begin
   a:=a+i;
   b:=b+i;
end;

В данном случае в while not eof(f) выполняется только readln(f,y) и естественно после цикла он = последнему числу.