J'ai du mal à résoudre cet exercice en pascal

Résolu/Fermé
karmouss - 21 avril 2012 à 22:40
nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 - 22 avril 2012 à 17:58
Bonjour,
Pour certain ça va paraître banal mais pour moi c'est vraiment un dilemme,
bon voilà l'exercice :
Établir la grille d'analyse, l'algorithme et la traduction pascal du programme Diffpd qui lit une chaîne de caractères, calcule et affiche le caractère correspondant au code ASCII égal à la valeur absolue de la différence entre le premier caractère et le dernier caractère de cette chaîne.
Tout d'abord j'ai pensé à utiliser la commande copy(ch,1,1) pour le premier caractère mais pour le dernier je ne sais pas quoi faire, je répète ça peut paraître vraiment futile pour certain donc venez moi en aide... mon examen c'est cette semaine...
merci.


A voir également:

1 réponse

nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 138
22 avril 2012 à 13:53
Copy? Mais pourquoi donc faire? Les caractères sont accessibles individuellement de la même manière que les octets d'un tableau, et de la même façon "length" donne la taille...
Ainsi tu auras le denier caractère ainsi: Char:= Chaine[Length(Chaine)];
3
?? pardon mais j'ai pas du tout compris bon dans l'exercice il donne un exemple et le voici :
si la chaîne saisit est "Atef" le code ASCII de "A" est 65 celui de "f" est 102
|65-102|=35 ; le caractère ayant le code ASCII 35 est "%" sera affiché.
donc je ne vois pas ce que tu veux dire, je pensais que length donnait le nombre de lettre dans une chaine, non ??
0
nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 138
Modifié par nicocorico le 22/04/2012 à 15:11
Ouii donc il suffit de faire Diff:= abs(Integer(Chaine[01]) - Integer(Chaine[Length(Chaine)]));
0
ah oui j'ai compris maintenant !! désolé j'avais pas capté tout de suite merci infinimment :D
0
nicocorico Messages postés 799 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 3 juillet 2018 138
22 avril 2012 à 17:58
Pas de soucis.
0