Типизированные файлы. Заменить буквы 'p' на 'w' (исправить)

@RazveD · Регистрация: 20.11.2011

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

программа должна заменить буквы 'p' на 'w' из первого файла и записать во второй.Проблема в том, что программа не работает в типизированных файлах. Программа должна работать с типизированными файлами!

Pascal

var
  f,g,h:file of string;
  n:integer;    i,j,s:string;
begin
  assign( f,'кек.txt');
assign(g,'дкт.txt');
 reset(f);
 rewrite(g);
while not Eof(f) do
       begin
       read(f,s);
       for n:=1 to length(s) do
   if s[n]='p' then begin s[n]:='w';
   write(g,s[n]) end else write(g,s[n]);
end;
 
   close(g);
close(f);
   end.

@Pacan1 · 18.06.2012, 11:53

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

assign( f,'кек.txt');
assign(g,'дкт.txt');

ну так поменяй txt на любой другой формат, вот тебе и типизированные файлы

@Pacan1 50 / 50 / 39 Регистрация: 06.12.2011 Сообщений: 237
	18.06.2012, 11:53	2
	Сообщение от RazveD assign( f,'кек.txt'); assign(g,'дкт.txt'); ну так поменяй txt на любой другой формат, вот тебе и типизированные файлы 0

Опции темы