Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел...

@Лида · Регистрация: 26.06.2011

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

@Puporev · 02.03.2012, 17:15

Pascal

uses crt;
var f,g:file of integer;
    n,a,i,p:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
seek(f,0);
for i:=0 to filesize(f)-2 do
 begin
  seek(f,i);
  read(f,p);
  seek(f,i+1);
  read(f,a);
  p:=p*a;
  write(g,p);
 end;
close(f);
seek(g,0);
writeln;
writeln;
writeln('Содержание полученного файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.

@Лида · 02.03.2012, 19:01 **[ТС]**

Спасибо огромное!!!!

@Лида 2 / 2 / 0 Регистрация: 26.06.2011 Сообщений: 18
		1
	Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел... 02.03.2012, 17:00. Просмотров 1535. Ответов 2 Метки нет (Все метки) Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются произведениями соседних компонентов файла f. 0

@Лида 2 / 2 / 0 Регистрация: 26.06.2011 Сообщений: 18
	02.03.2012, 19:01 [ТС]	3
	Спасибо огромное!!!! 0

Опции темы

Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел...

Решение