verif
verif
program ex;
uses wincrt;
var
n:string;
b:integer;
procedure saisie(var n:string);
begin
repeat
writeln('donner un entier n');
readln(n);
until verif(n);
end;
function verif(n:string):boolean;
var
ok:boolean;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if b<=10 then
begin
convch(b-1,ch);
ok:=n[i] in ['0'..ch[1]];
else
c:=chr(b-1+55);
ok:=n[i] in ['0'..'9','A'..'C'];
end;
until(non ok)or(i=length(n));
verif:=ok;
end;
begin
saisie(n);
verif(n);
end.
uses wincrt;
var
n:string;
b:integer;
procedure saisie(var n:string);
begin
repeat
writeln('donner un entier n');
readln(n);
until verif(n);
end;
function verif(n:string):boolean;
var
ok:boolean;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if b<=10 then
begin
convch(b-1,ch);
ok:=n[i] in ['0'..ch[1]];
else
c:=chr(b-1+55);
ok:=n[i] in ['0'..'9','A'..'C'];
end;
until(non ok)or(i=length(n));
verif:=ok;
end;
begin
saisie(n);
verif(n);
end.
Mariem A- Invité
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|