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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Идея для функций/программ http://www.cyberforum.ru/cpp-beginners/thread1084506.html
Мне захотелось поднабить руку в С++, а также сделать собственную базу мелких(средних возможно) функций(или программ). Желание есть, опыт как-никак есть, ИДЕЙ нету :cry: Подкиньте хотя бы парочку :) Ненужно сильно мудреных(а не профи в С++(даже середняком себя не назову))
C++ Интерфейс для программы Как сделать интерфейс для программы? http://www.cyberforum.ru/cpp-beginners/thread1084480.html
C++ Разница в скорости выполнения, итераторы
Википедия for (ContainerType::iterator it = C.begin(),end = C.end(); it != end; ++it) { std::cout << *it << std::endl; } Вариант которой я сам использую и вижу практически у всех программистов for (ContainerType::iterator it = C.begin(); it != С.end(); ++it) { std::cout << *it << std::endl; } насколько первый вариант быстрее второго, стоит ли писать так, как предлагает википедия?
C++ Написать программу, вычисляющую скидку на покупку и сумму покупки со скидкой
1. Написать программу, вычисляющую скидку на покупку и сумму покупки со скидкой. Основная программа запрашивает сумму покупки и процент скидки и передает их в функцию. Функция вычисляет сумму скидки и сумму покупки со скидкой и выводит результат на экран. (циклический алгоритм) 2. На соревнованиях по фигурному катанию оценки заносятся в компьютер. Составить программу для вывода на экран...
C++ Вычислить значение выражения http://www.cyberforum.ru/cpp-beginners/thread1084427.html
Дано натуральное число n. вычислить
C++ Описать класс my_str и перегрузить для него операторы. Описать класс my_str, содержащий длину строки и указатель на ее первый символ. Определить для класса необходимые конструктор(ы), деструктор, а также операции а) присваивания ( = ), осуществляющее посимвольное копирование строк; б) сложения (+) – результатом является конкатенация исходных строк; в) присваивание со сложением +=, к первой строке-параметру добавляется в конец вторая строка;... подробнее

Показать сообщение отдельно
vad505
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 103
29.01.2014, 15:19     Перевсти код программы с 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
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru