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

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

Войти
Регистрация
Восстановить пароль
 
assasin21rus
2 / 2 / 1
Регистрация: 02.04.2014
Сообщений: 93
#1

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

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

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

Перевод кода с 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),...

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

Перевод кода с Pascal на С++ - C++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while m&gt;0 do begin s:=s+m mod...

Перевод кода с Pascal - C++
var k,i,n,c:integer; p,w:real; begin write('k&gt;-3 k='); readln(k); w:=0; c:=1; for i:=-3 to k do begin ...

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

1
SatanaXIII
Супер-модератор
Эксперт С++
5649 / 2693 / 252
Регистрация: 01.11.2011
Сообщений: 6,588
Завершенные тесты: 1
02.07.2014, 11:24 #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;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2014, 11:24
Привет! Вот еще темы с ответами:

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

Перевод кода с 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 в C++ - C++
ребятки, помогите с переводом с паскаля на C++ данный код var n,s,t,n1,kk,e1,x,i,ss,h:integer; ///возводит x в степнь e1 по...

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


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

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

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