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

Delphi для начинающих

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

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

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

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

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

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

Определить содержит ли массив заданное число - Delphi
Нужно сделать вот что в делфи. Определить содержит ли массив заданное число. Если элемент найден, то поменять его местами с первым...

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

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

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

3
Puporev
Модератор
53001 / 40812 / 14059
Регистрация: 18.05.2008
Сообщений: 94,919
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
Модератор
4979 / 3037 / 1237
Регистрация: 17.08.2012
Сообщений: 9,749
28.01.2014, 02:45 #4
Цитата Сообщение от antiidiot Посмотреть сообщение
тип переменной m
Множество из байтов.
0
28.01.2014, 02:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2014, 02:45
Привет! Вот еще темы с ответами:

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

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

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

Дано натуральное число n (n <= 9999). Учитывая все четыре цифры числа, определить, правильно, что оно содержит: все разные цифры - C++
Плиз срочно надо=) для Microsoft Visual Studio 2010 Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а...


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

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

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