Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ar1n
0 / 0 / 0
Регистрация: 22.01.2014
Сообщений: 13
1

Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F

27.01.2014, 10:40. Просмотров 773. Ответов 1
Метки нет (Все метки)

Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F, упорядоченные по убыванию. G – текстовый файл. Программу написать без использования массива.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2014, 10:40
Ответы с готовыми решениями:

Файл: Переписать с сохранением порядка следования компоненты файлы f1 в файл f2, а компоненты файла f2 - в файл f1.
При открытии и сохранении файла необходимо использовать файловые диалоги. ...

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

Переписать в новый файл сначала компоненты, превышающие среднее арифметическое элементов исходного, а затем все остальные компоненты
Дан файл вещественных чисел. Переписать в новый файл сначала все компоненты,...

Дан файл, компоненты которого целые числа. Найти наименьшее число и поставить его первым
Помогите пожалуйста решить задачу по Turbo Pascal: Дан файл, компоненты...

Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы вначале шли положительные, затем отрицательные числа
Помогите решить. 1)Создать и заполнить текстовой файл f. Файл f содержит...

1
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
27.01.2014, 13:08 2
Лучший ответ Сообщение было отмечено ar1n как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
program sort;
 
var i, j, k, m: integer;
    f: file of integer;
    g: text;
 
begin
  assign(f, 'c:\f.bin');
  reset(f);
  for i := 0 to filesize(f) - 2 do
    begin
      seek(f, i);
      read(f, m);
      for j := i + 1 to filesize(f) - 1 do
        begin
          seek(f, j);
          read(f, k);
          if k > m
            then begin
              seek(f, i);
              write(f, k);
              seek(f, j);
              write(f,m);
              m := k
            end
        end
    end;
  reset(f)
  assign(g, 'c:\g.txt');
  rewrite(g);
  while not(eof(f)) do
    begin
      read(f, k);
      writeln(g, k)
    end;
  close(f);
  close(g)
end.
Однако, файл c:\f.bin должен быть создан заранее. Это можно сделать с помощью такой программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program init;
 
var i, k, m: integer;
    f: file of integer;
 
begin
  randomize;
  m := random(901) + 10; //от 10 до 1000 компонентов
  assign(f, 'c:\f.bin');
  rewrite(f);
  for i := 1 to m do
    begin
      k := random(maxint) - maxint div 2;
      write(f, k)
    end;
  close(f)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2014, 13:08

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

Переписать в файл G в обратном порядке все нечетные компоненты файла F
Создать файл F, содержащий целые числа. Переписать в файл G в обратном порядке...

Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот
Помогите решить! Дан текстовый файл f. Переписать в файл g все компоненты...


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

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

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