Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Doc
1 / 1 / 0
Регистрация: 05.05.2014
Сообщений: 106
1

Перевод кода с Pascal

01.07.2014, 17:44. Просмотров 969. Ответов 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 секунды
пожалуйста, кто может помогите)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2014, 17:44
Ответы с готовыми решениями:

Перевод кода с Pascal
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of...

Перевод кода из Pascal/VB в C++
Помогите пожалуйста перевести код в С++. Сдавать уже скоро, и я никак не приложу ума как это все...

Перевод кода из Pascal в C++
Помогите пожалуйста перевести код в С++. var u, v: array of Integer; r: array of array of...

Перевод кода из Pascal в C++
Народ прошу помощи с переводом кода Паскаль в С ++ var i,n:integer; p:real; begin...

Перевод кода с Pascal
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t);...

1
nmcf
6535 / 5758 / 2622
Регистрация: 14.04.2014
Сообщений: 24,498
01.07.2014, 18:01 2
Лучший ответ Сообщение было отмечено Doc как решение

Решение

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;
}
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.07.2014, 18:01

Перевод кода из Pascal в С++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function...

Перевод кода с Pascal
uses crt,graphABC; function y(x:real):real; begin if x&lt;0 then y:=1+sqrt(abs(cos(x*x+1))) else...

Перевод кода с Pascal на C++
program с4; var k: integer; {введенное число} n: integer; {количество чисел} ...


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

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

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