Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Seniks
0 / 0 / 1
Регистрация: 16.09.2016
Сообщений: 68
1

Используя вспомогательный файл, заданным образом переписать компоненты исходного файла в результирующий файл

20.11.2016, 21:29. Просмотров 835. Ответов 1
Метки нет (Все метки)

Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле g сначала шли положительные, потом отрицательные числа;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2016, 21:29
Ответы с готовыми решениями:

Даны два символьных файла F1 и F2. Переписать F1 в F2 , а F2 в F1. Использовать вспомогательный файл
4) Даны два символьных файла F1 и F2. Переписать F1 в F2 , а F2 в F1....

Сформировать целочисленный файл, число компонент которого кратно 10. Переписать компоненты файла в другой файл
Сформировать целочисленный файл, число компонент которого кратно 10. Переписать...

Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования...

Переписать из исходного файла в новый файл отрицательные, затем нулевые, затем положительные компоненты
Ввести файл с числовыми компонентами F1.Создать файл F2, переписав в него в...

1
Cyborg Drone
Модератор
5290 / 3169 / 2441
Регистрация: 17.08.2012
Сообщений: 10,178
21.11.2016, 16:24 2
Лучший ответ Сообщение было отмечено Seniks как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var f, g, h: file of integer;
    t: integer;
begin
  assign(f, 'f.dat');
  reset(f);
  assign(g, 'g.dat');
  rewrite(g);
  assign(h, 'h.dat');
  rewrite(h);
  while not eof(f) do
    begin
      read(f, t);
      if t < 0
        then write(h, t)
        else write(g, t)
    end;
  reset(h);
  while not eof(h) do
    begin
      read(h, t);
      write(g, t)
    end;
  close(f);
  close(g);
  close(h);
  erase(h)
end.
Цитата Сообщение от Seniks Посмотреть сообщение
Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных.
В программе никак не используется. Зачем вообще приведены эти уточнения, неясно совершенно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 16:24

В результирующий файл переписать содержимое текстового файла
не можите помочь с одной задачкой....делаю делаю..полная фигня получается......

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... ...

Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу
помогите решить задачу, у самой только получилось чтоб программа копировался f...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru