Forum 4SI
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment :
Google Pixel 7 5G – Smartphone 6,3″ OLED ...
Voir le deal
316 €

verif

Aller en bas

verif Empty verif

Message par Mariem A 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

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser