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

@almazka · Регистрация: 20.02.2014

Author24 — интернет-сервис помощи студентам

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

@edukra · 06.03.2014, 08:20

Кликните здесь для просмотра всего текста

Pascal

var f:TextFile;
    a:array of Integer;
    i,j:Integer;
    b:Boolean;
begin
 Assignfile(f,'f');
 Rewrite(F);
 for i:=1 to 100 do Writeln(f,Random(100));
 CloseFile(f);
 SetLength(a,1);
 Reset(f);
 Readln(f,a[0]);
 while not Eof(f) do begin
   Readln(f,j);
   b:=False;
   for i:=0 to Length(a)-1 do If a[i]=j then b:=True;
   if not b then begin
     SetLength(a,Length(a)+1);
     a[Length(a)-1]:=j;
   end;
 end;
 Closefile(f);
 Assignfile(f,'g');
 Rewrite(f);
 for i:=0 to Length(a)-1 do Writeln(f,a[i]);
 Closefile(f);
 assignprn(f);
 Rewrite(f);
 for i:=0 to Length(a)-1 do Writeln(f,a[i]);
 CloseFile(f);
end;

@almazka · 06.03.2014, 08:53 **[ТС]**

edukra, а в делфи как будет?

@edukra · 06.03.2014, 09:08

а это и есть в дельфи. Назначь этот код на нажатие кнопки и добавь в строку uses модуль QPrinters

@almazka 0 / 0 / 0 Регистрация: 20.02.2014 Сообщений: 30
		1
	Заполнить файл последовательного доступа f целыми числами полученными с помощью генератора случайных чисел 06.03.2014, 07:34. Показов 1220. Ответов 3 Метки нет (Все метки) Заполнить файл последовательного доступа f целыми числами полученными с помощью генератора случайных чисел. файла f получить файл g, исключив повторные вхождения чисел. вывести файл g на печать 0

@almazka 0 / 0 / 0 Регистрация: 20.02.2014 Сообщений: 30
	06.03.2014, 08:53 [ТС]	3
	edukra, а в делфи как будет? 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	06.03.2014, 09:08	4
	а это и есть в дельфи. Назначь этот код на нажатие кнопки и добавь в строку uses модуль QPrinters 0