Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 19.12.2006, 19:36   #1
светлана
 
Регистрация: 19.12.2006
Сообщений: 3
Печаль помогите пожалуйста!!! Паскаль

Для решения задачи используйте типизированный файл.1.Даны символьные файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Заранее СПАСИБО!
светлана вне форума   Ответить с цитированием
Старый 19.12.2006, 21:45   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Вот код рабочей программы:
Код:
var f1,f2: file of char;
    s:string;
    a:char;
    i:integer;
begin
Assign(f1,'f1.txt');
Assign(f2,'f2.txt');
Reset(f1);
i:=1;
repeat
Read(f1,s[i]);
inc(i);
until EoF(f1);
Rewrite(f1);
Reset(f2);
repeat
read(f2,a);
write(f1,a);
until EoF(f2);
close(f1);
Rewrite(f2);
for i:=1 to length(s) do
write(f2,s[i]);
close(f2);
writeln(s);
readln;
end.
AVer вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста с задачей в Турбо Паскаль. Bulvai Помощь студентам 1 25.06.2008 18:09
Помогите пожалуйста. Паскаль LLIypLLIyH Помощь студентам 7 12.06.2008 21:01
Помогите пожалуйста. Записи с вариантами. Паскаль. Сирёго Паскаль, Turbo Pascal, PascalABC.NET 6 26.02.2008 22:30


19:03.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.