hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Annuaire et enregistrements
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 715
Masculin
Point(s): 5 484
Moyenne de points: 0

Posté le: Dim 20 Déc - 10:08 (2009)    Sujet du message: Annuaire et enregistrements Répondre en citant

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

Code:


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.

Téléchargement : annuair1.zip

 
Revenir en haut
Publicité






Posté le: Dim 20 Déc - 10:08 (2009)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 715
Masculin
Point(s): 5 484
Moyenne de points: 0

Posté le: Sam 22 Mai - 12:27 (2010)    Sujet du message: Annuaire et enregistrements Répondre en citant



 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Dim 10 Oct - 12:59 (2010)    Sujet du message: Annuaire et enregistrements Répondre en citant

Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Sam 23 Oct - 18:12 (2010)    Sujet du message: Annuaire et enregistrements Répondre en citant

Okay Okay Okay Okay Okay Okay   Okay Okay Okay Okay Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:54 (2017)    Sujet du message: Annuaire et enregistrements

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation