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

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

28.11.2011, 19:44. Просмотров 665. Ответов 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
Ответы с готовыми решениями:

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

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

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

Три одинаковые цифры в числе
Дано натуральное число. верно ли, что данное число содержит три одинаковые...

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

1
anonimus
2154 / 1244 / 143
Регистрация: 28.04.2010
Сообщений: 4,578
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

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

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

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


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

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

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