Перевести программу на с++, Код на Pascal'e Опции

[Domin9es]

Помогите переделать программу в с++. Для меня особенно непонятно формирование файла с


Файлы а и в, компоненты которых являются целыми числами, упорядочены по неубыванию. Получить в файле с все числа файлов а и в без повторений. Файл с должен быть упорядочен по неубыванию. Файлы а и в заполняются вручную.

 
program kk;
var a,b,c:file of integer;
    x,y,t:integer;
begin
clrscr;
  assign(a,'a.int');
  assign(b,'b.int');
  assign(c,'c.int');
  { Vvod znacheniy v faylu a,b}
  writeln('Vvedite chisla iz fayla A, v konce - 0');
  rewrite(a);
  readln(x);
  while x<>0 do
  begin
    write(a,x);
    readln(x);
  end;
  close(a);
  writeln('Vvedite chisla iz fayla B, v konce - 0');
  rewrite(b);
  readln(x);
  while x<>0 do
  begin
      write(b,x);
    readln(x);
  end;
  close(b);
  {Formirovanie fayla C};
  reset(a); reset(b); rewrite©;
  read(a,x); read(b,y);
  if x<y then t:=x-1 else t:=y-1;
  while not(eof(a)) and not(eof(b)) do
  begin
    while (x<=t) and not(eof(a)) do read(a,x);
    while (y<=t) and not(eof(b)) do read(b,y);
    if (x<y) and (x>t) then
    begin
      t:=x;
      write(c,t);
    end
    else if (y>t) then
    begin
      t:=y;
      write(c,t);
    end;
  end;
  while not(eof(a)) do
  begin
    read(a,x);
    if x>t then
    begin
      t:=x;
      write(c,t);
    end;
  end;
  close(a);
  while not(eof(b)) do
  begin
    read(b,x);
    if x>t then
    begin
      t:=x;
      write(c,t);
    end;
  end;
  close(b); close©;
  {Vivod sodergimogo fayla C na ekran}
  writeln('Itogovyj fayl:');
  reset©;
  while not(eof©) do
  begin
    read(c,x);
    write(x:5);
  end;
  readln;
end.

Сообщение отредактировано: Domin9es - 5.01.2008 10:37