Programmation pascal
Fermé
back me up
-
23 avril 2007 à 13:25
back me up Messages postés 11 Date d'inscription mercredi 28 mars 2007 Statut Membre Dernière intervention 26 avril 2007 - 26 avril 2007 à 17:10
back me up Messages postés 11 Date d'inscription mercredi 28 mars 2007 Statut Membre Dernière intervention 26 avril 2007 - 26 avril 2007 à 17:10
A voir également:
- Programmation pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Application de programmation - Guide
- Dev-pascal - Télécharger - Édition & Programmation
- Programmation logo tortue télécharger - Télécharger - Études & Formations
2 réponses
piopicolo
Messages postés
1395
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
31 juillet 2023
193
23 avril 2007 à 13:42
23 avril 2007 à 13:42
Tu fais une boucle de 1 à xxx combiné avec un test en if then else
occupé, pas occupé, en attente, en option, etc...
faudrait essayer de bosser un peu
apprendre çà vient en lisant ces cours !!!
A+
occupé, pas occupé, en attente, en option, etc...
faudrait essayer de bosser un peu
apprendre çà vient en lisant ces cours !!!
A+
back me up
Messages postés
11
Date d'inscription
mercredi 28 mars 2007
Statut
Membre
Dernière intervention
26 avril 2007
26 avril 2007 à 17:10
26 avril 2007 à 17:10
merci
mais je ne sais pas comment :
la resrvation avec et sans confirmation
annulation d' une place reserveé
etablissement définitive des places reserveés
remise des cartes d'acces qui ont le ok au niveau de l'aeorport
etablissement de la liste d'attente (pointeur)
::::::::::::::::::::des places libres
remise des cartes d'acces de la liste d'attente
le reste de la liste d'attentessera conservé pour le voyage du lendemain.
regardez comment j'ai commencer:
program avion;
const n=10;
type date =record
j:1..31;
m:1..12
a:integer;
end;
type voyageur =record
nom:string[15];
prenom:string[15];
adresse:string[15];
date-de -nas:date;
date -de- vol :date;
situation:(fumeur,nonfumeur)
end;
type tab:array[1..n] of voyageur;
var
i,j,k:integer;
t1,t2:tab;
begin
for i:=1 to n do
read(t[i].nom);
read (t[i].prenom);
et quand j'arrive d'ecrire read(t[i].date-de-nas);
et compilateur affiche un erreur je ne sais pas pourkoi
merci
read(t[i].adresse
mais je ne sais pas comment :
la resrvation avec et sans confirmation
annulation d' une place reserveé
etablissement définitive des places reserveés
remise des cartes d'acces qui ont le ok au niveau de l'aeorport
etablissement de la liste d'attente (pointeur)
::::::::::::::::::::des places libres
remise des cartes d'acces de la liste d'attente
le reste de la liste d'attentessera conservé pour le voyage du lendemain.
regardez comment j'ai commencer:
program avion;
const n=10;
type date =record
j:1..31;
m:1..12
a:integer;
end;
type voyageur =record
nom:string[15];
prenom:string[15];
adresse:string[15];
date-de -nas:date;
date -de- vol :date;
situation:(fumeur,nonfumeur)
end;
type tab:array[1..n] of voyageur;
var
i,j,k:integer;
t1,t2:tab;
begin
for i:=1 to n do
read(t[i].nom);
read (t[i].prenom);
et quand j'arrive d'ecrire read(t[i].date-de-nas);
et compilateur affiche un erreur je ne sais pas pourkoi
merci
read(t[i].adresse
