Каким образом можно перевести код Паскаля в код Фортран?

@ДимчиК 01 · Регистрация: 19.03.2011

Здравствуйте уважаемые программисты!
Может быть банальная, но довольно сложная проблема - перевод из одного кода в другой! Как его можно осуществить?....ну или можете ли вы это сделать?

Pascal

uses crt;
var
 n,i:integer;
 a:boolean;
Begin
clrscr;
 Write('Введите число: ');
 Readln(n);
 a:=false;
 For i:=1 to n do
  If n = i*(i+1)*(i+2) then Begin
                                  a:=true;
                                  break
                                 End;
 If a=true then writeln('Можно: ',n,' = ',i,'*',i+1,'*',i+2)
                  else writeln('Нельзя');
End.

@badpit007 · 21.06.2011, 11:58

Ты лучше скажи что делает эта программа или для чего она нужна

@ДимчиК 01 · 21.06.2011, 13:07 **[ТС]**

Эта программа служит для выяснения, можно ли натуральное число n представить в виде произведения трёх последовательных натуральных чисел. К примеру n= 95443536.

Добавлено через 1 час 2 минуты
Если что - об оплате договоримся.

@badpit007 · 21.06.2011, 23:46

Fortran

program o_O
real n
print*,'vvedite chislo'
Read*,n
a=.false.
do i=1,n
If (n==i*(i+1)*(i+2)) then
a=.true.
exit
endif
enddo
If (a==.true.) then
print*,'mojno: ',n,' = ',i,'*',i+1,'*',i+2
else 
print*,'nelsya'
endif
End

Добавлено через 8 часов 50 минут
Денег не надо

@badpit007 13 / 13 / 0 Регистрация: 06.06.2011 Сообщений: 53
	21.06.2011, 11:58	2
	Ты лучше скажи что делает эта программа или для чего она нужна 0

@ДимчиК 01 0 / 0 / 0 Регистрация: 19.03.2011 Сообщений: 8
	21.06.2011, 13:07 [ТС]	3
	Эта программа служит для выяснения, можно ли натуральное число n представить в виде произведения трёх последовательных натуральных чисел. К примеру n= 95443536. Добавлено через 1 час 2 минуты Если что - об оплате договоримся. 0

Опции темы