Перевод числа в десятичную систему счисления

@fanny.rip · Регистрация: 01.02.2012

Author24 — интернет-сервис помощи студентам

Дана символьная строка, представляющая собой запись натурального числа в p-ичной системе счисления ( ).Составить программу для перевода этого числа в десятичную систему счисления

помогите решить пожалуйста,а то не получается)))))))заранее спасибо)))))))

@Puporev · 16.05.2012, 17:24

Pascal

uses  crt;
const digit:string[16]='0123456789ABCDEF';
function ToDec(n:string;base:byte;dec:integer):integer;
var len:byte;
begin
len:=length(n);
if len=0 then ToDec:=0
else ToDec:=dec*(pos(n[len],digit)-1)+ToDec(copy(n,1,len-1),base,base*dec)
end;
 
var base,k,i:byte;
    chislo:string;
    res:integer;
begin
  writeln('Введите СС:');
  read(base);
  repeat
  writeln('Введите число в СС:');
  read(chislo);
  k:=0;
  for i:=1 to length(chislo) do
  if not(chislo[i] in ['0'..chr(base+47)]) then k:=1;
  if k=1 then writeln('Неверный формат числа, повторите ввод');
  until k=0;
  res:=ToDec(chislo,base,1);
  writeln('Число в СС 10');
  write(res);
end.

@fanny.rip 0 / 0 / 0 Регистрация: 01.02.2012 Сообщений: 3
		1
	Перевод числа в десятичную систему счисления 16.05.2012, 16:26. Показов 1930. Ответов 1 Метки нет (Все метки) Дана символьная строка, представляющая собой запись натурального числа в p-ичной системе счисления ( ).Составить программу для перевода этого числа в десятичную систему счисления помогите решить пожалуйста,а то не получается)))))))заранее спасибо))))))) 0

	16.05.2012, 17:24

Перевод числа в десятичную систему счисления

Решение