Файлы, типизированный файл Опции

[eugenek]

сформировать типизированный файл целых чисел, получаемых с помощью датчика случайных чисел.

[volvo]

Поиск используй, это уже было...

[eugenek]

Так правильно?

      
Program Lab_46;
      Uses Crt;
      Var
        f: file of integer; {файл целого типа}
        r         :integer; {количество чисел вносимых в файл}
        l         :integer; {нижний диапазон}
        h         :integer; {верхний диапазон}
        i,j       : integer;
      begin
        clrscr;
        readln®;
        readln(l);
        readln(h);
        assign(f, 'f_int.plb');
        rewrite(f);
        randomize;
        for i:=1 to r do begin
          j:=(random(h-l))+l;
          write(f,j);
        end;


        close(f);



      end.

[klem4]

Похоже на правду только мне кажется, чтобы получить случайное число в интервале от left до right надо делать вот так :

rnd := left + random(right-left) + 1;

а у тебя полчается рандомное число от 0 до Right-left насколько я понимаю.

[volvo]

мне кажется, чтобы получить случайное число в интервале от left до right надо делать вот так :

rnd := left + random(right-left) + 1;

Не совсем... Надо делать вот так:

rnd := left + random(right-left+1);

Посмотри например, как делать число в интервале 2 .. 9 ? Нужно

2 + Random(8)

, а не

2 + Random(7) + 1

... При твоем способе получится число из интервала (left+1) .. right, число left ты уже не получишь...

а у тебя полчается рандомное число от 0 до Right-left насколько я понимаю.

:no:
Получался интервал left .. (right-1)

[klem4]

Прошу прощения, я не смог отличить букву l от единички ))))) , у автора ведь тоже самое написано, только у меня еще + 1

значит надо вот так :

rnd := left + random(right-left+1);

Сообщение отредактировано: klem4 - 24.08.2005 18:30

[eugenek]

Не совсем... Надо делать вот так:

rnd := left + random(right-left+1);

Действительно..., спасибо, учту.