Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Юлия Алексеевна
0 / 0 / 0
Регистрация: 07.03.2010
Сообщений: 23
#1

Описать функцию, которая возвращает количество разных цифр, входящих в запись числа типа Longint - Delphi

07.03.2010, 11:04. Просмотров 954. Ответов 5
Метки нет (Все метки)

Здравствуйте, уважаемые знатоки Делфи! Помогите пожалуйста написать программу для делфи:
"Описать функцию, которая возвращает количество разных цифр, входящих в запись числа типа Longint".
Очень срочно нужно, заранее огромное спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2010, 11:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Описать функцию, которая возвращает количество разных цифр, входящих в запись числа типа Longint (Delphi):

Описать функцию, которая возвращает номер позиции первого (слева) вхождения в запись числа типа Longint цифры k(k [0,9])
Всем привет!)конец семестра снова загрузили лабами...ничего не успеваю как...

Описать функцию, которая возвращает количество пар соседних цифр в записи числа
Описать функцию, которая возвращает количество пар соседних цифр в записи...

описать функцию, возвращающую наибольшую цифру, входящую в запись числа типа LongInt.
описать функцию, возвращающую наибольшую цифру, входящую в запись числа типа...

Вернуть количество пар соседних цифр в записи числа типа Longint, удовлетворяющих условию
Описать функцию, которая возвращает количество пар соседних цифр в записи...

Описать рекурсивную функцию digits без параметров, которая подсчитывает количество цифр в тексте
Описать рекурсивную функцию digits без параметров, которая подсчитывает ...

Описать функцию digits(n), подсчитывающую количество различных(значащих) цифр в десятичной записи натурального числа
Описать функцию digits(n), подсчитывающую количество различных(значащих) цифр в...

5
turboq
156 / 156 / 11
Регистрация: 14.01.2010
Сообщений: 1,448
07.03.2010, 14:31 #2
Если я правильно понял тебе нужно так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
q:longint;
s:string;
i:integer;
mas:array[0..9] of byte;
begin
//q:=1232455677;
q:=159305070;
s:=IntToStr(q);
  for i:=1 to Length(s) do
  begin
  q:=StrToInt(s[i]);
  mas[q]:=1;
  end;
  q:=0;
  for i:=0 to 9 do
  if mas[i]=1 then Inc(q);
ShowMessage('Разных цифр в числе '+s+'  : '+IntToStr(q));
Или тебе нужно каких цифр сколько?
1
Юлия Алексеевна
0 / 0 / 0
Регистрация: 07.03.2010
Сообщений: 23
07.03.2010, 14:45  [ТС] #3
turboq, спасибо за помощь, но тут по-моему немного не так, думаю надо как-то сделать, чтобы в edit вводили число и при нажатии на button выдавалось сообщение последнего вида!!!
0
turboq
156 / 156 / 11
Регистрация: 14.01.2010
Сообщений: 1,448
08.03.2010, 10:28 #4
Delphi
1
q:=StrToInt(Edit1.text);
1
Юлия Алексеевна
0 / 0 / 0
Регистрация: 07.03.2010
Сообщений: 23
08.03.2010, 13:35  [ТС] #5
turboq, спасибо большое, ты мне очень помог!!! Так бы я долго додумывалась, как сделать, правда слишком длинное число программа не воспринимает!!
0
turboq
156 / 156 / 11
Регистрация: 14.01.2010
Сообщений: 1,448
08.03.2010, 15:48 #6
Что значит слишком длинное
Тип LongInt - целое 32 битное число со знаком. Этот размер фиксирован, и не будет изменяться в будущих выпусках Delphi. В настоящее время он имеет тот же самый размер как тип Integer.

Чтобы обрабатывать очень большие целые числа со знаком, используйте тип Int64.
Min значение longint = -2147483648
Max значение longint = 2147483647
дальше этого естественно нельзя
0
08.03.2010, 15:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.03.2010, 15:48
Привет! Вот еще темы с решениями:

Составить программу, которая выводила множество цифр, входящих в изображение числа N, которые не входят в изоб
Пусть заданы два натуральных числа N и M. Составить программу, которая выводила...

Описать логическую функцию mid(f) которая определяет, имеет ли файл f Типа FR четную длину
Задание: Описать логическую функцию mid(f) которая определяет, имеет ли файл f ...

Разработать функцию программиста, которая возвращает количество латинских букв в любой строке
1. Разработать функцию программиста, которая возвращает количество латинских...

Delphi. Dynamic: описать функцию Рор(S) целого типа, которая извлекает из стека S первый (верхний) элемент
Дан указатель Р1 на вершину стека, содержащего не менее пяти элементов....


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

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

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