Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Jake059
0 / 0 / 0
Регистрация: 21.09.2014
Сообщений: 11
#1

Выведите число в десятичной системе исчисления с помощью div и mod

30.09.2014, 15:30. Просмотров 407. Ответов 8
Метки нет (Все метки)

Введите с
клавиатуры натуральное число и систему исчисления, в которой это число
представлено (систему счисления задают в десятичной СИ). Выведите это число в
десятичной системе исчисления
с помощью div и mod
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2014, 15:30
Ответы с готовыми решениями:

Доказать,что число 121,является полиндромом. Через div и mod?
Помогите пожалуйста.

Доказать что число 3535 является полиндромом! Через div и mod.
Помогите,срочно надо

Выведите в выходной файл округленное до n знаков после десятичной точки число E
Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче...

представить число в двоично - десятичной системе счисления
Итак есть 4 задачки кто может чем то помочь, подскажить с помошью какой теории можно написать их в...

Дано натуральное число n; представить его в двоично-десятичной системе счисления
Дано натуральное число n; представить его в двоично-десятичной системе счисления. Последнее...

8
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
30.09.2014, 15:38 #2
Цитата Сообщение от Jake059 Посмотреть сообщение
с помощью div и mod
Так переводят из СС 10 в другую.

Добавлено через 1 минуту
Цитата Сообщение от Jake059 Посмотреть сообщение
Введите с клавиатуры натуральное число
числа не в СС 10 вводятся как строка.
0
Jake059
0 / 0 / 0
Регистрация: 21.09.2014
Сообщений: 11
30.09.2014, 15:38  [ТС] #3
Ну так вроде и есть
0
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
30.09.2014, 15:39 #4
Цитата Сообщение от Jake059 Посмотреть сообщение
Ну так вроде и есть
А ты сам читал условие?
Цитата Сообщение от Jake059 Посмотреть сообщение
и систему исчисления, в которой это число
представлено (систему счисления задают в десятичной СИ). Выведите это число в
десятичной системе исчисления
0
Jake059
0 / 0 / 0
Регистрация: 21.09.2014
Сообщений: 11
30.09.2014, 15:41  [ТС] #5
Нам препод дал такое условие, что я могу сделать

Добавлено через 31 секунду
Поэтому и задал вопрос как написать прогу
0
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
30.09.2014, 15:41 #6
Т,е. по условию нужно например число в СС 2 типа 101110111
перевести в СС 10,и никакие div, mod уже не рулят.
0
Jake059
0 / 0 / 0
Регистрация: 21.09.2014
Сообщений: 11
30.09.2014, 15:45  [ТС] #7
посто перевести из n-ой системы исчисления в десятичную

Добавлено через 1 минуту
Можешь написать хотя бы без див и мод
0
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
30.09.2014, 16:00 #8
Pascal
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
30
const digit:string[16]='0123456789ABCDEF';//öèôðû Гў ÑÑ 2..16,äîáГ*ГўГЁГІГј ГЎГіГЄГўГ», áóäåò áîëüøå
{ГґГіГ*öèÿ ïåðåâîäГ* ëþáîé Г±Г± (2-16) Гў Dec}
function ToDec(n:string;r:byte):integer;
var m,i:integer;
begin
m:=0;
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
{îñîГ*îâГ*Г*Гї ïðîãðГ*ììГ*}
var cs,k,i:byte;
    st:string;
begin
repeat
writeln('Ââåäèòå ГЁГ§ ГЄГ*êîé Г±Г± îò 2 äî 16');
readln(cs);
until cs in [2..16];
repeat
writeln('Ââåäèòå ÷èñëî â ñîîòâåòñòâèè ñ ññ');
readln(st);
k:=0;
i:=1;
while(i<=length(st))and(k=0) do
if pos(st[i],copy(digit,1,cs))=0 then k:=1
else inc(i);
if k=1 then write('×èñëî âåäåГ*Г® Г*ГҐГўГҐГ°Г*Г®, ïîâòîðèòå')
until k=0;
writeln('Â ÑÑ 10=',ToDec(st,cs));
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3815 / 2496 / 2055
Регистрация: 22.11.2013
Сообщений: 6,947
30.09.2014, 16:39 #9
Цитата Сообщение от Puporev Посмотреть сообщение
Так переводят из СС 10 в другую.
Возможно с огромной натяжкой, если для ввода десятичного числа использованы цифры подходящей СС, на непрофильных специальностях вполне могли меть в виду такую бредовую ситуацию :-)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n, nn: Longint;
  base: Integer;
begin
  Write('Введите число и СС: '); ReadLn(nn,base);
  n:=0;
  repeat
    n:=n*base+(nn mod 10);
    nn:=nn div 10;
  until nn=0;
  WriteLn(n);
end.
0
30.09.2014, 16:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2014, 16:39

Создать программу для перевода из десятичной системы исчисления в восьмеричную
Помогите пожалуйста создать программу для перевода из десятичной системы исчисления в восьмеричную...

Div/mod
Помогите пожалуйста! Могу ли я написать программу используя div. a не mod. Дано целое число X....

div, mod
ввести двух значное число.найти младшую,старшую,максимальную цифру числа,сумму цифр и произведение...


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

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

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