verif

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

verif

Message par Mariem A le Dim 21 Mar - 14:47

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.

Mariem A
Invité


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 ne pouvez pas répondre aux sujets dans ce forum