Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 17.05.2018
Сообщений: 5
1

Перевод программы из Pascal в C++

17.05.2018, 23:35. Просмотров 1627. Ответов 1

Добрый вечер, нужна помощь! Буду благодарен.
Сама задача звучит так : Найти значение выражения (2*5!+3*8!) / (6!+4!)
где n! означает факториал числа п (n! = 1 • 2 • ... • n). (Определить функцию для расчета факториала натурального числа.)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function fact(n:integer): longint;
var i,r: integer;
begin
 r:=1;
 if (n=0) or (n=1) then
  fact:=1
 else
  for i:=1 to n do
   r:=r*i;
 fact:=r;
end;
 
begin
 writeln((2*fact(5)+3*fact(8))/(fact(6)+fact(4)));
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2018, 23:35
Ответы с готовыми решениями:

Перевод программы из Pascal на C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); ...

Перевод программы с Pascal в С++
Добрый день,мне нужно написать правильный код программы с Pascal на С++ var n,k:longint; begin...

Перевод программы из Pascal в C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля...

Перевод программы Pascal -> C++
Помогите на Си++ перевести program a1; uses crt; var s,tmp:string; i,x:longint; ...

1
443 / 329 / 172
Регистрация: 01.07.2015
Сообщений: 1,162
18.05.2018, 04:10 2
Лучший ответ Сообщение было отмечено Chanto как решение

Решение

Примерно так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <iostream>
 
using namespace std;
 
long int fact(int n) {
  int r = 1;
 
  if (n == 0 || n == 1) {
    return 1;
  } else {
    for (int i = 1; i <= n; ++i)
      r *= i;
 
    return r;
  }
}
 
int main() {
  cout.precision(9);
 
  cout << (2 * fact(5) + 3 * fact(8)) / static_cast<double>((fact(6) + fact(4)));
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2018, 04:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевод программы с Pascal на C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; ...

Перевод программы с Pascal на С++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i...

Перевод программы из Pascal на С++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const...

Перевод программы с Pascal на С++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.