2008-06-16 20:26:14 DoodleZ Помогите пожалуйста создать программу перевода числа x и k-той системы исчисления в десятичную. |
2008-06-16 20:29:56 DoodleZ из k-той* |
2008-06-16 20:38:48 Дикий Эм.... честно незнаю :( |
2008-06-16 20:43:59 DoodleZ Дикий Кстати зелья готовы?)) |
2008-06-16 20:57:44 DoodleZ плизз |
2008-06-16 21:31:43 DoodleZ |
2008-06-16 21:39:00 AsaG DoodleZ https://referats.local100.ru/res_394415.html Инет под рукой не ной а поищи |
2008-06-16 21:41:23 AsaG program hex2dec; var s:string; i,c:Integer; begin Write('Input Hexadecimal number: '); ReadLn(s); Val('$'+s,i,c); if c=0 then WriteLn('Decimal value: ',i) else WriteLn('Invalid input position: ',c); end. |
2008-06-16 21:42:02 AsaG DoodleZ программа перевода чисел из 16-ой в 10-ую |
2008-06-16 21:42:36 AsaG Или uses crt; var s :string; i,n,k :integer; begin readln(s); for i := 1 to length(s) do begin k := ord(UpCase(s[i])); case k of 48..57: n := n + (k - ord('0')) * (1 shl (4 * (length(s) - i))); else if (k < ord('a')) and (k > ord('f')) then begin write('number is not valid'); readkey; exit; end; n := n + (k - ord('A') + 10) * (1 shl (4 * (length(s) - i))); end; end; writeln(n); readkey; end. |