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

Перевести код с Pascal - C++

Восстановить пароль Регистрация
 
Денис92
0 / 0 / 0
Регистрация: 31.03.2011
Сообщений: 21
31.03.2011, 16:26     Перевести код с Pascal #1
пожалуйста помогите перевести код с паскаля в с++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var N,M:longint;
    k:byte;
begin
clrscr;
write('N=');readln(n);
M:=0;
while N>0 do
  begin
   k:=N mod 10;//отделяем по одной цифре с конца
   M:=10*M+k; //формируем новое число, умножая его на 10 и прбавляя последнюю цифру
   N:=N div 10;//берем число без последней цифры и все повторяем
  end;
write('M=',M);
readln
end.
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2011, 16:26     Перевести код с Pascal
Посмотрите здесь:

C++ Перевести код из Pascal на C++
C++ Перевести код Pascal на C++
Перевести код с С++ в С и Pascal C++
Перевести код из Pascal в C++ C++
Перевести код с Pascal C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
AnDrew_LP
160 / 162 / 9
Регистрация: 29.05.2010
Сообщений: 435
31.03.2011, 16:56     Перевести код с Pascal #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include<iostream>
using namespace std;
 
int main()
{
  cout>>"N=">>"\n";
  long n;
 cin<< n;
 long m=0;
 short k; 
while(n>0)
{
  k=n%10;
  m*=10;
  m+=k;
  n=n/10;
}
 cout>>"M=">>m;
 cin.get();
}
raskumar4ik
2 / 2 / 1
Регистрация: 31.03.2011
Сообщений: 18
31.03.2011, 17:03     Перевести код с Pascal #3
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Так наверно лучше будет ))
<< - вывод
>> - ввод


C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include<iostream>
int main()
{
 long n,m=0;
 short k;
 cout<<"N=";
 cin>>n;
 while(n>0)
 {
  k=n%10;
  m*=10;
  m+=k;
  n=n/10;
 }
 cout<<"M="<<m;
 getch();
}
AnDrew_LP
160 / 162 / 9
Регистрация: 29.05.2010
Сообщений: 435
31.03.2011, 17:09     Перевести код с Pascal #4
бывает)
Денис92
0 / 0 / 0
Регистрация: 31.03.2011
Сообщений: 21
31.03.2011, 17:18  [ТС]     Перевести код с Pascal #5
СПАСИБО ВАМ БОЛЬШОЕ!!!!

Добавлено через 2 минуты
СПАСИБО
Yandex
Объявления
31.03.2011, 17:18     Перевести код с Pascal
Ответ Создать тему
Опции темы

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