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

Pascal (Паскаль)

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

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

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

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

Описание функции - Pascal
Всем привет. Помогите, пожалуйста ,с такой не сложной задачей: Нужно описать функцию для определения f(x,y) (условие прикрепляю ниже) ...

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

Описание функции вещественого типа - Pascal
. Описать функцию Max3(A,B,C) вещественного типа, находящею из трех вещественных чисел A,B и C. С помощью этой функции найти максимальные...

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

Описание функции - Delphi
Доброго времени суток! не могу решить данную задачу на делфи : Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых...

Описание функции - Delphi
Можно ли так описывать рекурсивную функцию (правильно ли это): function F(x,n,alph,m:real):real; begin F:=0; if n=1...

1
Puporev
Модератор
52833 / 40644 / 13893
Регистрация: 18.05.2008
Сообщений: 94,292
21.01.2010, 13:59 #2
Немного не понятно условие.
Число вводится в десятичной или восьмеричной системах.
Вот программка, в которой число в СС 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
Привет! Вот еще темы с ответами:

описание функции - C++
Описать функцию mmax(x,y), которая присваивает первому парамтру большее,а второму - меньшее из значений x и y.Используя эту...

Описание функции - C (СИ)
Выдает ошибку в 9ой строке. #include <stdio.h> #include <math.h> void main () { int n,B,R; printf ("\nvvedite chislo\n"); ...

Описание функции - Lisp
Помогите пожалуйста описать функцию y

Описание функции - C++
Доброго времени суток! Начал учить с++, добрался до функций, нашел тут задачку на описание функции...Немного не понимаю метода решения и...


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

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

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