Borland Pascal

Тема в разделе "Pascal and Delphi", создана пользователем Tretyak, 19 мар 2013.

  1. Tretyak

    Tretyak New Member

    Регистрация:
    19 мар 2013
    Сообщения:
    1
    Симпатии:
    0
    Дано символьний файл f. Переписати компоненти файлу f у файл g, замінивши при цьому кожен знак оклику крапкою.
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Код (Delphi):
    var
    f,g: Text;
    fName: String;
    c: Char;
    begin
    try
    Write('Введіть ім''я файлу без розширення: ');
    Readln(fName);
    Assign(f,fName+'.txt');
    Reset(f);
    Assign(g,fName+'2.txt');
    Rewrite(g);
    While not Eof(f) do
    begin
    Read(f,c);
    If c='!' Then
    c:='.';
    Write(g,c);
    end;
    Close(f);
    Close(g);
    except
    Writeln('Файл не знайдено!');
    end;
    end.
     
Загрузка...

Поделиться этой страницей