Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
meprince
1

Объединить два файла в один упорядоченный

17.12.2010, 17:01. Просмотров 1976. Ответов 1
Метки нет (Все метки)

плиз помогите, мне срочно через пару дней надо прогу здавать а никак не получается. вот задание:
type fi:file of integer . В каждом из файлов f и g елементы упорядочение по убыванию описать процедуру merge(f,g,h) которая сливает ети файлы в один файл h упорядоченый по убыванию.
пример
f 7 6 5 3 2
g 9 4 3
h 9 7 6 5 4 3 3 2
заранее спасибо
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2010, 17:01
Ответы с готовыми решениями:

Объединить два упорядоченных списка в один, тоже упорядоченный
Program spisoc1; Type spis=^spisoc; spisoc=record inf:integer; link:spis; end;...

Соединить два массива в один, упорядоченный в возрастающем порядке
Даны численный массив A упорядоченный в возрастающем порядке и численный массив B упорядоченный в...

Объединить два кода в один
Вот первый код (вычисляет номер минимального по модулю элемента массива) program minelem; var...

Сформировать два списка, отсортировать их и объединить в один, не нарушая порядка
Доброго времени суток, не могли бы вы помочь написать код к задаче "Сформировать два списка,...

1
meprince
20.12.2010, 16:10 2
Лучший ответ Сообщение было отмечено как решение

Решение

Мда..... класно помогли.....сам уже решил
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
program sadga;
type fi=file of integer;
var f1,f2,f3:fi;i1,i2:integer;
procedure merge(var f1,f2,f3:fi);
var i1,i2,i:integer;
begin
  read(f1,i1);
  read(f2,i2);
  while  not eof(f1) and not eof(f2) do
  begin
    if eof(f1) then
    begin
      while  not eof(f2) do
      begin
        write(f3,i2);
        read(f2,i2);
      end;
      break;
    end;
    if eof(f2) then
    begin
      while  not eof(f1) do
      begin
        write(f3,i1);
        read(f1,i1);
      end;
      break;
    end;
    if i1 > i2 then
    begin
      write(f3,i1);
      read(f1,i1);
    end
    else
    begin
      write(f3,i2);
      read(f2,i2);
    end;
  end;
end;  
begin
assign(f1,'f');
assign(f2,'g');
assign(f3,'h');
rewrite(f1);
rewrite(f2);
rewrite(f3);
writeln('запишіть дані в файл f');
while TRUE do
begin
if i1=99 then break;
 readln(i1);
 write(f1,i1); 
end;
writeln('запишіть дані в файл g');
while TRUE do
begin
  if i2=99 then break;
 readln(i2);
 write(f2,i2); 
end;
close(f1);
close(f2);
reset(f1);
reset(f2);
merge(f1,f2,f3);
close(f1);
close(f2);
close(f3);
reset(f3);
writeln('те що записано в файлі h');
while  not eof(f3) do
begin 
read(f3,i1);
writeln(i1);
end;
end.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2010, 16:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Списки. Два упорядоченных по возрастанию списка целых чисел объединить в один
Доброго времени суток, ребята. Нужна помощь в написание программы. Два списка упорядоченных по...

Объединить два упорядоченных по неубыванию списка М1 и М2 в один упорядоченный
Написать программу, содержащую процедуру, которая объединяет два упорядоченных по неубыванию списка...

Дано два упорядоченных целочисленных массива. Объединить их в один упорядоченный.
Дано два упорядоченных целочисленных массива. Объединить их в один упорядоченный. помогите...

Объединить два упорядоченных по неубыванию списка в один упорядоченный по неубыванию
Помогите описать процедуру, которая объединяет два упорядоченных по неубыванию списка X1 и X2 в...


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

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

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