Programme en Pascal
Fermé
djerni
Messages postés
68
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2009
-
3 janv. 2008 à 18:52
djerni Messages postés 68 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 13 avril 2009 - 9 janv. 2008 à 16:52
djerni Messages postés 68 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 13 avril 2009 - 9 janv. 2008 à 16:52
A voir également:
- Programme en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
- Programme démarrage windows 10 - Guide
- Fichier ouvert dans un autre programme - Guide
5 réponses
plorytriass
Messages postés
17
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
21 décembre 2008
10
7 janv. 2008 à 23:00
7 janv. 2008 à 23:00
Pascal est en anglais comment tu ne peut pas comprendre le programme .
djerni
Messages postés
68
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2009
6
9 janv. 2008 à 16:52
9 janv. 2008 à 16:52
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.
@+
plorytriass
Messages postés
17
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
21 décembre 2008
10
6 janv. 2008 à 09:43
6 janv. 2008 à 09:43
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 .
djerni
Messages postés
68
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2009
6
7 janv. 2008 à 16:46
7 janv. 2008 à 16:46
desole mon frr j ne comprend l`anglais
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
djerni
Messages postés
68
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
13 avril 2009
6
9 janv. 2008 à 16:49
9 janv. 2008 à 16:49
enfet voila mon progamme:
Ecrire un algorithme qui 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 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.
@+
