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

Перевод программы на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Структуры! http://www.cyberforum.ru/cpp-beginners/thread704395.html
1) Описать структуру с именем STUDENT, содержащую поля: фамилия и инициалы; номер группы; успеваемость (массив из пяти элементов). 2)Описать структуру «время» (часы, минуты, секунды). Определить...
C++ Построение дерева каталогов Уважаемые форумчане, подскажите пожалуйста, как на с++ реализовать задание: Построение дерева каталогов http://www.cyberforum.ru/cpp-beginners/thread704389.html
Ошибки в работе программ (символьные массивы, работа с указателями) C++
Доброго времени суток. Помогите, пожалуйста исправить ошибки в программах. 1-я программа меняет слова местами, при этом количество разделителей между словами сохраняется, т.е. было 3 пробела, 3 и...
C++ ошибка сегментации
где может быть ошибка?
C++ Матрица. Ниже побочной диагонали http://www.cyberforum.ru/cpp-beginners/thread704346.html
Здравствуйте все... Написал матрицу (условия ниже) и не могу вывести чтобы показывал сумму элементов ниже побочной диагонали... в чем ошибка? Дана целочисленная квадратная матрица. Написать...
C++ Чистка каталога по маске Как очистить каталог по маске? Добавлено через 24 минуты Уже не нужно кажется понял подробнее

Показать сообщение отдельно
prorider
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15

Перевод программы на C++ - C++

21.11.2012, 16:04. Просмотров 430. Ответов 2
Метки (Все метки)

Здравствуйте друзья. Прошу вас о помощи, помогите с переводом программы с Pascal на C++. Буду неимоверно благодарен тому, кто поможет, в долгу не останусь, помогу чем смогу.

Вот программа:

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
26
program z4;
 
var
  p, x, b, eps: real;
  i: integer;
 
begin
  writeln('enter x: '); //вводим x
  readln(x);
  eps := 0.00001; //точность 5 порядка
  i := 0; //первоначальное значение n
  p := 0; //обнуляем сумму
  b := 1; //вспомагательная переменная для хранения предыдущего значения суммы
  if abs(x) <= 1 then
  begin
    while abs(p - b) > eps do
    begin
      b := p;
      p := p + ((power(-1, i) * power(x, 2 * i + 1)) / (2 * i + 1));
      inc(i); //увеличиваем i на 1
    end;
    writeln('arctg(', x, ')=', p,'   i=',i); //i= кол-во операций, необязательно
  end
  else writeln('abs(', x, ')>1');
  
end.
Прикрепил условие задачи.
0
Миниатюры
Перевод программы на C++  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru