Заменить символы в файле

@qwertyo · Регистрация: 20.03.2011

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

Дан символьный файл. Заменить все символы ';' на '.'

@CodeR · 08.12.2012, 14:07

Pascal

Var f:file of char;
    ch:char;
    i:byte;
Begin
    Assign(f,'in.dat');Rewrite(f);
    Repeat
     write('Введите символ (конец ввода " "): ');
     readln(ch);
     write(f,ch);
    Until ch=' ';
    Reset(f);
    writeln('Исходны файл');
    While not Eof(f) do
    Begin
      read(f,ch);
      write(ch:2);
    End;
    Reset(f);
    writeln;
    For i:=1 to FileSize(f) do
    Begin
      read(f,ch);
      if ch=';' then
      Begin
        Seek(f,i-1);
        write(f,'.');
      End;
    End;
    writeln('Преобразованный файл');
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,ch);
      write(ch:2);
    End;
    Close(f);
    readln;
End.

@qwertyo 25 / 25 / 28 Регистрация: 20.03.2011 Сообщений: 150
		1
	Заменить символы в файле 07.12.2012, 16:41. Показов 1388. Ответов 1 Метки нет (Все метки) Дан символьный файл. Заменить все символы ';' на '.' 0

	08.12.2012, 14:07

Заменить символы в файле

Решение