Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4

@dimulbkin · Регистрация: 21.12.2008

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

Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4.

ИСХОДНЫЕ ДАННЫЕ:
F= { 16; 19; 21; 20; 12; 31; 29;}

помогите пожалуйста....заранее благодарен

@Vladiator · 12.03.2009, 17:31

Давай лучше, пользователь сам заполнит файл.

Pascal

program xxx;
var
 f,g:file of integer;
 i:integer;
begin
 assign(f,'f');
 assign(g,'g');
 reset(f);
 rewrite(f);
 while not eof(f) do begin
  read(f,i);
  if (i mod 5=1) or (i mod 5=4) then write(g,i);
 end;
 close(f);
 close(g);
end.

@dimulbkin · 12.03.2009, 17:51 **[ТС]**

в том то всё и дело, что файл надо создать с расширением dat, и надо чтоб этот файл был записан как программа, я вот с этим справиться не могу, помогите плизззз!

@yanyk1n · 12.03.2009, 17:53

Просто при указании файла в операторе assign пиши:

Pascal

1	assign(file,'file.dat');

@dimulbkin · 12.03.2009, 17:56 **[ТС]**

не вы меня не так поняли, мне надо чтоб к этому заданию было 2 программы, первая программа должна создавать файл с расширением dat а втрорая должна его обрабатывать!

@yanyk1n · 12.03.2009, 18:00

первая программа:

Pascal

program input;
var f:file of integer;
     i,n,k:integer;
begin
 assign(f,'f.dat');
 rewrite(f);
 readln(n);
 for i:=1 to n do
 begin
  readln(k);
  writeln(f,k);
 end;
 close(f);
 end.

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4

Решение

Решение

@dimulbkin 1 / 1 / 0 Регистрация: 21.12.2008 Сообщений: 15
		1
	Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4 12.03.2009, 17:10. Показов 1303. Ответов 5 Метки нет (Все метки) Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4. ИСХОДНЫЕ ДАННЫЕ: F= { 16; 19; 21; 20; 12; 31; 29;} помогите пожалуйста....заранее благодарен 0

@dimulbkin 1 / 1 / 0 Регистрация: 21.12.2008 Сообщений: 15
	12.03.2009, 17:51 [ТС]	3
	в том то всё и дело, что файл надо создать с расширением dat, и надо чтоб этот файл был записан как программа, я вот с этим справиться не могу, помогите плизззз! 0

@dimulbkin 1 / 1 / 0 Регистрация: 21.12.2008 Сообщений: 15
	12.03.2009, 17:56 [ТС]	5
	не вы меня не так поняли, мне надо чтоб к этому заданию было 2 программы, первая программа должна создавать файл с расширением dat а втрорая должна его обрабатывать! 0

	12.03.2009, 18:00