Все четные элементы файла заменить нулями

@Виталий Волога · Регистрация: 30.06.2009

Помогите мне пожалуйста с задачами,очень вас прошу.
1)имеется типизированный файл с целыми числами.Все его четные элементы заменить нулями.Рассмотреть два варианта:
а)известно,что в существующем файле записаны 13 чисел;
б)Размер сущетвующего файла неизвестен.
2)Имеется текстовый файл.Переписать его строки в другой файл.Порядок строк во втором файле должен:
а)совпадать с порядком строк в заданном файле.
б)быть обратным по отношению к порядку строк в заданном файле.

Добавлено через 4 часа 46 минут 1 секунду
Ну хоть кто нибудь,помогите

@Все имена заняты · 01.07.2009, 02:53

1a)

Pascal

uses crt;
var f:file of integer;
n:integer;
i:byte;
begin
clrscr;
assign(f,'newfile.dat');
rewrite(f);
writeln('Ishodnyi fail');
randomize;
for i:=1 to 13 do
 begin
 n:=random(9)+1;
 write(f,n);
 write(n,' ');
 end;
writeln;
writeln('Izmenennyi fail');
seek(f,0);
for i:=0 to 12 do
 begin
 read(f,n);
 if i mod 2<>0 then
  begin
   n:=0;
   seek(f,i);
   write(f,n);
   end;
 write(n,' ');
 end;
readln;
end.

@John_Pa9JIbHuK · 01.07.2009, 09:28

2)

Pascal

F1:text;
f2:text;
L,i,m,k:integer;
buf:char;
s:string;
mac:array [1..100] of string;
begin
Assign(f1,'d:\1.txt');
assign(f2,'d:\2.txt');
reset(f1);
rewrite(f2);
m:=0;
while not eof(f1) do
begin
m:=m+1;
readln(f1,s);
mac[m]:=s;
end;
writeln('çàïèñûâàòü ñ ïîâîðîòîì?1)Äà 2)Íåò');
readln(l);
if l=1 then
begin
for i:=m downto 1  do
begin
writeln(f2,mac[i]);
end;
end;
if l=2 then
begin
for i:=1 to m  do
begin
writeln(f2,mac[i]);
end;
end;
close(f1);
close(f2);
end.

@Виталий Волога · 02.07.2009, 10:23 **[ТС]**

Мне хотелось бы уточнить насчет второй задачи,там надо отдельно создавать 1.txt и 2.txt,если нет,то что мне имено надо делать?

Все четные элементы файла заменить нулями

Решение

Решение

@Виталий Волога 0 / 0 / 0 Регистрация: 30.06.2009 Сообщений: 12
		1
	Все четные элементы файла заменить нулями 01.07.2009, 01:41. Показов 1417. Ответов 3 Метки нет (Все метки) Помогите мне пожалуйста с задачами,очень вас прошу. 1)имеется типизированный файл с целыми числами.Все его четные элементы заменить нулями.Рассмотреть два варианта: а)известно,что в существующем файле записаны 13 чисел; б)Размер сущетвующего файла неизвестен. 2)Имеется текстовый файл.Переписать его строки в другой файл.Порядок строк во втором файле должен: а)совпадать с порядком строк в заданном файле. б)быть обратным по отношению к порядку строк в заданном файле. Добавлено через 4 часа 46 минут 1 секунду Ну хоть кто нибудь,помогите 0

@Виталий Волога 0 / 0 / 0 Регистрация: 30.06.2009 Сообщений: 12
	02.07.2009, 10:23 [ТС]	4
	Мне хотелось бы уточнить насчет второй задачи,там надо отдельно создавать 1.txt и 2.txt,если нет,то что мне имено надо делать? 0

Опции темы