|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.12.2007, 14:21 | #11 | |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Цитата:
s:='123456789ABCDEFGHIJKLMNOPQRSTUV WXYZ_';{36} Если подсчитать, то там ровно 36 элементов.... for j:=1 to 36 do begin цикл который посимвольно перебирает строку S (все 36 символов), и дальше наверное будет сравнивать....
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
|
16.12.2007, 15:22 | #12 | |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Цитата:
|
|
17.12.2007, 01:36 | #13 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Помоготи пожалуйста, переписал код вроде правильно, для перевода из любой системы счисления в десетичную, но где присутствует ошибочка Потомучто считает не правильно И ещё прикол, на Паскале этот код работает правильно, а на Делфи отказуеться работать, считает плохо, так сказать, вызываю я эту функцию вот так :
Memo1.Lines.Add(IntToStr(In10(2, IntToStr(10)))); А сама функция вот: function In10(A: Integer; B: string): Integer; var I, J, C, K, R: Integer; S, T1, T2: string; begin S := '123456789ABCDEFGHIJKLMNOPQRSTUVWXY Z_'; C := Length(B); for I := 1 to C do begin T1 := Copy(B, I, 1); for J := 1 to 36 do begin T2 := Copy(S, J, 1); if T1 = T2 then K := J; end; R := A * R + K; end; Result := R; end; Последний раз редактировалось RIO; 17.12.2007 в 01:54. |
17.12.2007, 02:24 | #14 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Все . . . Сделал, в начале функции нужно было дописать R := 0
|
17.12.2007, 14:32 | #15 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
Кстати, функция перевода в десятичную систему, работает не коректно . . . В чем проблемка?
|
28.05.2008, 17:16 | #16 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Блин, ну немогу я написать рабочую прогу для перевода из 2и-чной системы в 16и-ричную... даже на базе указанных кодов
помогите пожалуйста
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
03.04.2009, 19:46 | #17 |
Новичок
Джуниор
Регистрация: 04.03.2009
Сообщений: 2
|
|
03.04.2009, 19:49 | #18 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Код:
Цитата:
|
|
08.06.2010, 09:21 | #19 |
Пользователь
Регистрация: 04.06.2010
Сообщений: 11
|
если не тяжело переведите в С++ пожалуйста
Учу С++ и многого не знаю... буду очень благодарен если вы мне поможите понять...тупо зделать не прошу и сам в этом не заинтересован!!!
|
12.12.2010, 16:18 | #20 |
Регистрация: 12.12.2010
Сообщений: 4
|
всем здорова,я не могу разобраться что в этом куске проги мы делаем?
if p>=10 then b:=copy(s,p,1) else str(p,b); ss:=b+ss; n:=n div k; end; |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод из одной системы исчисления в другую. | Svop | Помощь студентам | 7 | 20.12.2010 19:00 |
Программа перевода из одной системы счисления в другую - Turbo Pascal 7.0. | Prescott | Помощь студентам | 5 | 19.03.2010 19:26 |
Перевод из одной системы счисления в другую | Sky_VSUH | Помощь студентам | 1 | 28.02.2008 20:18 |
перевести числа с одной системы счисления в другую | Informer | Общие вопросы C/C++ | 3 | 23.11.2007 16:21 |