Записать в файл последовательного доступа N натуральных чисел: a1, a2, ... аn (числа получить с помощью генератора случайных чисел

[Casillas1]

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

Теоретически - могу. Практически - вряд ли..
Но я же пост написал, чтобы помочь ZX Spectrum-128, вроде бы он имеет желание и возможность осчастливить Вас!

А Вы не хотите ему рассказать, как формируется вторая последовательность чисел!!
Рассказали бы, пример с конкретными числами привели, уже, глядишь, и получили бы готовый код..


ZX Spectrum-128, угу. понимаю Вас!

ну это на его выбор, а вы можете сделать?

[ZX Spectrum-128]

Функцию нахождения факториала оставил вам.

Var
 I,a,n:integer;
 F,f1:text;

// здесь ваша функция нахождения факториала

Begin
 write('Введите количество чисел: ');
 Readln(n);
 Assign(f,'file.txt');
 Assign(f1,'file1.txt');
 Rewrite(f);
 For i:=1 to n do
  Begin
   A:=random(n)+1;
   Writeln(f,a);
  End;
 Close(f);
 ReSet(f);
 Rewrite(f1);
 while not eof(f) do
  begin
   readln(f,i);
   writeln(f1,factorial(i));
  end;
 Close(f1);
 Close(f);
 end.

[Аватар]

Там вообще-то не факториал, а произведение нескольких чисел. На факториал похоже в смысле результата - может быть запредельным и без длинной арифметики не обойтись. И одним циклом можно все сделать, сразу формируя два выходных файла

[Casillas1]

Сообщение от Аватар

Там вообще-то не факториал, а произведение нескольких чисел. На факториал похоже в смысле результата - может быть запредельным и без длинной арифметики не обойтись. И одним циклом можно все сделать, сразу формируя два выходных файла

сможете сделать?

[ZX Spectrum-128]

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

[Casillas1]

Сообщение от ZX Spectrum-128

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

я не могу, можете помочь?