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

Перевести код с языка Pascal на язык С++

26.11.2016, 01:10. Просмотров 862. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i,n,a:integer;
    rez:integer;
begin
  Write('Enter digit A = ');readln(a);
  Write('Enter count = ');readln(n);
  rez:=1;
  for i := 1 to n-1 do
    begin
      rez:=rez*(a+i-1);
    end;
    writeln('Result = ',rez);
  readln;
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2016, 01:10
Ответы с готовыми решениями:

Перевести код с языка Pascal на язык C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer)...

Перевести код с языка Pascal
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на...

Перевести программу с языка Паскаль в язык С++
Имееться задача на Pascale: {Метод Ньютона решения нелинейного уравнения} program Newton; uses...

Нужно перевести на язык Pascal
Помогите перевести на язык Pascal, заранее благодарен! struct PRICE { char tovar; char mag;...

2
MorWespen
15 / 15 / 15
Регистрация: 20.08.2016
Сообщений: 51
Завершенные тесты: 1
26.11.2016, 01:32 2
Лучший ответ Сообщение было отмечено Crayzor как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include<iostream>
using namespace std;
 
int main()
{
    int a, n;
    cout << "Enter digit A = "; cin >> a;
    cout << "Enter count = ";   cin >> n;
 
    int rez = 1;
    for (int i = 1; i < n - 1; ++i)
        rez = rez * (a + i -1);
 
    cout << "Result = " << rez << endl;
    return 0;
}
0
nmcf
6574 / 5786 / 2634
Регистрация: 14.04.2014
Сообщений: 24,600
26.11.2016, 13:33 3
C++
1
rez *= a + i - 1;
0
26.11.2016, 13:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2016, 13:33

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

Перевести с Borland Pascal на язык С++
Помогите пожалуйста )))) uses Crt; const n=16; x=0.5; p:array of...

Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ)
Помогите перевести из языка Pascal в СИ: var a: array of integer max,min,i,k:integer; begin...

Не получается переложить код с языка C# на язык С
Подскажите пожалуйста, как переложить этот код на язык С using System; using...

Перевести код на язык С++
#include &lt;stdio.h&gt; #include &lt;string.h&gt; int main(void) { printf(&quot;Enter of string: &quot;); ...


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

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

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