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

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

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

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

28.11.2011, 19:44. Просмотров 645. Ответов 1
Метки нет (Все метки)

Задача. Комп загадывет число, из 4 цифр, как сделать чтобы цифры не повторялись? randomize;
Delphi
1
2
3
4
zag:=(Random(9)+1)+(Random(9)+1)*10+(Random(9)+1)*100+(Random(9)+1)*1000;
str:=IntToStr(zag);
for i:=1 to Length(str) do
a[i]:=StrToInt(str[i]);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2011, 19:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос задача.удалить повторяющиеся цифры в загаданном числе (Delphi):

Удалить в данном натуральном числе все цифры, равные максимальной - Delphi
Удалить в данном натуральном числе все цифры, равные максимальной.

Сколько четных цифр в данном числе. Верно ли, что в данном числе встречаются цифры А и В - Delphi
Нужно написать программы(консольное приложение) в делфи самым простым способом без процедуры,функции и без рандомайза 9 Дано...

Цифры в числе - Delphi
Задание Составьте блок-схемы и программы к задачам 1. Дано натуральное число. Определить, сколько раз в этом числе встречается...

Три одинаковые цифры в числе - Delphi
Дано натуральное число. верно ли, что данное число содержит три одинаковые цифры? в моем понимании эта программа должна выглядеть как-то...

В целом числе Х убрать 2 правых цифры - Delphi
пожайлуста, написать программу на делфи.В целом числе Х убрать 2 правых цифры ,то есть в одном окошке вводим например 345 ,а в другом рядом...

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

1
anonimus
2153 / 1242 / 32
Регистрация: 28.04.2010
Сообщений: 4,549
28.11.2011, 20:53 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
function randomGenerate(col:byte):integer;
var i:byte; str,tmp:string;
begin
result:=0;
while length(str)<>col do begin
tmp:=inttostr(RandomRange(1,10));
  if pos(tmp,str)=0 then
    str:=str+tmp;
end;
 
result:=strtoint(str);
end;
передаешь кол. цифр из каких состоит число
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2011, 20:53
Привет! Вот еще темы с ответами:

В трехзначном натуральном числе переставить цифры в обратном порядке - Delphi
помогите создать программы!!! 1.8. Первый автомобилист выезжает из города А в город В в С ч и движется со скоростью D км/ч. Второй...

Проверка букв на наличие в загаданном слове и вывод их в соответствующую ячейку в StringGrid - Delphi
Игра Виселица Сейчас буду приступать к основной части программы - к проверке букв на наличие в загаданном слове и выводе их в...

Как удалить повторяющиеся столбцы в Stringrid? - Delphi
Как удалить повторяющиеся столбцы в Stringrid?

Удалить все повторяющиеся элементы массива - Delphi
Дан массив из 20 элементов удалите все повторяющиеся элементы.


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

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

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