|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
задали мне вот такую задачу
Разработать приложение, определяющее является ли число двояким(в записи числа используется не более двух цифр)
__________________________________________________ ________________ кто сможет решить выложите ответ на форум и на мой мэил djstasco@yandex.ru |
#2
|
|||
|
|||
if Length(IntToStr(chislo))=2 then
Двоякое |
#3
|
||||
|
||||
Kingcss, вот вам информация к размышдению: 21222112 - двоякое число
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var value,ovalue,c:Integer; o:byte; th: set of 0..9; begin th:=[]; value:=strtointdef(edit1.Text,0); c:=0; while (value>0) and (c<=2) do begin ovalue:=value; value:=value div 10; o:=ovalue-value*10; if not(o in th) then inc(c); th:=th+[o]; end; if c<=2 then showmessage('Двоякое') else showmessage('Недвоякое'); end; Последний раз редактировалось YVitaliy, 04.05.2012 в 12:48. |
#5
|
||||
|
||||
YVitaliy, можно проще - вообще не используя числовых типов данных, работая только со стоками.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
||||
|
||||
навскидку:
Код:
var str :string; i:inetger; ... str:=Edit1.Text; for i:=1 to 2 do str:=StringReplace(str,str[1],'',[rfReplaceAll, rfIgnoreCase]); if Length(str)=0 then Двоякое; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#7
|
||||
|
||||
Yurk@, прикольный вариант
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#8
|
||||
|
||||
Ну, зато мой вариант в 3 раза быстрее! Как минимум...
|
#9
|
|||
|
|||
Большое пасибо Я СДАЛ КУРСОВИК
|