Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все:
2. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них запятой на точку.
Заранее спасибо
2. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них запятой на точку.
Заранее спасибо
More Questions From This User See All
Answers & Comments
S:char;
F1,F2:text;
begin
Assign(F1, 'input.txt'); \\Присваиваем
Assign(F2, 'output.txt');
Reset(F1); \\Открываем F1 для прочтения
Rewrite(F2); \\Открываем F2 для записи
while not eof(F1) do \\Пока не конец файла F1
begin
Read(F1, S); \\Вводим символ
if S=',' \\ Если запятая, то заменяем ее точкой
then S:='.';
write(F2,S); \\Пишем в F2
end;
close(F1); \\Закрываем
close(F2);
end.