Programme en Pascal
djerni
Messages postés
68
Date d'inscription
Statut
Membre
Dernière intervention
-
djerni Messages postés 68 Date d'inscription Statut Membre Dernière intervention -
djerni Messages postés 68 Date d'inscription Statut Membre Dernière intervention -
Bonjour,aider moi a faire une programmation en pascal qui va me permetre d``enregistrer les nom des personnes et leurs address merci d``avance
bonne annee
bonne annee
A voir également:
- Programme en Pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Programme demarrage windows - Guide
- Mettre en veille un programme - Guide
5 réponses
enfet voila mon progamme:
Ecrire un algorithme qui demande le nom,le prenom,,la boite postale ,la ville ,et la zone de domiciliation a utilisateur et qui lui affiche son adresse
complet obtenue a base de ces element.
@+
Ecrire un algorithme qui demande le nom,le prenom,,la boite postale ,la ville ,et la zone de domiciliation a utilisateur et qui lui affiche son adresse
complet obtenue a base de ces element.
@+
Program PER ;
uses CRT ;
Var n:integer{n:nbre of persons }
begin
{All procedure here}
Procedure Stargivingnames ; {To make the work simple i advice you to use procedure lije this }
Var Tab:arry[1..n])of string ;
a:integer; {nbre names}
begin
Repeat
writeln('Start giving names')
Until a:=n;
.............
.............
...........
Do the same with the adress part .
then put this prosedure to affectiate the name with his adress :
procedure Affe(Tab:arry[1..n]of string ,Tab2[1..n]of string);
Tab3:arry[1..n]of string; {Table will contane the name and the adress }
begin
(Use here a For..To..Do statelentnt to do this job )
.......
You can olso make type to not get confuised with differnt Arry .
Hope you got that
Sea you .
uses CRT ;
Var n:integer{n:nbre of persons }
begin
{All procedure here}
Procedure Stargivingnames ; {To make the work simple i advice you to use procedure lije this }
Var Tab:arry[1..n])of string ;
a:integer; {nbre names}
begin
Repeat
writeln('Start giving names')
Until a:=n;
.............
.............
...........
Do the same with the adress part .
then put this prosedure to affectiate the name with his adress :
procedure Affe(Tab:arry[1..n]of string ,Tab2[1..n]of string);
Tab3:arry[1..n]of string; {Table will contane the name and the adress }
begin
(Use here a For..To..Do statelentnt to do this job )
.......
You can olso make type to not get confuised with differnt Arry .
Hope you got that
Sea you .
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question