• B правой части каждого сообщения есть стрелки ⇧ и ⇩. Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.

Borland Pascal

  • Автор темы Tretyak
  • Дата начала
T

Tretyak

Дано символьний файл f. Переписати компоненти файлу f у файл g, замінивши при цьому кожен знак оклику крапкою.
 
Сортировать по дате Сортировать по голосам
S

sinkopa

Tretyak сказал(а):
Дано символьний файл f. Переписати компоненти файлу f у файл g, замінивши при цьому кожен знак оклику крапкою.
Нажмите, чтобы раскрыть...
Код: 
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.
 
За 0 Против
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ