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

Переведите пожалуйста с Паскаля на СИ++. Сумма ряда - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ При закрытии консоли выдаётся сообщение http://www.cyberforum.ru/cpp-beginners/thread1221101.html
process exited after (сколько то секунд) seconds with return value 0 для продолжения нажмите любую клавишу - выдаёт при return(0\1) и при exit(0\1). как убрать? где то легко вкл и выкл, но где? пишу в devcpp 5.6.3
C++ Операторы цикла с предусловием и с постусловием: Выводить на экран суммарное штрафное время Задание: составить программу согласно заданию. Составьте программу, суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение. http://www.cyberforum.ru/cpp-beginners/thread1221095.html
Перевод кода с Pascal C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin
C++ Нужно перенести с Паскаля на Си++
var i, j: integer; begin for i := -2 to 2 do if i <> 0 then for j := 0 to 99 do write(i * 200 + j * i div abs(i):5); readln end. Используйте теги форматирования кода. Замечание
C++ Перевод кода с Pascal http://www.cyberforum.ru/cpp-beginners/thread1221079.html
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);
C++ Перевод кода с Pascal 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), sqrt(abs(x))); y:=Power(a,3)/Power(b,2); write('y=',y) подробнее

Показать сообщение отдельно
assasin21rus
2 / 2 / 1
Регистрация: 02.04.2014
Сообщений: 86
02.07.2014, 09:54     Переведите пожалуйста с Паскаля на СИ++. Сумма ряда
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var s,si,x:real;
    i,n:integer;
function fact(x:integer):longint;
begin
 if (x=1) or (x=0) then fact:=1 else fact:=fact(x-1)*x;
end;
begin
  write('x = ');readln(x);
  repeat
    write('n>0, n = ');readln(n);
  until n>0;
  //s:=x;si:=x;
  s:=0;
  for i:=1 to n do
    begin
      //si:=-si*x*x/(2*i)/(2*i+1);
      si:=Power(-1,i+1)*Power(x,2*i-1)/fact(2*i-1);
      s:=s+si;
    end;
  writeln('s = ',s:0:5,', sin(',x:0:2,') = ',sin(x):0:5);
end.
Буду очень благодарен, заранее спасибо
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:52. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru