Форум программистов, компьютерный форум CyberForum.ru

Перевести с Fortran на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей http://www.cyberforum.ru/cpp-beginners/thread1761934.html
Дана матрица размера M × N. После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. Если требуемых столбцов нет, то вывести матрицу без изменений. Как это решить? Помогите пожалуйста
C++ Планирование изучения C++ Гайз, добрый вечер. Не знаю, стоило ли создавать тему в разделе для новичков или тут, но если что модератор перекинет. Столкнулся с проблемой (наверное куча людей с такой же проблемой столкнулись) : уже относительно давно пытаюсь вкатиться в программирование. но не хочу забивать на это дело. Я Не могу спланировать изучение - какая то абстрактная задача без выхлопа. Книги -... http://www.cyberforum.ru/cpp-beginners/thread1761929.html
C++ Составить алгоритм для вычисления функции
Добрый день не могли бы вы помочь написать программу решения функции: ┌ 1 │ ------ , если 0<y<1.36; dy=0.136; │ v+y │ z= < 0 , если y=0; │ │ 1 │ ------ , если -1.5<y<0; dy=0.15. └ v-2y
Создать класс Website с полями C++
Создать класс Website с полями: address (строка), number of pages (целое), total size of information (в мегабайтах, вещественное). Создать конструктор и метод расчета среднего размера страницы. Создать метод Info, который возвращает информацию о сайте (возвращающий строку). Создать производный класс SocialNetwork с дополнительным полем: number of user (целое). Создать конструктор и метод Info с...
C++ Цикл while http://www.cyberforum.ru/cpp-beginners/thread1761917.html
Всем гикам привет, скажите пожалуйста какой результат будет после этого цикла c=0; i=1; while i<11 {c=c+i; i=i+1}; c=c/(i-1) a) výpočtu podílu 55/10 c) výpočtu podílu 55/11
C++ Исследование связанных списков данных.Пусть дан список студентов Пусть дан список студентов. Элемент списка содержит: фамилию, имя, отчество, № курса, № группы, оценки по пяти экзаменам последней сессии. Выведите информацию о начисленной стипендии, предполагая, что отличникам выплачивается сумма S1, студентам, имеющим только "четверки" и "пятерки", выплачивается сумма S2, троечникам стипендия не выплачивается. подробнее

Показать сообщение отдельно
gudovanets
1 / 1 / 0
Регистрация: 12.02.2015
Сообщений: 45
13.06.2016, 17:29     Перевести с Fortran на C++
Пожалуйста, помогите перевести кусок программы с фортрана на с++
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
REAL * 8 FY(2, 40, 40)
, , KU, A, B, HKU, RA
COMMON / NXY / NX, NY
COMMON / GF / KU, A, B
PRINT 11
11 FORMAT(' КОРНИ УРАВНЕНИЯ '1, 'РЕЛЕЯ-ЛЕМБА')
N1 = 3
A = 1.D0
B = 1.D0 / 3.5D0
KU = 4.71D0
HKU = 0.01D0
2 CONTINUE
CALL BBOD
DO 1 I = 1, NI
KU = KU + (I - 1)*HKU
PRINT 10, KU
10 FORMAT('ЧАСТОТН. ПАРАМ. KU=', F7.3)
CALL COORD(FY, NX, NY)
1 CONTINUE
GO TO 2
3 CONTINUE
STOP
END
 
-------------------------------------- -
SUBROUTINE BBOD
REAL * 8 EPS, EPS1, EPS2, H, H1, SX, SY
COMMON / EPN / EPS2, H, H1, SX, SY, / EP / EPS, EPS1, LL / NXY / NX, NY
READ 1, EPS, EPS1, EPS2
READ 2, H, H1, SX, SY
READ 3, NX, NY, LL
PRINT 4, EPS, EPS1, EPS2
PRINT 5, H, H1, SX, SY
PRINT 6, NX, NY, LL
1 FORMAT(1X, 3D7.0)
2 FORMAT(1X, 4F7.3)
3 FORMAT(1X, 3I3)
4 FORMAT(1X, ' MIN L KB -TA=', D12.5, , 'ТОЧН. ДЕЛ.ОТР НА 2=', D12.5, , 'МАКС. ПОГР. В КОРНЕ =',D12.5)
5 FORMAT ('H,H1,SX,SY==',4F7.3)
6 FORMAT ('NX,NY,LL==',3I3)
RETURN
END
 
-----------------------------------------
 
SUBROUTINE FK8(MBK,KX,KY,HX,HY)
REAL*8 MBK(2,4),KX,KY,HX,HY
MBK(1,1)=KX
MBK(2,1)=KY
MBK(2,2)=KY+HY
MBK(1,3)=KX+HX
MBK(2,3)=KY+HY
MBK(1,4)=KX+HX
MBK(2,4)=KY
RETURN
END
 
_________________________________
 
SUBROUTINE COORD(FY,NX,NY)
REAL*8 SF(2,4), BK(2,4),KX,KY,,H,H1,SX,SY,FI,PSI,,EPS,EPS1,EPS2,,FY(2,NY,NX)
COMMON/FF/FI/PSI,/EPN/EPS2,H,H1,SX,SY,/EP/EPS,EPS1,LL,/CK/IND
IND=0
NX1=NX-1
NY1=NY-1
DO 28 I=1,NX
DO 28 J=1,NY
KX=(I-1)*H+SX
KY=(J-1)*H1+SY
CALL FUN(KX,KY)
FY(1,J,I)=DSIGN(1.D0,FI)
28 FY(2,J,I)=DSIGN(1.D0,PSI)
DO 1 I=1, NX1
DO 2 J=1, NY1
KX=(I-1)*H*SX
KY=(J-1)*H1*SY
CALL FKB(BK,KX,KY,H,H1)
DO 3 K=1,2
SF(K,1)=FY(K,J,I)
SF(K,2)=FY(K,J+1,I)
SF(K,3)=FY(K,J+1,I+1)
3 SF(K,4)=FY(K,J,I+1)
CALL KBADM(IS,BK,SF)
IF(IS.EQ.0) GO TO 2
CALL KNA4M(SF,KX,KY,H,H1)
2 CONTINUE
1 CONTINUE
KX=SX+H*(NX-1)
KY=SY+H1*(NY-1)
IF(IND.LT.1) PRINT 11,SX,SY,KX,KY
11 FORMAT('КОРНЕЙ НЕТ ИСХОДНЫЙ ПРЯМОУГЛ.'1,'SX,SY,KX,KY==',4F10,6)
RETURN
END
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 10:10. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru