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

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

Войти
Регистрация
Восстановить пароль
 
romalikons
0 / 0 / 0
Регистрация: 03.10.2013
Сообщений: 77
#1

помогите перевести программу с паскаля на С++ - C++

07.10.2013, 19:38. Просмотров 252. Ответов 1
Метки нет (Все метки)

Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен.

Вот задание :
№1.
Дано натуральное число N.
Определить, является ли оно автоаморфным.
Автоаморфное число N равно последним разрядам квадрата этого числа.

А вот код паскаля :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program A7;
Var n,r,m:word;
Begin
Write(‘Введите натуральное число’);
Readln(n);
M:=n; r:=1;
While m>0 do
Begin
M:=m div 10;
R:=r*10;
End;
If (n*n mod r)=n then writeln(‘число   ‘,N,’  автоморфно’)
       Else writeln((‘число   ‘,N,’  не  автоморфно’ );
Readln
End.
Буду очень признателен за помощь.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 19:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос помогите перевести программу с паскаля на С++ (C++):

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Перевести эту программу на С++ с паскаля - C++
Кто может перевести эту программу на С++ вот задание 1 определит колличество строк без нуле 2 сложить характеристические ряды (это...

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Жанерке
34 / 34 / 2
Регистрация: 22.09.2013
Сообщений: 170
07.10.2013, 21:33 #2
примерно так )
но я все таки не поняла что такое автоморфное число

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <vcl.h>
#pragma hdrstop
#include<conio.h>
#include<iostream.h>
 
//---------------------------------------------------------------------------
 
#pragma argsused
int main(int argc, char* argv[])
{int n,m,r;
cout<<"vvedite naturel'noe chislo  " ;
cin>>n;
m=n;r=1;
while (m>0){
m=m/10;
r=r*10;}
 
if((n*n%r )==n)  cout<<"avtomorfno";
else     cout<<"ne avtomorfno"  ;
       getch();
        return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 21:33
Привет! Вот еще темы с ответами:

Надо перевести программу из ПАСКАЛЯ в СИ - C++
uses crt; var a:array of integer; m,n,i,j,k,m1,n1,q1,q2:integer; c:integer; begin clrscr; randomize; k:=0; ...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие:дана матрица размера MxN. Поменять местами...

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...


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

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

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