Перевод кода из Паскаля в Фортран 77

@Cheeelios · Регистрация: 07.03.2011

Author24 — интернет-сервис помощи студентам

Добрый день , требуется помощь в переводе кода из Паскаля в Фортран 77.

Pascal

Program X;
VAR
 A1,A2:ARRAY[1..100] of BYTE;
 N:BYTE;
 i:Integer;
BEGIN
 A1[1]:=2;
 A2[1]:=4;
 N:=1;
 Repeat
  Inc(N);
  A1[N]:=A2[N-1];
  A2[N]:=((A1[N]*2) mod 10)+((A1[N-1]*2) div 10);
 Until (A1[N]=1) and (A2[N]=2);
 For i:=N downto 1 do
  Write(A1[i]);
 WriteLn;
 For i:=N downto 1 do
  Write(A2[i]);
 WriteLn;
 ReadLn;
END.

Заранее большое спасибо!

@MOHCTP · 07.03.2011, 13:29

Hy, c абсолютно буквальным переводом не выйдет, потому что сейчас на 32- или 64-битной системе работать с переменными размером в байт - это маразм. Все байты пишем как целые переменные. И еще - проблема с циклом do ... while : хочется его использовать, но в стандарт Фортрана-77 он не входил. Хотя очень многие компиляторы его понимали, например, g77. Так что придется написать через безусловный переход. Примерно так:

Fortran

      Program X
      integer N, i, A1(100), A2(100)
 
      A1(1) = 2
      A2(1) = 4
      N = 1
 
 10   N = N + 1
      A1(N) = A2(N-1)
      A2(N) = mod(A1(N)*2,10) + A1(N)*2/10
      if (A1(N).ne.1.and.A2(N).ne.2) go to 10
 
      write(*,*) (A1(i), i = N,1,-1)
      write(*,*) (A2(i), i = N,1,-1)
      read (*,*) 
      end

Да, я по привычке со времен g77 написал все в нижнем регистре, в верхнем только переменные, написанные так в исходной программе. Думаю, не смертельно.

	07.03.2011, 13:29