Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 29 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

29
while not eof(f) do
begin
read(f, d); if pos(d, alp) <> 0 then write(h, d)
end;
closefile(f); closefile(h)
end;
Задача 40. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Записать в новый типизированный файл
все цифры из исходного типизированного файла .
Задача 41. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Заменить второй символ файла симво-
лом ′ # ′ . ( Не используя вспомогательный файл . )
Задача 42. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Переписать всё содержимое исходного
типизированного файла кроме предпоследнего элемента в новый ти-
пизированный файл . 
                                       29
     while not eof(f) do
     begin
     read(f, d); if pos(d, alp) <> 0 then write(h, d)
     end;
     closefile(f); closefile(h)
     end;
     За д а ча 40. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За писа ть в н овый типизирова н н ый ф а йл
все циф ры из исход н ого типизирова н н ого ф а йла .




     За д а ча 41. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За м ен ит ь второй сим вол ф а йла сим во-
лом ′ # ′ . ( Не использу я вспом ога тельн ый ф а йл. )




     За д а ча 42. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. П ереписа т ь всё сод ерж им ое исход н ого
т ипизирова н н ого ф а йла кром е пред послед н его э лем ен т а в н овый т и-
пизирова н н ый ф а йл.

Страницы