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

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

Восстановить пароль Регистрация
 
assasin21rus
2 / 2 / 1
Регистрация: 02.04.2014
Сообщений: 87
02.07.2014, 08:36     Перевод кода с Pascal #1
Pascal
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
var k,n,m:integer;
    x,s,p,t:real;
begin
repeat
write('x<>0 x=');{х в знаменателе, исключаем заведомое деление на 0}
readln(x);
until x<>0;
repeat
write('n>0 n=');
readln(n);
until n>0;
s:=0;
t:=-1; {((-1)^(3*0+1))/x^0}
for k:=1 to n do
 begin
  t:=-t/x;{(-1)^3*k+1)/x^k}
  p:=1;
  for m:=1 to k+2 do
  {исключаем 0 в числителе и в знаменателе}
  if (m<>2)and(m<>4) then p:=p*((m*m*m-8)/(m-4));
  {исключаем 0 в знаменателе первого множителя}
  if k<>2 then s:=s+t/2*(k-2)*p;
 end;
write('S=',s:0:4)
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2014, 08:36     Перевод кода с Pascal
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
SatanaXIII
Супер-модератор
Эксперт С++
 Аватар для SatanaXIII
5534 / 2568 / 234
Регистрация: 01.11.2011
Сообщений: 6,342
Завершенные тесты: 1
02.07.2014, 11:24     Перевод кода с 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#include <math>
#include <iostream>
#include <iomanip>
 
int main()
{
int k, n, m;
float x, s, p, t;
 
do
  {
  std::cout << "x!=0 x="; /*х в знаменателе, исключаем заведомое деление на 0*/
  std::cin >> x;
  }
while( x==0 );
 
do
  {
  std::cout << "n>0 n=";
  std::cin >> n;
  }
while( !n>0 );
 
s = 0;
t = -1; /*((-1)^(3*0+1))/x^0*/
 
for( k=1; k<=n; k++ )
  {
  t = -t/x; /*(-1)^3*k+1)/x^k*/
  p = 1;
  for( m=1; m<=k+2; m++ )
  /*исключаем 0 в числителе и в знаменателе*/
  if( (m!=2) && (m!=4) ) p = p*( (m*m*m-8.)/(m-4) );
  /*исключаем 0 в знаменателе первого множителя*/
  if( k!=2 ) s = s+t/2.*(k-2)*p;
  }
std::cout << "S=" << std::setw(4) << s;
 
std::cin.ignore(2);
return 0;
}
Yandex
Объявления
02.07.2014, 11:24     Перевод кода с Pascal
Ответ Создать тему
Опции темы

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