hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg 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, 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 ...
Exercice avec correction
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Enregistrements & fichiers
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

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

Posté le: Ven 19 Fév - 13:25 (2010)    Sujet du message: Exercice avec correction Répondre en citant

PublicitéSupprimer les publicités ?
Recherche et affichage des Références et PU des produits à l'exportation


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
nada


Hors ligne

Inscrit le: 31 Oct 2009
Messages: 3
Point(s): 8
Moyenne de points: 0

Posté le: Mer 12 Mai - 21:18 (2010)    Sujet du message: Exercice avec correction Répondre en citant

tunis Arrow Okay

 
Revenir en haut
fred


Hors ligne

Inscrit le: 09 Juin 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 10 Juin - 00:08 (2010)    Sujet du message: Exercice avec correction Répondre en citant

tout simplement Okay

 
Revenir en haut
firasniper


Hors ligne

Inscrit le: 12 Juin 2010
Messages: 5
Point(s): 5
Moyenne de points: 0

Posté le: Jeu 24 Juin - 20:37 (2010)    Sujet du message: Exercice avec correction Répondre en citant

Laughing
thank you very much


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:01 (2016)    Sujet du message: Exercice avec correction

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Enregistrements & fichiers 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