Ayuda con pascal yo se que pueden
Hola espero estén muy bien.. Les escribo por que necesito un programa en lenguaje pascal que haga lo siguiente:
Leer un numero entero y almacenarlo en la variable N y leer una base numérica cualquiera en la variable B y pasar dicho numero a esta base.
Espero me respondan lo más pronto posible y si no es mucho pedir me expliquen las variables que usen... Gracias
Leer un numero entero y almacenarlo en la variable N y leer una base numérica cualquiera en la variable B y pasar dicho numero a esta base.
Espero me respondan lo más pronto posible y si no es mucho pedir me expliquen las variables que usen... Gracias
1 respuesta
Respuesta
1
uses crt;
var
res,result,base,n,mult,aux:integer;
begin
res:=0;
result:=0;
mult:=1;
write('Escriba un n£mero: ');
readln (n);
writeln('Introduzca la base: ');
readln(base);
aux:=n;
while n >=base do
begin
res:= n MOD base;
n:= n DIV base;
result:= result + (mult*res);
mult:=mult*10
end;
Result:= result + (mult * n);
writeln ('El numero ',aux,' en base ',base,' es:', result:0);
readkey;
end.
var
res,result,base,n,mult,aux:integer;
begin
res:=0;
result:=0;
mult:=1;
write('Escriba un n£mero: ');
readln (n);
writeln('Introduzca la base: ');
readln(base);
aux:=n;
while n >=base do
begin
res:= n MOD base;
n:= n DIV base;
result:= result + (mult*res);
mult:=mult*10
end;
Result:= result + (mult * n);
writeln ('El numero ',aux,' en base ',base,' es:', result:0);
readkey;
end.