VPF::[Pascal->C++] Перевод программы с Pascal на С++

Knights

Дата 1.6.2010, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.6.2010

Репутация: нет
Всего: нет

Здравствуйте. Помогите перевести прогу с Pascal на С++
Вот она в Pascal

Код


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.

antonkonikov

Дата 1.6.2010, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 22.3.2009
Где: Украна, Донецк

Репутация: нет
Всего: нет

Код


#include "ptoc.h"

/*#include "crt.h"*/
/*#include "dos.h"*/

const integer n = 10;
typedef file<integer> fil;
fil f,g,h,h1;
integer x,y,i,j;

void sozd()
{
      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; i <= n; i ++)
{
    x=random(n);
    y=random(n);
    f << x;
    h << x;
    g << y;
    h << y;
}
      close(f);close(g);close(h);
}

void printf1(fil& f)
{
   integer x;


   reset(f);
   while (! eof(f)) 
      {
f >> x;
output << format(x,4);
      }
   close(f);
   input >> NL;
}

void obf(fil& f)
{
  integer x,y;

  reset(f);
  for( i=n-1; i >= 1; i --)
   for( j=1; j <= i; j ++)
      {
seek(f,j-1);f >> x;seek(f,j);f >> y;
if (x<y) 
    {
       seek(f,j-1);f << y;
       seek(f,j);f << x;
    }
      }
  close(f);
}

void ob(fil& h)
{
  integer x,y;

  reset(h);
  for( i=2*n-1; i >= 1; i --)
    for( j=1; j <= i; j ++)
      {
seek(h,j-1);h >> x;seek(h,j);h >> y;
if (x<y) 
    {
       seek(h,j-1);h << y;
       seek(h,j);h << x;
    }
      }
  close(h);
}

int main(int argc, const char* argv[])
{ pio_initialize(argc, argv);
      clrscr;
      randomize;
      assign(f,"a.txt");
      assign(g,"a1.txt");
      assign(h,"a2.txt");
      assign(h1,"a3.txt");
      sozd();
      obf(f);
      output << "файл f:" << NL;
      printf1(f);
      obf(g);
      output << "файл g:" << NL;
      printf1(g);
      reset(h);reset(f);reset(g); 
   while (! eof(f)) 
      {
f >> x;
h << x;
      }
   while (! eof(g)) 
      {
g >> x;
h << x;
      }
   close(f);close(g);close(h);
   ob(h);
   assign(h1,"c:\\temp\\461\\h1.txt");
   rewrite(h1);reset(h);
   h >> y;
   while (! eof(h)) 
      {
h >> x;
if (x!=y) 
    {
       h1 << x;
       y=x;
    }
      }
   close(h);close(h1);
   output << "файл h:" << NL;
   printf1(h1);  
   ob(h);printf1(h);
      return EXIT_SUCCESS;
}

Knights

Дата 1.6.2010, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.6.2010

Репутация: нет
Всего: нет

Не работает, выдают кучу ошибок, почти в каждой строчке.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »