0 / 0 / 0
Регистрация: 27.05.2017
Сообщений: 1
1

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

27.05.2017, 06:54. Показов 1304. Ответов 1

С Фортрана на Паскаль можно конвертировать с помощью разных программ а обратной не нашла. Переведите пожалуйста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
program A;
 
var a, b: integer;
 
begin
  for a := 10 to 99 do
    for b := 10 to 99 do
      if ((((a * 100) + b) mod 99) = 0) and ((((b * 100) + a) mod 49) = 0)
        then writeln('a = ', a:2, '  b =', b:2);
  readln;
end.
Суть задачи:
Даны два двузначных числа А и В. Из этих чисел составили два четырехзначных числа: первое число получили путем написания сначала числа A, а затем В; для получения второго сначала записали В, а потом А. Найти числа А и В, если известно, что первое четырехзначное число нацело делится на 99, а второе – на 49.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2017, 06:54
Ответы с готовыми решениями:

Перевести код с Паскаля на Фортран
собсна, просто перевести код. желательно не усложнять программу. заранее спасибо uses crt;...

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

Перевести с Паскаля на Фортран
uses crt; type Link = ^Number; Number = record ID: integer; Cislo : real; NextRec: Link;...

Перевести из паскаля в фортран
program KAV; var a,b,c,r:real; begin writeln ('vvedite a,b,c'); readln (a,b,c); If (a<>0) and...

1
0 / 0 / 1
Регистрация: 21.05.2017
Сообщений: 24
27.05.2017, 20:05 2
На компьютере не проверял, но вроде должно быть так.
Fortran
1
2
3
4
5
6
7
8
integer a, b
do a=10,99
   do b=10,99
      if ((mod((a*100+b),99)==0) .and. (mod((b*100+a),49)==0)) print "('a =', i4, 'b =', i4)", a, b
   enddo
enddo
read *
end
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2017, 20:05
Помогаю со студенческими работами здесь

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

Перевод с паскаля на фортран
Сама задачка звучит так "Стоимость А метров серой ткани равна В рублей, а стоимость K метров синей...

Переделать из Паскаля в фортран 77
type arr = array of integer; var a:array of integer; n, m, i, p, j, max, min, smax, smin:...

Перевод кода из паскаля в фортран
Необходимо перевести данный код procedure BinaryInsertionSort(var Arr : array of Real; N :...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru