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

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

DoodleZ

Назад к темам раздела.

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
http://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.