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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
vad505
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 103
#1

Перевсти код программы с Fortran на C++ - C++

29.01.2014, 15:19. Просмотров 196. Ответов 0
Метки нет (Все метки)

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
subroutine  uintgss(llim,ulim,iqnt,ifnc,rsl)
    implicit none
    double precision :: llim,plim,rsl,stp,ulim
    integer :: cnt1,cnt2,iqnt
    double precision,dimension(8) :: carr,warr
    data carr /&
         0.989400934991649923596_8, 0.944575023073232576078_8,&
         0.865631202387831743880_8, 0.755404408355003033895_8,&
         0.617876244402643748447_8, 0.458016777657227386342_8,&
         0.281603550779258913230_8, 0.095012509837637440185_8/
    data warr /&
         0.027152459411754094852_8, 0.062253523938647892863_8,&
         0.095158511682492784810_8, 0.124628971255533872052_8,&
         0.149595988816576732081_8, 0.169156519395002538189_8,&
         0.182603415044923588867_8, 0.189450610455068496285_8/
    interface
       function ifnc(prm) result(rsl)
         double precision :: prm,rsl
       end function ifnc
    end interface
    stp=(ulim-llim)/real(iqnt);
    rsl=0._8;
    do cnt2=1,iqnt
       plim=llim+(cnt2-1)*stp
       do cnt1=1,8
          rsl=rsl+warr(cnt1)*(&
               ifnc(plim+.5_8*stp*(1._8+carr(cnt1)))+&
               ifnc(plim+.5_8*stp*(1._8-carr(cnt1))))
       end do
    end do
    rsl=rsl*.5_8*stp
  end subroutine uintgss
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2014, 15:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевсти код программы с Fortran на C++ (C++):

Перевсти с pascal - C++
Переведите пожалуйста текст с pascal на С++ var v1,t1,v2,t2,v3,t3,s1,s2,s3,sum:real; begin writeln('Введите время t1 и скорость v1');...

Составить блок схему для программы упорядочивания чисел в массиве(код программы прилагается) - C++
#include <iostream> #include <stdlib.h> using namespace std; int main() { int N = 0; // N - количество элементов в массиве...

Перевести код программы Паскаля в код С++ - C++
В массиве Х (15) найти произведение и количество элементов расположенных между наибольшими и наименьшими элементами кто может перевести...

код программы в c++ - C++
Что означает восклицательный знак в перед (b%2) в строке { if (!(b%2)) { a+=b;};? #include <stdio.h> #include <conio.h> #include...

Код программы - C++
Если есть исходники программы, в котором из файлов хранится код программы и можно ли его от туда извлечь?

Перевсти код с С++ в C# - C#
Помогите переделать код на C#. #include "stdafx.h" #include <iostream> #include <list> #include <string> #include...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2014, 15:19
Привет! Вот еще темы с ответами:

код Fortran в Delphi - Delphi
Ребят,помогите переписать код с языка Фортрана на Делфи.не могу разобраться со многими операторами,т.к. не работал в фортране..вот код...

Перевести код с Fortran - C#
Прошу посмотрите пожалуйста и кто может перевести или сказать хоть примерно как это должно выглядеть на С# Do 10 j=1,Js M=0 Call...

Перенести код из Fortran в Pascal - PascalABC.NET
Здравствуйте,пытаюсь перенести код из Fortran в Pascal, не могу понять, в чем проблема, в Fortran программа полностью работает, в Паскале...

Перевести код из Fortran в Pascal - Pascal
do 12 i=1,13 AB(i)=AA(i) 12 continue AB(14)='d' AB(15)='a' AB(16)='t' ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru