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

Перевести из паскаля в фортран

11.12.2013, 21:23. Показов 1438. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program KAV;
var a,b,c,r:real;
begin
writeln ('vvedite a,b,c'); readln (a,b,c);
If (a<>0) and (b<>0) and (c<>0) then
begin
r:=(a*2)+(b*3)-(4*a*c);
writeln ('Otvet',r:5:2)
end
else
writeln ('nije nulya');
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2013, 21:23
Ответы с готовыми решениями:

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

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

К сможет перевести простой код с Паскаля на Фортран?
С Фортрана на Паскаль можно конвертировать с помощью разных программ а обратной не нашла....

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

3
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 1
16.03.2017, 09:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Minmax1;
var
  R,Min,Max: Real;
  i,N:Integer;
 
begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' элемент: ');
     Readln(R);
     if i=1 then 
      begin
       Min:=R;
       Max:=R;
      end;
     if R<Min then Min:=R;
     if R>Max then Max:=R;
   end;
  Writeln(Min,' ',Max);
end.
0
126 / 113 / 56
Регистрация: 05.12.2012
Сообщений: 463
16.03.2017, 20:24 3
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program minmax1
real :: R, min, max
integer :: i, N
 
write(*,*) "N: "
read(*,*) N
 
do i = 1, N
    write(*,*) "Введите", i, "элемент:"
    read(*,*) R
 
    if (i == 1) then
        min = R
        max = R
    end if
 
    if (R < min) then
        min = R
    end if
 
    if (R > max) then
        max = R
    end if
 
end do
 
write(*,*) min, max
 
end program
Добавлено через 2 минуты
Первую сами по аналогии уж сделайте. Синтаксис, думаю, отсюда понятен.
Добавлю лишь что в фортране "неравно" выгладит так как "/=" (без кавычек).

Добавлено через 2 минуты
А условный оператор "and" - как ".AND."
0
Krasme
16.03.2017, 20:30     Перевести из паскаля в фортран
  #4

Не по теме:

Цитата Сообщение от kushok Посмотреть сообщение
Первую сами
разные люди, разные годы..

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2017, 20:30

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

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

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

Перевод кода из Паскаля в Фортран
Помогите,пожалуйста {сортировка выбором} procedure Selekt(var item: DataArray; count:integer);...


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

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

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