Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
knights1989
Сообщений: n/a
#1

Перевод готовой программы с Pascal на С++ - C++

05.06.2010, 20:46. Просмотров 387. Ответов 0
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста перевести задачу с Pascal на С++ (вообще не понимаю этот язык)
Если что сама задача: Даны файлы f и g, компоненты которых являются целыми
числами,упорядоченные по невозрастанию. Получить в файле h все числа
файлов f и g. Файл h должен быть упорядочен по
убыванию. Результаты отображать на экране.

Вот я её на пасакле сделал.
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
uses crt,dos;
const n=10;
type
   fil=file of integer;
var
   f,g,h,h1:fil;
   x,y,i,j:integer;
 
procedure sozd;
begin
      assign(f,'c:\temp\461\f.txt');
      assign(h,'c:\temp\461\h.txt');
      assign(g,'c:\temp\461\g.txt');
      rewrite(f);rewrite(h);rewrite(g);
      for i:=1 to n do
begin
    x:=random(n);
    y:=random(n);
    write(f,x);
    write(h,x);
    write(g,y);
    write(h,y);
end;
      close(f);close(g);close(h);
end;
 
procedure printf(var f:fil);
var
   x:integer;
 
begin
   reset(f);
   while not eof(f) do
      begin
read(f,x);
write(x:4);
      end;
   close(f);
   readln;
end;
 
procedure obf(var f:fil);
var
  x,y:integer;
begin
  reset(f);
  for i:=n-1 downto 1 do
   for j:=1 to i do
      begin
seek(f,j-1);read(f,x);seek(f,j);read(f,y);
if x<y then
    begin
       seek(f,j-1);write(f,y);
       seek(f,j);write(f,x);
    end;
      end;
  close(f);
end;
 
procedure ob(var h:fil);
var
  x,y:integer;
begin
  reset(h);
  for i:=2*n-1 downto 1 do
    for j:=1 to i do
      begin
seek(h,j-1);read(h,x);seek(h,j);read(h,y);
if x<y then
    begin
       seek(h,j-1);write(h,y);
       seek(h,j);write(h,x);
    end;
      end;
  close(h);
end;
 
begin clrscr;
      randomize;
      assign(f,'a.txt');
      assign(g,'a1.txt');
      assign(h,'a2.txt');
      assign(h1,'a3.txt');
      sozd;
      obf(f);
      writeln('файл f:');
      printf(f);
      obf(g);
      writeln('файл g:');
      printf(g);
      reset(h);reset(f);reset(g); 
   while not eof(f) do
      begin
read(f,x);
write(h,x);
      end;
   while not eof(g) do
      begin
read(g,x);
write(h,x);
      end;
   close(f);close(g);close(h);
   ob(h);
   assign(h1,'c:\temp\461\h1.txt');
   rewrite(h1);reset(h);
   read(h,y);
   while not eof(h) do
      begin
read(h,x);
if x<>y then
    begin
       write(h1,x);
       y:=x;
    end;
      end;
   close(h);close(h1);
   writeln('файл h:');
   printf(h1);  
   ob(h);printf(h);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2010, 20:46     Перевод готовой программы с Pascal на С++
Посмотрите здесь:

Перевод готовой программы - C++
Добрый день! Помогите мне перевести готовую программу на с++. И нужно сделать классы по возможности. Uses crt; Type book=Record ...

Перевод программы из Pascal в C++ - C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля нулевые, знания С++ - скромные,...

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...

Перевод программы с Pascal на C++ - C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; var a, b, c, x, x1, x2, dX, k:...

Перевод программы из Pascal на C++ - C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); readln(a); for m:=-5 to 5 do

Перевод программы с pascal на С++ - C++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y, l:Mat; a, b, s:real; i:byte; ...

Перевод программы с Pascal на С++ - C++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text: string; i: integer; count:...

Перевод программы с Pascal на С++ - C++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i mod 3 = 0) and (i mod 5 &lt;&gt; 0)...

Перевод программы с Pascal на С++ - C++
1. procedure TForm1.Button1Click(Sender: TObject); var i,k,n:integer; x,y,S:array of real; D:real; begin ...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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