Probleme d'exécution
hold_on
-
hold_on -
hold_on -
PROGRAM tautogramme;
USES WINCRT;
VAR
ch:string;
function tauto(ch:string):boolean;
var
pc:char ;
i:integer;
t:boolean;
begin
pc:=upcase(ch[i]);
t:=true;
i:=1;
repeat
i:=i+1;
if(ch[i]=' ') then
if(i+1<=length(ch))then
if(upcase(ch[i+1])<>pc)then
t:=false;
until(t=false)or(i=length(ch)-1);
tauto:=t;
end;
BEGIN
readln(ch);
if tauto(ch)then
write('tautogramme')
else
write('non tautogramme');
END.
tauto caused a stack fault in module tauto.Exe at 0001:00:29 qui peut m'aidez ??
USES WINCRT;
VAR
ch:string;
function tauto(ch:string):boolean;
var
pc:char ;
i:integer;
t:boolean;
begin
pc:=upcase(ch[i]);
t:=true;
i:=1;
repeat
i:=i+1;
if(ch[i]=' ') then
if(i+1<=length(ch))then
if(upcase(ch[i+1])<>pc)then
t:=false;
until(t=false)or(i=length(ch)-1);
tauto:=t;
end;
BEGIN
readln(ch);
if tauto(ch)then
write('tautogramme')
else
write('non tautogramme');
END.
tauto caused a stack fault in module tauto.Exe at 0001:00:29 qui peut m'aidez ??
A voir également:
- Probleme d'exécution
- Le service spouleur d'impression local n'est pas en cours d'exécution - Guide
- Net user des erreurs ont affecté l'exécution de la commande - Forum Windows
- Il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). ✓ - Forum Windows 10
- Au démarrage de l’ordinateur, le d' se lance. il permet l’exécution des logiciels applicatifs et gère l’utilisation des ressources matérielles (mémoire, processeur, périphériques). - Forum Alimentation PC
- Problème de périphériques - Forum Pilotes (drivers)
