|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.07.2014, 21:22 | #1 |
Регистрация: 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. |
02.07.2014, 21:45 | #2 |
Санитар
Старожил
Регистрация: 04.10.2008
Сообщений: 2,577
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод из 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 |