Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 4 (Enregistrement et fichiers)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 4 (Enregistrement et fichiers)   Dim 27 Mar - 2:32

Exercice 4 (Enregistrement et fichiers)

Recherche et affichage des Références et PU des produits à l'exportation


Correction de l'exercice

Code:
program produit_export;
uses wincrt;
type produit = record
reference : string[10];
nom : string [50];
pu:real;
quantite:word;
exportation:byte;
end;
tab_prod = array[1..50] of produit;
var tp1 : tab_prod;
n : byte;
procedure saisie(var n:byte);
begin
repeat
readln(n);
until n in [3..50];
end;
procedure remplir(var tp1 : tab_prod; n:byte);
var
i:byte;
begin
for i:=1 to n do
begin
write ('donner la reference : ');
readln (tp1[i].reference);
write ('donner le nom :');
readln (tp1[i].nom) ;
write ('donner le P.U : ');
readln (tp1[i].pu) ;
write ('donner la quantié : ');
readln (tp1[i].quantite);
write ('Es ce que ce produit et à l''export (0 => Non, 1 => Oui : ');
readln (tp1[i].exportation);
end;
end;

procedure affiche(tp1 : tab_prod; n:byte);
var
j:byte;
begin
writeln('LISTE DES PRODUITS A L''EXPORTATIION');
writeln;
writeln('Référence P.U');
writeln('--------- ---');
for j:=1 to n do
with tp1[j] do
begin
if exportation = 1 then writeln(reference,' ',pu:5:3);
end;
end;

begin
saisie(n);
remplir(tp1,n);
affiche(tp1,n);
end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 4 (Enregistrement et fichiers)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2
» حل مشكل أختفاء option de dossier + تفعيل الخاصية

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: