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

перевести на язык С++ с Паскаля - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Строки (ввести строку разделенную пробелами, и в словах которые оканчиваются на АВС заменить СС) http://www.cyberforum.ru/cpp-beginners/thread910467.html
ввести строку разделенную пробелами, и в словах которые оканчиваются на АВС заменить СС... помогите просто определить 3 последнии буквы,и как менять их)) просто завтра экзамен)
C++ Объявление функции в отдельном файле (Code::Blocks) Разбираю объявление функций в отдельных файлах на примере задачи о проверке - является ли пятизначное число палиндромом, т.е. таким числом, которое читается слева направо и справо налево одинаково... http://www.cyberforum.ru/cpp-beginners/thread910456.html
Разложение ф-ции в ряд Тейлора C++
Приблизительно рассчитать значение ф-ции Y, разложив ф-цию F(X) в ряд Тейлора, при это необходимо вывести и использовать рекурентное соотношение для подсчета общей части да каждого слогаемого ряда...
C++ Создание массива классов(обектов класса)
Здрасти, для этого я использую vector std::vector<Sprite> sprites; После чего пытаюсь добавить объект в этот вектор Sprite sp = Sprite(x, y,width,height,texID); sprites.push_back(sp); Но у...
C++ Вычислить рекурсивным методом http://www.cyberforum.ru/cpp-beginners/thread910439.html
Добрый день! Прошу вашей помощи. Вычислить рекурсивным методом y =x**N за следующим алгоритмом: y=(x**N/2)**2, если N парное; y=x*xN-1, если N непарное. Мой код(конечно же, нерабочий) :...
C++ Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного файла Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного файла. подробнее

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

перевести на язык С++ с Паскаля - C++

24.06.2013, 01:28. Просмотров 328. Ответов 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
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var a,s,x:real;
    i:integer;
    eps:real;
function fct(n:integer): real;
var f: real; i: integer;
begin
  f:=1;
  for i:=1 to n do
    f:=f*i;
  fct:=f;
end;
function Pw(a:real;n:integer):real;
var p:real; i: integer;
begin
  p:=1;
  for i:=1 to n do
    p:=p*a;
  pw:=p;
end;
begin
textcolor(18);
writeln('Введите точность');
readln(eps);
writeln('Введите x');
readln(x);
a:=x*x/2;
i:=0;
s:=0;
while abs(a)>eps do begin
 s:=s+a;
 inc(i);
 a:=fct(i*i)/fct(2*i+1)/fct(2*i+2)*Pw(x,2*i+2);
 end;
  writeln(s:5:6);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.