|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.03.2010, 22:35 | #1 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 12
|
Типизированные файлы
Здравствуйте, помогите пожалуйста , с помощу процедуры.
Сформировать файлы f1 и f2. Формулу для формирования f2 взять с (А). переписать с сохранением порядка следования компоненты файла f1 - в файл f2, а компоненты файла f2 - в файл f1, используя промежуточный файл h. (А) - получить в файле h компоненты файла f типа integer, которые являются нечетными числами. |
15.03.2010, 00:20 | #2 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
255507394.
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
15.03.2010, 03:16 | #3 |
Заблокирован
Регистрация: 11.12.2009
Сообщений: 133
|
icq: 136665509
|
15.03.2010, 07:51 | #4 |
Регистрация: 03.03.2010
Сообщений: 4
|
Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.
helpprogram@mail.ru
|
15.03.2010, 08:21 | #5 |
Заблокирован
Регистрация: 08.01.2010
Сообщений: 0
|
Готов взяться за проект
номер ICQ: 565460353 или 480964456 mikefreelance@rambler.ru |
15.03.2010, 09:44 | #6 |
Пользователь
Регистрация: 02.10.2008
Сообщений: 14
|
Cтучись, договоримся 255два343
|
16.03.2010, 12:20 | #7 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 12
|
спс но уже сам как то написал!)
uses crt; var f1,f2,h:file of integer; a:integer; begin clrscr; assign(f1,'file1'); rewrite(f1); assign(f2,'file2'); rewrite(f2); assign(h,'fileh'); rewrite(h); writeln('Введите в файл целые числа, окончание ввода ноль:'); repeat readln(a); write(f1,a);{создание 1 файла} until a=0; clrscr; writeln('Содержание исходного файла:'); reset(f1); while not eof(f1) do begin read(f1,a); write(a,' '); if odd(a) then write(f2,a);{создание 2 файла} write(h,a);{файл 1 в буфер} end; writeln; close(f1); reset(f2); writeln('Содержание второго файла:'); reset(f2); rewrite(f1); while not eof(f2) do begin read(f2,a); write(a,' '); write(f1,a);{файл 2 в файл 1} end; writeln; close(f2); reset(h); rewrite(f2); while not eof(h) do begin read(h,a); write(f2,a);{из буфера в файл 2} end; erase(h);{уничтожим буфер} writeln('Файлы после обмена'); writeln('Бывший первый:'); reset(f1); while not eof(f1) do begin read(f1,a); write(a,' '); end; writeln; close(f1); writeln('Бывший второй:'); reset(f2); while not eof(f2) do begin read(f2,a); write(a,' '); end; writeln; close(f2); readln end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Типизированные файлы | qwertytol | Помощь студентам | 2 | 02.06.2009 08:44 |
типизированные файлы | felmor | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 15.05.2009 09:49 |
Типизированные файлы | Ddr | Общие вопросы Delphi | 11 | 27.04.2009 20:38 |
Типизированные файлы | Xeon332 | Помощь студентам | 8 | 27.02.2009 20:15 |