Прошу составить программу на Паскале

регинчик · 25.12.2011, 17:04

записатьь в файл последовательного доступа N произвольных натуральных чисел.. переписать в др файл последовательного доступа те элементы, которые кратны k . вывести полученный файл на печать.

Vladimir_S · 25.12.2011, 17:25

Кто бы мне объяснил, что в данном случае подразумевается под "файлом последовательного доступа". Честно говоря, раньше с этим термином не сталкивался. В Сети почитал про них, да так и не понял, чем они от обычных отличаются. По-моему, в Паскале других и не бывает. Или нет?

AlexZir · 25.12.2011, 20:48

Есть еще с произвольным доступом, где можно обращаться к элементу файла, указав смещение, но это редко кем и когда используется

Vladimir_S · 25.12.2011, 21:02

Цитата:

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

Есть еще с произвольным доступом, где можно обращаться к элементу файла, указав смещение, но это редко кем и когда используется

Понятно. И студней дурют, и нас заодно. Бедные мы, бедные...

fagot86 · 25.12.2011, 22:47

Не всё так плохо. Есть идея:

PHP код:


			
uses crt;

const n=50;k=7;

var f1,f2:file of integer;

    i,c1:integer;



begin

     assign (f1,'old.dat');

     assign (f2,'new.dat');

     rewrite(f1);

     rewrite(f2);

    

     randomize;

     for i:=1 to n do

       begin

         c1:=random(50);

         write(f1,c1);

         write(c1,' ');

       end;

     writeln;close(f1);reset(f1);



     while not eof(f1) do

        begin

             read(f1,c1);

             if ((c1 mod k)=0)and((c1<>0))

                then write(f2,c1);

        end;

     writeln;close(f2);reset(f2);

        

     while not eof(f2) do

        begin

             read(f2,c1);

             write(c1,' ');

        end;

        

     close(f2);

     close(f1);



end.

25.12.2011, 17:04	#1 (permalink)
регинчик Новичок Регистрация: 25.12.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Прошу составить программу на Паскале записатьь в файл последовательного доступа N произвольных натуральных чисел.. переписать в др файл последовательного доступа те элементы, которые кратны k . вывести полученный файл на печать.

25.12.2011, 22:47	#5 (permalink)
fagot86 Новичок Регистрация: 25.12.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Не всё так плохо. Есть идея: PHP код: uses crt; const n=50;k=7; var f1,f2:file of integer; i,c1:integer; begin assign (f1,'old.dat'); assign (f2,'new.dat'); rewrite(f1); rewrite(f2); randomize; for i:=1 to n do begin c1:=random(50); write(f1,c1); write(c1,' '); end; writeln;close(f1);reset(f1); while not eof(f1) do begin read(f1,c1); if ((c1 mod k)=0)and((c1<>0)) then write(f2,c1); end; writeln;close(f2);reset(f2); while not eof(f2) do begin read(f2,c1); write(c1,' '); end; close(f2); close(f1); end.

25.12.2011, 17:25	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Кто бы мне объяснил, что в данном случае подразумевается под "файлом последовательного доступа". Честно говоря, раньше с этим термином не сталкивался. В Сети почитал про них, да так и не понял, чем они от обычных отличаются. По-моему, в Паскале других и не бывает. Или нет?

25.12.2011, 20:48	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Есть еще с произвольным доступом, где можно обращаться к элементу файла, указав смещение, но это редко кем и когда используется

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070