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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Денис92
0 / 0 / 0
Регистрация: 31.03.2011
Сообщений: 21
#1

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

31.03.2011, 16:26. Просмотров 385. Ответов 4
Метки нет (Все метки)

пожалуйста помогите перевести код с паскаля в с++
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
Посмотрите здесь:

Перевести код с Pascal - C++
procedure Max_el_matr; label 1; begin max_el:=A; p:=2; q:=1; for i:=2 to RazmMatr do begin ...

Перевести код с Pascal - C++
var m,n,i,k: longint; flag: boolean; begin writeln('vvod m>3'); readln(m); write(' 2 3'); n:=3; k := 2; n...

Перевести код с Pascal - C++
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо) var ans, a, p :int64; ...

Перевести код с Pascal - C++ - C++
Перевести код с Pascal на C++ var a,b: Integer; sim: String; begin Readln(a); Readln(sim); Readln(b); if sim='>'...

Перевести код с Pascal - C++
есть код на Pascale,перевести на СИ

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

Перевести код из Pascal на С++ - C++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; st: Byte; nagr: Byte; ...

Перевести код из Pascal в C++ - C++
Помогите перевести код из Паскаля в С++ Uses crt; const n = 10; var x: array of integer; i, k: integer; begin ...

Перевести код с Pascal на C++ - C++
Здравствуйте, дана задача : "Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый...

Перевести код с Pascal на С++ - C++
Ребята,помогите преобразовать код,представленный по этой ссылке http://www.cyberforum.ru/turbo-pascal/thread1053110.html на С++ Задание...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
Ответ Создать тему
Опции темы

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