Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2013, 17:51   #1
Zoltorn
 
Регистрация: 17.11.2013
Сообщений: 3
Вопрос Разные числа

Нужно в файле написать рядок чисел N(1<=N<=101000);
и найти сколько разных чисел в строчке.
На пример 12344 будет 4
Zoltorn вне форума Ответить с цитированием
Старый 25.11.2013, 17:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

предлагаю такую схему:
Код:
function razn(n:integer):Integer;
var s:set of 0..9;i,c:integer;
begin
 while n>0 do begin
  include(s,n mod 10);
  n:=n div 10;
 end;
 c:=0;
 for i:=0 to 9 do if i in s then inc(c);
 razn:=c;
end;
Не опробовал ее. В функцию передавай число и получай кол-во уникальности цифр.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.11.2013, 22:10   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Не опробовал ее
На вид всё верно.. (только я бы множество инициализировал..)
НО есть одна проблемка.. ограничения..
боюсь там написанно 10^1000.. тогда твой вариант не прокатит..
предлагаю или баловаться строкой (что скушает много памяти) либо читать посимвольно, что является самым оптимальным вариантом..

Тоесть вариант Виталия изменится совсем шушуть..
Poma][a вне форума Ответить с цитированием
Старый 25.11.2013, 22:34   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от 'Poma
боюсь там написанно 10^1000..
Чего?
Arigato вне форума Ответить с цитированием
Старый 25.11.2013, 22:44   #5
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Чего?
Хорошо, как тогда понять эту запись? 10 в 1000 с.с.?
Цитата:
Сообщение от Zoltorn Посмотреть сообщение
N(1<=N<=101000);
Poma][a вне форума Ответить с цитированием
Старый 25.11.2013, 22:44   #6
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Цитата:
боюсь там написанно 10^1000.. тогда твой вариант не прокатит..
До тысячного элемента там

Да уж, обмишурился я.
Опечатка явная, но что она означает?

Последний раз редактировалось Stilet; 25.11.2013 в 22:54.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 25.11.2013, 22:46   #7
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
Хорошо, как тогда понять эту запись? 10 в 1000 с.с.?
Да я не против, только квантовый компьютер еще не создан
Arigato вне форума Ответить с цитированием
Старый 25.11.2013, 22:51   #8
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Да я не против, только квантовый компьютер еще не создан
Да ладно.. до свадьбы даст Бог выполнится
Цитата:
До тысячного элемента там
Прув?
Poma][a вне форума Ответить с цитированием
Старый 25.11.2013, 22:55   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
боюсь там написанно 10^1000
Тогда полюбому строка. Хотя какому студенту захочется вводить такую огромную строку?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.11.2013, 23:02   #10
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Тогда полюбому строка.
Тогда готовь плакат "Привет, BSOD или RunTime Error".. это ж сколько ж памяти она сожрет.. боюсь только посимвольно читать..
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разные случайные числа в разных переменных. Alex COD Общие вопросы C/C++ 3 06.04.2011 00:23
Разные пароли на разные диапазоны zenner Microsoft Office Excel 22 27.11.2010 01:25
Разные компиляторы - разные результаты Кипящий чайник Общие вопросы C/C++ 3 16.07.2010 14:54
Перевод числа в разные системы счисления Сергий Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 04.12.2008 21:15