Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.07.2014, 21:22   #1
Vaas
 
Регистрация: 01.07.2014
Сообщений: 4
По умолчанию перевод с Pascal в С++

var
x, px, f, s: real;
i, n: integer;
begin
WriteLn('Введите количество суммируемых членов: '); ReadLn(n);
WriteLn('Введите x: '); ReadLn(x);
x:=sqr(x); px:=1; f:=1; i:=2; s:=1;
for n:=n downto 1 do begin
px:=px*x; f:=f*(i-1)*(i); s:=s+px/f; i:=i*2;
end;
WriteLn('Сумма ',n,' членов ряда равна ',s);
end.
Vaas вне форума Ответить с цитированием
Старый 02.07.2014, 21:45   #2
rrrFer
Санитар
Старожил
 
Аватар для rrrFer
 
Регистрация: 04.10.2008
Сообщений: 2,577
По умолчанию

Код:
#include <iostream>
using namespace std;

int main() {
  int n, i;
  float x, px, f, s;
  
  cout << "enter ... ";
  cin >> n;

  cout << "enter ...";
  cin >> x;

  x *= x, px = 1, f = 1, i = 2, s = 1;

  for (n = n; n >= 1; --n) 
    px *= x, f *= f * i * (i - 1), s += px/f, i *= 2;

  cout << "..." << n << "..." << s << endl;
}
примерно так. не проверял.
rrrFer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод из Pascal в C++ CryNet Помощь студентам 1 12.09.2013 21:42
перевод с pascal на с++ Balthazar Помощь студентам 0 08.12.2010 18:50
Перевод из Pascal в С Foxtrot_1 Помощь студентам 7 20.06.2009 19:00
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37