0 / 0 / 0
Регистрация: 30.01.2017
Сообщений: 1
1

Из Паскаля на С++

30.01.2017, 16:20. Показов 468. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите переписать это решение на C++.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a:integer;
 
function del(n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n-1 do
if n mod i=0 then s:=s+i;
del:=s;
end;
 
begin
writeln('Введите число');
readln(a);
writeln('Сумма делителей числа ',a,': ',del(a));
if del(a)=a then writeln('Число является совершенным')
else writeln('Число не совершенное');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2017, 16:20
Ответы с готовыми решениями:

Закрыть вкладки Паскаля при исполнении Паскаля
В Паскаль АВС.Нет открыто несколько вкладок. Запускается следующая программа (вкладка). Как в нее...

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); ...

с паскаля на Си++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat...

Из паскаля в С++
Начал С++ недавно изучать. Школе писал на паскале. Вот исходник никак немогу перевести на С++....

3
669 / 181 / 58
Регистрация: 04.05.2012
Сообщений: 839
Записей в блоге: 1
31.01.2017, 12:44 2
it- 23,

Только я некоторые строки переписала.

C++
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
#include "iostream"
using namespace std;
 
 
int del(int n){
    int i,s;
    s=0;
    for(i=1;i<=n;i++){//и почему до -1? может делится на себя.
        if(n % i == 0){
            s++;//Зачем прибавлять i?ведь если нужно просто посчитать количество делителей, то переменная счетчик самое то
        }
 
    }
    return s;
}
 
 
int main()
{
    int a;
    cout<<"Enter number: - ";
    cin>>a;
    cout<<"\nSymma delitelei number "<<a<<": "<<del(a);
    if(del(a)==a){
        cout<<"\nNumber sovershenno!";
    }else{
        cout<<"\nNumber not sovershenno!";
    }
 
 
    return 0;
}
0
295 / 124 / 106
Регистрация: 30.10.2015
Сообщений: 690
31.01.2017, 14:01 3
Цитата Сообщение от Юля_программист Посмотреть сообщение
for(i=1;i<=n;i++){//и почему до -1? может делится на себя.
Совершенное число — натуральное число, равное сумме всех своих собственных делителей (то есть всех положительных делителей, отличных от самого́ числа).

Добавлено через 9 минут
Цитата Сообщение от Юля_программист Посмотреть сообщение
s++;//Зачем прибавлять i?ведь если нужно просто посчитать количество делителей, то переменная счетчик самое то
Нужно посчитать не количество, а сумму.

Добавлено через 5 минут
C++
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
#include <iostream>
 
int del(int n);
 
int main()
{
  int value;
  
  std::cout << "Enter value: ";
    std::cin >> value;
 
  if (value <= 0)
    std::cout << "Incorrect value." << std::endl;  
 
 
  std::cout << "Sum del: " << del(value) << std::endl; 
 
  if (del(value) == value)
    std::cout << "Yes" << std::endl;
  else 
    std::cout << "No" << std::endl;
 
  return 0;
}
 
int del(int n)
{
  int sum = 0;
 
  for (size_t i = 1; i < n - 1; ++i)
    if (n % i == 0)
      sum += i;
 
  return sum; 
}
0
669 / 181 / 58
Регистрация: 04.05.2012
Сообщений: 839
Записей в блоге: 1
31.01.2017, 14:14 4
Nemovok, ой не внимательно прочитала,про сумму)
Я думала надо количество


Эх..подзабыла школьную математику)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2017, 14:14
Помогаю со студенческими работами здесь

Из Паскаля на СИ
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x +...

из паскаля в С++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses...

из паскаля в C++
3)Даны два действитьельных числа. Заменить первое число нулем, если оно меньше или равно второму и...

с паскаля на с++
Program z1; uses crt; const n=10; type matr = array of integer; var ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru