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

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

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

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

31.03.2011, 16:26. Просмотров 390. Ответов 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.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2011, 16:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код с Pascal (C++):

Перевести код из Pascal в C++ - C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат. Помогите плиз. ...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код из Pascal в с++ - C++
Нужно перевести из паскаля в с++ две программы, кот. интегрируют методом симсона и трапеций соответственно. Заранее спасибо, форумчане)) ...

Перевести код с Pascal - C++
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite B='); readln(b); If a>b...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a<(b+c) then Fun:=true else Fun:=false; end; var ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
AnDrew_LP
160 / 162 / 9
Регистрация: 29.05.2010
Сообщений: 435
31.03.2011, 16:56 #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();
}
1
raskumar4ik
2 / 2 / 1
Регистрация: 31.03.2011
Сообщений: 18
31.03.2011, 17:03 #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();
}
0
AnDrew_LP
160 / 162 / 9
Регистрация: 29.05.2010
Сообщений: 435
31.03.2011, 17:09 #4
бывает)
0
Денис92
0 / 0 / 0
Регистрация: 31.03.2011
Сообщений: 21
31.03.2011, 17:18  [ТС] #5
СПАСИБО ВАМ БОЛЬШОЕ!!!!

Добавлено через 2 минуты
СПАСИБО
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2011, 17:18
Привет! Вот еще темы с ответами:

Перевести код с Pascal - C++
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); readln(n); f:=0; ...

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

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


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
31.03.2011, 17:18
Ответ Создать тему
Опции темы

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