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

Перевод кода с Pascal - C++

Восстановить пароль Регистрация
 
Doc
1 / 1 / 0
Регистрация: 05.05.2014
Сообщений: 106
01.07.2014, 17:44     Перевод кода с Pascal #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var k,i,n,c:integer;
    p,w:real;
begin
write('k>-3 k=');
readln(k);
w:=0;
c:=1;
for i:=-3 to k do
 begin
  c:=-c;{-1^i}
  p:=1;
  for n:=i to 2*k do
  if n<>2 then p:=p*(n*n*n-8);
  if i<>5 then w:=w+(c/sqr(i-5))*p;
 end;
write('W=',w:0:3)
end.
Добавлено через 24 секунды
пожалуйста, кто может помогите)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2014, 17:44     Перевод кода с Pascal
Посмотрите здесь:

C++ Перевод кода из Pascal в Си++
C++ Перевод кода из Pascal в C++
C++ Перевод кода из Pascal в С++
C++ Перевод кода с Pascal на С++
Перевод кода с Pascal C++
C++ Перевод кода с Pascal
Перевод кода с Pascal C++
Перевод кода с Pascal C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
nmcf
4324 / 3745 / 1260
Регистрация: 14.04.2014
Сообщений: 14,692
01.07.2014, 18:01     Перевод кода с Pascal #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
C++
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
#include <iostream>
#include <iomanip>
#include <cmath>
 
using namespace std;
 
int main(void)
{
    int k, i, n, c;
    double p, w;
    
    cout << "k>-3 k="; cin >> k;
    w = 0;
    c = 1;
    for(i = -3; i <= k; i++)
    {
        c = -c;
        p = 1;
        for(n = i; n <= 2 * k; n++) if(n != 2) p *= n * n * n - 8;
        if(i != 5) w += (c / sqrt(i - 5)) * p;
    }
    cout << "W=" << fixed << setprecision(3) << w;
 
    return 0;
}
Yandex
Объявления
01.07.2014, 18:01     Перевод кода с Pascal
Ответ Создать тему
Опции темы

Текущее время: 09:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru