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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Перевод кода с Pascal http://www.cyberforum.ru/cpp-beginners/thread1221078.html
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)
C++ Вывести разницу дней между двумя датами Всем привет. Ребят, прошу вашей помощи#include <iostream> using namespace std; class Date{ private: int raz, sch; int day, day2; int month, month2; int year, year2; public: http://www.cyberforum.ru/cpp-beginners/thread1221070.html
C++ Как обнулить указатель на одну ячейку в динамически-выделенной памяти?
Выделю память под 10 элементов: int* p = new int; Наполняю значениями: for(int i = 0; i<10; i++) { p = i; } Можно ли обнулить указатель, например для последнего элемента в этом...
C++ Что означает запись ++arr1[arr2[i]]
Привет всем . Вот нашел код но не поиму что значит запись ++frequency ] ; //вот все что её касаеться меня интерисует от А-Я что и как она работает подробно . Гуглил но не нашел токой...
C++ Заданы два множества точек на плоскости. Построить пересечение и разность этих множеств. Дописать программу http://www.cyberforum.ru/cpp-beginners/thread1220958.html
Помогите написать, дописать эту программу очень нужна ваша помощь... Задание:заданы два множества точек на плоскости. Построить пересечение и разность этих множеств. То что я попыталась написать......
C++ Перевод с Pascal (Определение локальных минимумов) var Mass: array of integer; i, N, Count_LocalMin: byte; begin write(' N = '); readln(N); writeln('Введите ', N, ' целых чисел:'); writeln; for i := 1 to N do подробнее

Показать сообщение отдельно
assasin21rus
2 / 2 / 1
Регистрация: 02.04.2014
Сообщений: 93

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

02.07.2014, 08:36. Просмотров 237. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru