exercice sur les tableaux

Aller en bas

exercice sur les tableaux

Message par Admin le 18th Novembre 2008, 23:37

Écrire un programme en pascal qui permet de remplir un tableau de 20 caractères et d'afficher les voyelles et le code ASCII des consonnes.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

voici une solution et vous pouver proposer d'autres...

Message par Admin le 18th Novembre 2008, 23:50

program tableau;
{clause utilisée pour l'affichage sous windows}
uses wincrt;
{dans cette clause on déclare les nouveaux types comme le type énuméré , intervalle ou tableau}
type
tab=array[1..20] of char;{dans cette clause on déclare les nouveaux objets}
var
t:tab;
i:integer {le i est un compteur de type scalaire (entier) utiliser dans la booucle pour}
begin
for i:=1 to 20 do
begin
write ('donner l''element N°[ ',i,' ] : ');
readln(t[i]);
if upcase(t[i]) in ['A','E','O','I','U','Y'] then
write (' ',t[i])
else
write (' ',ord(t[i]));
end;
end.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum