Помогите чайнику разобраться в паскале!))


гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
Назад к темам раздела.
2008-06-16 20:26:14 гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
Помогите пожалуйста создать программу перевода числа x и k-той системы исчисления в десятичную.
 
2008-06-16 20:29:56 гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
из k-той*
 
2008-06-16 20:38:48 гильдия Столичные Шахтеры (Адепт)[689] Дикий Информация
Эм.... честно незнаю :(
 
2008-06-16 20:43:59 гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
Дикий
Кстати зелья готовы?))
 
2008-06-16 20:57:44 гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
плизз
 
2008-06-16 21:31:43 гильдия Столичные Шахтеры (Грандмастер)[15584] гильдия Столичные Ювелиры (Ученик)[137] DoodleZ Информация
 
2008-06-16 21:39:00 гильдия Бойцы (Мастер)[9103] гильдия Охотники Илдиора (Новичок)[80] Орда Орков (На пенсии) AsaG Информация
DoodleZ
https://referats.local100.ru/res_394415.html
Инет под рукой не ной а поищи
 
2008-06-16 21:41:23 гильдия Бойцы (Мастер)[9103] гильдия Охотники Илдиора (Новичок)[80] Орда Орков (На пенсии) 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 гильдия Бойцы (Мастер)[9103] гильдия Охотники Илдиора (Новичок)[80] Орда Орков (На пенсии) AsaG Информация
DoodleZ
программа перевода чисел из 16-ой в 10-ую
 
2008-06-16 21:42:36 гильдия Бойцы (Мастер)[9103] гильдия Охотники Илдиора (Новичок)[80] Орда Орков (На пенсии) 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.