Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все:
2. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них запятой на точку.
Заранее спасибо
Ответы
Ответ дал:
0
var
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.
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.
Приложения:
![](https://st.uroker.com/files/ab8/ab8d19ff94c854d0a39bf0c420d82587.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад