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

Перевод кода с Паскаля на С++ - C++

Восстановить пароль Регистрация
 
Serega0402
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 21:49     Перевод кода с Паскаля на С++ #1
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен.

Код Pascal
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var i:longint;
n,k:byte;
Function F(n:longint):byte;
Var s:byte;
Begin
s:=0;
While n>0 do
Begin
s:=s+n mod 10;
n:=n div 10;
End;
F:=s;
End;
Begin
write('Введите n: ');readln(n);
k:=0;
For i:=10000000 to 99999999 do
if F(i)>n then inc(k);
if k>0 then writeln('Таких чисел ',k)
else writeln('Нет');
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
srg_btl
33 / 33 / 2
Регистрация: 21.02.2013
Сообщений: 90
21.03.2013, 21:56     Перевод кода с Паскаля на С++ #2
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
#include <iostream>
 
long i;
char n,k;
 
char F( long n )
{
    char s;
    s = 0;
    while(n>0)
    {
        s += n % 10;
        n /= 10;
    }
    return s;
}
 
int main()
{
    cout >> "Vvedite n:";
    cin << n;
    k = 0;
    for(i = 10000000; i <= 99999999)
    {
        if ( F(i) > n ) ++k;
        if ( k > 0 ) cout << "net takih chosel " << k;
        else cout << "NET";
    }
}
Serega0402
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 21:58  [ТС]     Перевод кода с Паскаля на С++ #3
а можно без функции???
srg_btl
33 / 33 / 2
Регистрация: 21.02.2013
Сообщений: 90
21.03.2013, 22:01     Перевод кода с Паскаля на С++ #4
Цитата Сообщение от Serega0402 Посмотреть сообщение
а можно без функции???
это тебе не паскаль
VladislavTepes
 Аватар для VladislavTepes
78 / 78 / 5
Регистрация: 27.06.2012
Сообщений: 555
Записей в блоге: 1
21.03.2013, 22:02     Перевод кода с Паскаля на С++ #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
#include <iostream>
using namespace std;
unsigned char F(unsigned long int n);
int main(int argc,char * argv[])
{
   unsigned long int i;
   unsigned char n,k;
   cout<<"Vvedite n:"<<endl;
   cin>>n;
   k=0;
    for (i=10000000;i<99999999;i++)
    {
     if F(i)>n k++;
     if k>0 cout<<"Takyh chisel :"<<k<<endl;
         else cout<<"net";
     }
 
}
 
unsigned char F(unsigned long int n)
{
  unsigned char s=0;
  while (n>0)
  {
   s+=n%10;
   s=s/10;
   }
   return s;
}
Serega0402
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 22:25  [ТС]     Перевод кода с Паскаля на С++ #6
ошибку этот код выдает
srg_btl
33 / 33 / 2
Регистрация: 21.02.2013
Сообщений: 90
21.03.2013, 22:29     Перевод кода с Паскаля на С++ #7
допишы в конце main() перед }

C++
1
return 0;
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2013, 22:36     Перевод кода с Паскаля на С++
Еще ссылки по теме:

Перевод кода с паскаля в С++ C++
Перевод кода с Паскаля на С++ C++
Перевод кода из Паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
Serega0402
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 22:36  [ТС]     Перевод кода с Паскаля на С++ #8
скажи плиз а что F(i) обозначает тут не могу въехать

Дано натуральное число N. Определить кол-во 8-значных чисел, у которых сумма цифр в цифровой записи числа больше, чем N. Если таких чисел нет то вывести слово "нет".

вот задача ни как не могу ее решить, может возможно как то проще код сделать???
Yandex
Объявления
21.03.2013, 22:36     Перевод кода с Паскаля на С++
Ответ Создать тему
Опции темы

Текущее время: 12:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru