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

описание функции OctDigitCount(n)

21.01.2010, 13:36. Просмотров 875. Ответов 1
Метки нет (Все метки)

описание функции OctDigitCount(n), подсчитывающую количество различных (значащих) цифр в восьмиричной записи натурального числа n.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 13:36
Ответы с готовыми решениями:

Описание функции
Всем привет. Помогите, пожалуйста ,с такой не сложной задачей: Нужно описать...

Описание рекурсивной функции
Помогите пожалуйста решить задачку с рекурсиями... Задача: Описать рекурсивную...

Описание функции вещественого типа
. Описать функцию Max3(A,B,C) вещественного типа, находящею из трех...

Множества, описание функции
Всем приет! Помогите написать код к следующей задаче: Type Natur = 1..MaxInt;...

Описание функции
Подскажите, как переделать код, чтобы в main() был чисто ввод значений и вывод...

1
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
21.01.2010, 13:59 #2
Лучший ответ Сообщение было отмечено shomaav как решение

Решение

Немного не понятно условие.
Число вводится в десятичной или восьмеричной системах.
Вот программка, в которой число в СС 10 переводится в СС 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
31
32
33
uses crt;
const zn:string[8]='01234567';
function OctDigit(n:longint; var s:string):byte;
var {s:string;}
    m:set of char;
    k,i:byte;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 8+1]+s;
  n:=n div 8;
 end;
m:=[];k:=0;
for i:=1 to length(s) do
if not(s[i] in m) then
 begin
  k:=k+1;
  m:=m+[s[i]];
 end;
OctDigit:=k;
end;
var n:longint;
    s:string;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=OctDigit(n,s);
write('Количество различных цифр в восьмеричной записи числа ',n,'=',s,' равно ',k);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 13:59

Описание функции
Доброго времени суток! не могу решить данную задачу на делфи : Описать функцию...

Описание функции
Помогите написать код функции!? Задача: Программа. Описать функцию f (s, n,...

Описание функции
Выдает ошибку в 9ой строке. #include <stdio.h> #include <math.h> void main...


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

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

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