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

Проверить, содержит ли заданное число четыре различные цифры - Delphi

27.01.2014, 18:09. Просмотров 422. Ответов 3
Метки нет (Все метки)

Ввести на форму целое четырехразрядное положительное число. Проверить, содержит ли заданное число четыре различные цифры. Например: 1234, 8976, 3461
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2014, 18:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить, содержит ли заданное число четыре различные цифры (Delphi):

Циклы: проверить, содержит ли заданное четырехзначное число три одинаковые цифры
Ввести на форму целое четырехразрядное положительное число. Проверить содержит...

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

Определить содержит ли массив заданное число
Нужно сделать вот что в делфи. Определить содержит ли массив заданное число....

Проверить заданное число на палиндромность
Прошу помощи. Данную программу не могу закончить уже около двух недель, не...

Проверить, не превышает ли число в Edit заданное значение
как поставить условие если edit1.text>99 то showmessage ('жирно не будет?');...

Задача:дано число n.Правдали оно содержит ровно 3 одинаковых цифры
Доброго времени суток ув. форумчане.Прошу вашей помощи в решении курсовой...

3
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,314
27.01.2014, 19:38 #2
Цитата Сообщение от antiidiot Посмотреть сообщение
Задача на циклы
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var n,a,b:integer;
    m:set of byte;
begin
val(Edit1.Text,n,a);
if (a<>0)or(n<1000)or(n>9999) then
 begin
  showmessage('Ошибка, введите 4х разрадное положительное число');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
m:=[];
b:=0;
while n>0 do
 begin
  a:=n mod 10;
  if not(a in m) then
   begin
    inc(b);
    m:=m+[a]
   end;
  n:=n div 10
 end;
if b=4 then showmessage('Все цифры разные')
else showmessage('Не все цифры разные')
end;
0
antiidiot
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 41
27.01.2014, 20:25  [ТС] #3
поясните пожалуйста тип переменной m, я не сильно понял
0
Cyborg Drone
Модератор
5250 / 3117 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
28.01.2014, 02:45 #4
Цитата Сообщение от antiidiot Посмотреть сообщение
тип переменной m
Множество из байтов.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2014, 02:45
Привет! Вот еще темы с решениями:

Верно ли что все четыре цифры числа различны
Верно ли что все четыре цифры числа различны help pls

Вывести первые четыре цифры значения функции для Х от 0,3 до 5,1 с шагом 0,4
Вывести первые четыре цифры значения функции для Х от 0,3 до 5,1 с шагом 0,4.

Составить программу, которая в заданное двухзначное число вписывает 0 в середину и получает трёхзначное число
Помогите решить пожалуйста Составить программу, которая в заданное двухзначное...

Проверить является ли число палиндромом, содержит ли одинаковые цифры, или все различные.
Помогите сделать код на С++ Дано натуральное число n (0 &lt; n &lt; 9990). а)...


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

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

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