Saisir un nombre dans une base B

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Saisir un nombre dans une base B

Message par Admin le Jeu 9 Fév - 11:17

program base;
uses wincrt;
var n,b:integer;
ch:string;

function verif(ch:string;b:integer):boolean;
var i,d,e:integer;
begin
i:=0;
repeat
i:=1+i;
if ch[i] in ['A'..'Z'] then
d:= ord(ch[i])-55
else val(ch[i],d,e);
until not(d in [0..b-1]) or (i>length(ch));
verif:=(d in [0..b-1]);
end;
procedure saisir;
var i:integer;
begin
repeat
writeln('Donner la base : ');
readln (b) until b in [2..16];
repeat
writeln('Donner un nombre dans la base',b,' : ');
readln(ch);
for i:=1 to length(ch) do
ch[i]:= upcase(ch[i]);
until verif(ch,b);
end;
begin
saisir;
writeln(ch,' dans la base : ',b);
end.
avatar
Admin
Admin

Messages : 42
Points : 11822
Réputation : 0
Date d'inscription : 08/11/2010

Voir le profil de l'utilisateur http://www.haiethem.co.cc

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum