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

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

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

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

Даны два символьных файла 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
Модератор
5251 / 3118 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
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...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.
Добрый вечер. Есть такая вот задачка. Помогите пожалуйста... Дан текстовый...

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить
Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в...


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

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

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