Pk mon programme ne marche pas?
laylana
-
KX Messages postés 19031 Statut Modérateur -
KX Messages postés 19031 Statut Modérateur -
Bonjour,
J'ai fais une programme en Pascal permettant d'afficher une chaine ch, non vide et de taille maximale = 24, sous la forme d'un triangle suivant le modèle exprimé dans l'exemple.
Exemple :
Ch = ''INFO''
L'ordinateur l'affiche comme suit :
I
IN
INF
INFO
Program Affiche_tr;
Uses Wincrt;
Var s:string;
L:integer;
Begin
Write ('saisir une chaine non vide: ');
Readln (s);
L:=length(s);
If length (s)<>0 Then
Readln (copy (s, 1, L-1) )
Write (s)
end,
End.
Quelqu'un peux m'aider à trouver ma faute?
J'ai fais une programme en Pascal permettant d'afficher une chaine ch, non vide et de taille maximale = 24, sous la forme d'un triangle suivant le modèle exprimé dans l'exemple.
Exemple :
Ch = ''INFO''
L'ordinateur l'affiche comme suit :
I
IN
INF
INFO
Program Affiche_tr;
Uses Wincrt;
Var s:string;
L:integer;
Begin
Write ('saisir une chaine non vide: ');
Readln (s);
L:=length(s);
If length (s)<>0 Then
Readln (copy (s, 1, L-1) )
Write (s)
end,
End.
Quelqu'un peux m'aider à trouver ma faute?
A voir également:
- Pk mon programme ne marche pas?
- Programme demarrage windows - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
- Comment fermer un programme qui ne répond pas - Guide
- Programme word gratuit - Guide
- Message programmé - Guide
1 réponse
Je te l'ai déjà dit l'autre jour, les points-virgules ne sont pas optionnels, il doit y en avoir entre chaque instruction.
Ensuite Readln (copy (s, 1, L-1) ) ça veut rien dire !! avec writeln ça serait mieux.
Enfin, tu essayes de faire une boucle avec un if, il y a peu de chances que ça marche !
De plus, il y a un end qui se promène alors qu'il n'y a pas de begin avant...
Ensuite Readln (copy (s, 1, L-1) ) ça veut rien dire !! avec writeln ça serait mieux.
Enfin, tu essayes de faire une boucle avec un if, il y a peu de chances que ça marche !
De plus, il y a un end qui se promène alors qu'il n'y a pas de begin avant...
