exercices en apscal

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : exercices en apscal

renssali

bonjour, je sollicite votre aide pour 2 exercices en pascal...
j'ai plus ou moins la trame mais ils ne veulent pas fonctionner, l'ordinateur m'indique la faute à la ligne mais je ne la trouve pas car il me met error syntaxe ... voici mes reponses si vous découvrez l'erreur merci d'avance de me la faire parvenir.
exercices 1 Le joueur 2 doit découvrir le nombre du joueur 1 et l'ordinateur donne le nombre d'essai ainsi qu'une grille d'évaluation

program nombre;
var x,b,i,s,a:integer
fin:boolean;
begin
i:=0;
x:=100
writeln ('joueur 1 entre un nombre a');
readkey (a);
begin
i:= i+1;
writeln ('joueur 2 entre un nombre b');
readln (b);
begin
if (b<a) then writenln ('le nombre est b<a<x');
if (b>a) then writeln ('le nombre b<x<i');
end;
if b=a then begin
writeln ('reussi');
end;
writeln ('vs avez essayé ',i,' fois');
if i <5 then writeln (TB');
if i >5 then writeln ('S');
end;
until b=a
end.

et le 2 l'utilisateur rentre un texte et l'ordi doit afficher chaque mot du texte (l'un en dessous de l'autre et donner le nombre de mot)
program texte;
var p,m: string
var z: boolean;
var l,i,x: integer;
begin
writeln ('entrer un texte avec ponctuation adéquate'),
readln (p);
l:= length (p);
x:=1;
for i:= 1 to l do
z:= ''or '.' or ';' or':' or '( )';
if z copy (p,i,1)= ' ' or '.' then
begin
if i>x then writeln ((copy(p,x+1,i-1));
x:=i
end;
end.

merci encore

Publicité

antp

Super Administrateur
Champion des excuses bidons

renssali a écrit :

l'ordinateur m'indique la faute à la ligne

Ça serait utile si tu disais laquelle

Et accessoirement si t'indentais ton code et le mettais dans une balise [code] [ /code] (sans l'espace avant le "/" ) pour le rendre lisible, ça serait bien aussi

Message édité par antp le 13-06-2004 à 21:09:47

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

smilm

renssali a écrit :

bonjour, je sollicite votre aide pour 2 exercices en pascal...
j'ai plus ou moins la trame mais ils ne veulent pas fonctionner, l'ordinateur m'indique la faute à la ligne mais je ne la trouve pas car il me met error syntaxe ... voici mes reponses si vous découvrez l'erreur merci d'avance de me la faire parvenir.
exercices 1 Le joueur 2 doit découvrir le nombre du joueur 1 et l'ordinateur donne le nombre d'essai ainsi qu'une grille d'évaluation

program nombre;
var x,b,i,s,a:integer
fin:boolean;
begin
i:=0;
x:=100
writeln ('joueur 1 entre un nombre a');
readkey (a);
begin ?? Ca begin quoi ca ?
i:= i+1;
writeln ('joueur 2 entre un nombre b');
readln (b);
begin ?? Ca begin quoi ca ?
if (b<a) then writenln ('le nombre est b<a<x');
if (b>a) then writeln ('le nombre b<x<i');
end;
if b=a then begin
writeln ('reussi');
end;
writeln ('vs avez essayé ',i,' fois');
if i <5 then writeln (TB');
if i >5 then writeln ('S');
end;
until b=a
end.
merci encore

pinguin007

a npe error

renssali a écrit :

Code :

program nombre;
var x,b,i,s,a:integer /*il manque le ; et il me semble que la variable s n'est pas utilisée idem pour fin*/
fin:boolean;
begin
i:=0;
x:=100 /*il manque le ; */
writeln ('joueur 1 entre un nombre a');
readkey (a); /* a est un integer je sais pas si ca marche readkey */
begin /*le begin n'a rien a faire ici */
i:= i+1;
writeln ('joueur 2 entre un nombre b');
readln (b);
begin /*le begin n'a rien a faire ici */
if (b<a) then writenln ('le nombre est b<a<x');
if (b>a) then writeln ('le nombre b<x<i');
/* dans tes writeln quand tu écris b<x<i le programe n'affichera pas leur valeur mais la chaine de caractére b<x<i */
end; /*le end n'a rien a faire ici dans la mesure ou les begin avant n'on pas lieu d'etre */
if b=a then begin
writeln ('reussi');
end; /*il n'y a qu'une instruction aprés le THEN donc pas besoin de begin .. end; */
writeln ('vs avez essayé ',i,' fois');
if i <5 then writeln (TB');
if i >5 then writeln ('S');
end; // end; inutile
until b=a /* manque le ; et surtout il n'y a pas de repeat avant */
end.
program texte;
var p,m: string /*il manque le ; et aparement m n'est jamais utilisé*/
var z: boolean;
var l,i,x: integer;
/* note : pas besoin d'ecrire VAR à chaque foi */
begin
writeln ('entrer un texte avec ponctuation adéquate'),/*il manque le ; a la place de , */
readln (p);
l:= length (p);
x:=1;
for i:= 1 to l do
z:= ''or '.' or ';' or':' or '( )'; /* attention si tu ne met pas de begin seule l'instruction z:= ... : sera affecté par la boucle FOR, de plus z:= ... ; ne me parait pas correcte tu veux faire quoi à cette ligne :??: */
if z copy(p,i,1)= ' ' or '.'
/* il manque un truc dans ta boucle IF :
IF condition THEN insctruction_1 ELSE instruction_2 or ici tu as juste IF z et aprés tu apelle une instruction ce qui n'est pas correcte, il manque un THEN */
then begin
/*et donc ici le THEN n'est pas corect dans la mesure ou il aurais du etre avant il devrait y avoir un ELSE à la place */
if i>x then writeln ((copy(p,x+1,i-1));
x:=i /*il manque le ; */
end;
end.

merci encore

edit : grr il prend pas les couleurs

edit n : ca devrait etre bon

edit n+2 : c'est bon

edit n+3 : nouvelles ereurs

Message édité par pinguin007 le 14-06-2004 à 00:52:58

---------------
LoD 4 ever && PWC spirit|Le topak de l'iMP-450|inDATOUNEwe trust

tet2neu

emmerdeur

Code :

program nombre;
var x,b,i,s,a:integer
fin:boolean;
begin
i:=0;
x:=100
writeln ('joueur 1 entre un nombre a');
readkey (a);
begin
i:= i+1;
writeln ('joueur 2 entre un nombre b');
readln (b);
/*un readkey pour le 'a' et un readln pour le 'b', pourquoi cette différence ? */
begin
if (b<a) then writenln ('le nombre est b<a<x');
if (b>a) then writeln ('le nombre b<x<i');
/*A quoi sert le 'x' ? l'utilisateur ne sait pas à quoi correspond ton 'x'. Et que doit-il se passer si le nombre entré est > 100 ? */
end;
if b=a then begin
writeln ('reussi');
end;
writeln ('vs avez essayé ',i,' fois');
/* il n'y a ni boucle ni récursivité, ton 'i' sera toujours égal à 1 */
if i <5 then writeln (TB');
if i >5 then writeln ('S');
end;
until b=a /* tiens j'ai dû louper un truc :D */
end.

Message édité par tet2neu le 14-06-2004 à 00:42:29

tet2neu

emmerdeur

antp a écrit :

Ça serait utile si tu disais laquelle

+1
mais de toute façon comme le faisait remarquer pinguin007, des syntax error il y en a à la pelle dans ce code :sarcastic:

FORUM HardWare.fr

Programmation

Delphi/Pascal

exercices en apscal

Sujets relatifs
svp je voudrais avoir des exercices sur les boucles en pascal merci.	debutant - exercices
Tutoriels et exercices CSS	quelqu'un connait un site d'exercices corrigés en C++ ?
des exercices didacticiel en C, vous en avez`??	[Assembleur]Cherche site proposant des exercices
connaissez pas des exercices résolus en vc++(relations /e classes)????	exercices Java !!
[PERL] cherche des exercices	[java] recherche des exercices sur les portées
Plus de sujets relatifs à : exercices en apscal

Page générée en 0.061 secondes