Exercices corrigés Pascal

Exercices corrigés PascalConsultez toutes les sources

Nombre d'auteurs : 3, nombre de sources : 49, dernière mise à jour : 6 mars 2008

Sommaire→Utilisation des enregistrements

Annuaire et enregistrements
Vérification d'entrées et unité

Version hors-ligne

Annuaire et enregistrements

Soit la structure Personne schématisée par le nom (chaîne de 30 caractères maximum), le numéro de téléphone (10 caractères maximum), le numéro de carte banquaire (entier non signé).

Ecrire un programme qui permet l'enregistrement de 100 personnes sous forme tabulaire.

Solution : Voir le fichier Annuair1.pas

Annuair1.pas

Cacher/Afficher le codeSélectionnez

program annuaire1;
uses crt;
type
  Personne = record
    nom: string[30];
    telephone: string[10];
    nCarte: word;
  end;
 
var
  Annuaire: array[1..100] of Personne;
  i: integer;
begin
  clrscr;
 
  i := 1;
  while (i <= 100) do
  begin
    case i of
      1: writeln('Entrez les paramètres de la première personne');
      2: writeln('Entrez les paramètres de la seconde personne');
      3..10: writeln('Entrez les paramètres de la ', i, 'ième personne');
    end;
    Write('Nom : ');
    readln(Annuaire[i].nom);
    write('Numero de telephone : ');
    readln(Annuaire[i].telephone);
    write('Numero de carte banquaire : ');
    readln(Annuaire[i].nCarte);
    i := i + 1;
    writeln;
  end;
  writeln('Opération de lecture terminee!!!');
 
  readln;
end.

Créé le 21 juillet 2004 par Giovanny Temgoua

Vérification d'entrées et unité

Ecrire une série de fonctions qui testent si les données entrées sont correctes :

Une fonction pour vérifier que le nom ne contient pas de chiffres
Une autre fonction pour vérifier que le numéro de téléphone ne contient pas de lettres de l'alphabet

Les fonctions évoquées ci-dessus porteront respectivement les noms isString et isNumber.

Indication :

Ecrire des fonctions élémentaires isAlpha et isDigit qui renseignent respectivement si leur argument est une lettre ou un chiffre.

Utiliser les fonctions précédentes pour s'assurer que les données du programme de l'énoncé précédent sont valides avant l'enregistrement.
Vous allez créer une unité contenant les fonctions ci-dessus (appelez-la StrTest) et vous l'inclurez dans le programme précédent.

Solution : Voir le fichier StrTest.pas pour l'unité et le fichier Annuair2.pas

StrTest.pas

Cacher/Afficher le codeSélectionnez

unit strTest;
 
interface
 
function isAlpha(c: char): boolean;
function isDigit(c: char): boolean;
function isString(s: string): boolean;
function isNumber(s: string): boolean;
 
implementation
 
function isAlpha(c: char): boolean;
begin
  if (((ord(c) >= 97) and (ord(c) <= 122)) or ((ord(c) >= 65) and (ord(c) <=
    90))) then
    isAlpha := true
  else
    isAlpha := false;
end;
 
function isDigit(c: char): boolean;
begin
  if ((ord(c) >= 48) and (ord(c) <= 57)) then
    isDigit := true
  else
    isDigit := false;
 
end;
 
function isString(s: string): boolean;
var
  i: integer;
begin
  i := 1;
  while ((i <= length(s)) and isAlpha(s[i])) do
    i := i + 1;
 
  if (i > length(s)) then
    isString := true
  else
    isString := false;
end;
 
function isNumber(s: string): boolean;
var
  i: integer;
begin
  i := 1;
  while ((i <= length(s)) and isDigit(s[i])) do
    i := i + 1;
 
  if (i > length(s)) then
    isNumber := true
  else
    isNumber := false;
end;
 
begin
  (*Pas d'initialisation*)
end.

Annuair2.pas

Cacher/Afficher le codeSélectionnez

program annuaire2;
uses crt, strTest;
type
  Personne = record
    nom: string[30];
    telephone: string[10];
    nCarte: word;
  end;
 
var
  Annuaire: array[1..100] of Personne;
  i: integer;
begin
  clrscr;
 
  i := 1;
  while (i <= 10) do
  begin
    case i of
      1: writeln('Entrez les paramètres de la première personne');
      2: writeln('Entrez les paramètres de la seconde personne');
      3..10: writeln('Entrez les paramètres de la ', i, 'ième personne');
    end;
    repeat
      Write('Nom : ');
      readln(Annuaire[i].nom);
    until isString(Annuaire[i].nom);
 
    repeat
      write('Numero de telephone : ');
      readln(Annuaire[i].telephone);
    until isNumber(Annuaire[i].telephone);
 
    write('Numero de carte banquaire : ');
    readln(Annuaire[i].nCarte);
    i := i + 1;
    writeln;
  end;
  writeln('Opération de lecture terminee!!!');
 
  readln;
end.

Créé le 21 juillet 2004 par Giovanny Temgoua

Version hors-ligne