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

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

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

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

01.07.2014, 17:44. Просмотров 306. Ответов 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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2014, 17:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода с Pascal (C++):

Перевод кода из pascal в c++ - C++
Помогите пожалуйста перевести на c++ Program bukv; Uses crt; Const g: array of char=('а','е','и','о','у','ы','э','ю','я'); Var i,j:...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x&lt;&gt;0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...

Перевод кода из Pascal в С++ - C++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function st2(k:integer): integer; var j, rez:...

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

перевод кода из Pascal в C++ - C++
помогите, пожалуйста, перевести этот код в C++ :impossible: program chisla; uses Crt; const n = 5; var y: real; flag:...

1
nmcf
5324 / 4644 / 1553
Регистрация: 14.04.2014
Сообщений: 18,479
01.07.2014, 18:01 #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;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.07.2014, 18:01
Привет! Вот еще темы с ответами:

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

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

Перевод кода из Pascal в Си++ - C++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...

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


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

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

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