hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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 ...
Saisir un produit et calculer la valeur du stock de ce produit.
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:32 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 1


{CH1 - Les enregistrements activité n°2}
{Saisir un produit et calculer la valeur du stock de ce produit}
{ valeur du stock = quantité * PU}
{Si le produit n'existe pas en stock afficher un message }

program fiche_produit;
uses wincrt;
type produit = record
reference : string[10];
nom : string [50];
pu:real;
quantite:word;
exportation:byte;
end;
var p1 : produit;
begin
write ('donner la reference : ');
readln (p1.reference);
write ('donner le nom :');
readln (p1.nom) ;
write ('donner le P.U : ');
readln (p1.pu) ;
write ('donner la quantié : ');
readln (p1.quantite);
write ('Es ce que ce produit et à l''export (0 => Non, 1 => Oui : ');
readln (p1.exportation);

if p1.quantite = 0 then write ('le produit est indispo pour le moment !')
else write (p1.quantite *p1.pu:5:3,' DT');
end.
 


 
Revenir en haut
Publicité






Posted: Fri 9 Oct - 13:32 (2009)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:32 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 2   
{CH1 - Les enregistrements activité n°3}
{Saisie de n produits }
{ 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
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:33 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 3 création & écriture  
{--------- *************-----------}
{création et écriture dans un fichier}
program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}
var eleve1 : f_eleve; {instance de f_eleve}
ch : string;
begin
assign(eleve1,'c:\fich_el.dat'); {associer nom logique du fichier au nom physique}
rewrite(eleve1); {Ouvrir et écrire dans le fichier}
Readln(ch);
writeln('Le fichier a été crée ! ');
write(eleve1,ch);

close(eleve1);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:33 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote


Application 4 Lecture 
{--------- -----------}
{Ouverture et lecture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}
var eleve1 : f_eleve; {instance de f_eleve}
ch : string;
chemin : string;
begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);
reset(eleve1);{Ouvrir et remettre à zéro le pointeur}
writeln('Contenu du fichier ',chemin);
while not(eof(eleve1)) do
begin
read(eleve1,ch);
writeln('ligne n°',filepos(eleve1),' : ',ch);
end;
close(eleve1);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:34 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 5 ajout 
{--------- -----------}
{Ouverture et ajout dans le fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}
var eleve1 : f_eleve; {instance de f_eleve}
ch : string;
begin

assign(eleve1,'c:\fich_el.dat');
reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

{lire toutes lignes juste pour attedre la dernière }
{Ce ci nous permettra de faire l'ajout d'une valeur}
while Not(eof(eleve1)) do
begin
read(eleve1,ch);
end;
read(ch);
write(eleve1,ch);
writeln('Ajout effectué avec succès');
close(eleve1);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:34 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 6 fichier de donnée - accès séquentiel  
{CH1 - Les fichiers de données - activité n°5}
{type d'accès : séquentiel}
program ficher_produit;
uses wincrt;
type produit = record
reference : string[10];
nom : string [50];
pu:real;
quantite:word;
exportation:byte;
end;
f_prod = file of produit;
var
fp1 : f_prod;
procedure creation (var fp1:f_prod);
begin
assign(fp1,'c:\fp.dat');
rewrite(fp1);
end;
procedure saisie (var fp1:f_prod);
var
p : produit;
rep : char;
begin
repeat
with p do
begin
write ('donner la reference : ');
readln (reference);
write ('donner le nom :');
readln (nom) ;
write ('donner le P.U : ');
readln (pu) ;
write ('donner la quantié : ');
readln (quantite);
write ('Es ce que ce produit et à l''export (0 => Non, 1 => Oui : ');
readln (exportation);
end;
write(fp1,p);
writeln('Voulez vous saisir un nouveau produit (O / N) : ');
readln(rep)
until (rep = 'N') or (rep = 'n');
writeln('Le fichier a été crée avec succès !');
close(fp1);
end;
function nbr_prod (var fp1:f_prod):byte;
var
p :produit;
cpt:byte;
begin
reset(fp1);
cpt:=0;
while not(eof(fp1)) do
begin
read(fp1,p);
if p.pu <10 then inc(cpt,1);
end;
nbr_prod:=cpt;
end;
{************* PP ************* }
begin
creation (fp1);
saisie (fp1);
write('Nombre de produit dont le PU < 10 est : ',nbr_prod(fp1));
close (fp1);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:34 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 7 Accès Direct 
{--------- -----------}
{Ouverture et accès directe pour lire une valeur
à partir d'un fichier de données }
program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}
var
eleve1 : f_eleve; {instance de f_eleve}
num : byte;
procedure ouvrir(var eleve1:f_eleve);
begin
assign(eleve1,'c:\fich_el.dat');
{$I-}
reset(eleve1);
If IOresult <> 0 then Rewrite(eleve1);
{$I+}
end;

procedure saisie(var num:byte);
begin
repeat
writeln('entrer le numéro de l''élève à supprimé : (0 --> ',filesize(eleve1)-1,')');
readln(num);
until num in [0..filesize(eleve1)-1];
end;
procedure recherche(var eleve1:f_eleve;num:byte);
var
ch : string;
begin
seek(eleve1,num); {récuperation du nom de l'élève recherché}
read(eleve1,ch);
writeln('l''élève numéro ',num,' est : ',ch);
close(eleve1);
end;
begin
ouvrir(eleve1);
saisie(num);
recherche(eleve1,num);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:35 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 8 suppression Directe 
{--------- -----------}
{Ouverture et accès directe à une valeur dans un fichier de données
à fin de la supprimer. €
cas ou les valeurs ne sont pas triées}
program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}
var
eleve1 : f_eleve; {instance de f_eleve}
rang, p_fin : byte;
procedure ouvrir(var eleve1:f_eleve);
var
chemin : string;
begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);
reset(eleve1);
end;
procedure saisie(var rang:byte;p_fin:byte);
begin
repeat
writeln('entrer le rang de l''élève à supprimé : (0 --> ',p_fin,')');
readln(rang);
until rang in [0..p_fin];
end;
procedure suppression(var eleve1:f_eleve;rang:byte;p_fin:byte);
var
ch : string;
begin
seek(eleve1,p_fin); {récuperation de la dernière valeur du fichier}
read(eleve1,ch);
seek(eleve1,rang); {écraser la valeur à supprimée par la dernière valeur}
write(eleve1,ch);
seek(eleve1,p_fin); {tronquer le fichier à partir de la dernière valeur}
truncate(eleve1);
end;
begin
ouvrir(eleve1);
p_fin := filesize(eleve1)-1;
saisie(rang,p_fin);
suppression(eleve1,rang,p_fin);

write('L''enregistrement n° : ',rang,' a été supprimé avec succès !');
close(eleve1);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:35 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 9 Rename 
{--------- -----------}
{Renommer un fichier "nom_physique" }
program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}
var
eleve1 : f_eleve; {instance de f_eleve}
begin
{$I-}
assign(eleve1,'c:\fich_el.dat');
rename(eleve1,'c:\f2.dat');
If IOResult <>0 then write('nouveau nom invalide ou ancien nom introuvable !')
else write('**Le fichier a bien été renommer**');
{$I+}
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 9 Oct - 13:35 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Application 10 Erase 
{--------- -----------}
{Suppression d'un fichier physique
pas de récupération à partir de la corbeille !}
program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}
var
eleve1 : f_eleve; {instance de f_eleve}
num : byte;
begin
assign(eleve1,'c:\f2.dat');
{$I-}
reset (eleve1);
erase(eleve1);
If IOresult <> 0 then write('Le fichier est inexistant !')
else write('#Le fichier a été supprimé #');
{$I+}
end.
 

 Application 11fichiers texte 
{fichiers texte
Copier les lignes du fichier original
dans un deuxième fichier à créer }

program fichier_text;
uses wincrt;
var
f1,f2:text;
ch,ch2:string;
c:integer;
begin
assign(f1,'c:\ficheoriginale.txt');
rewrite(f1);
assign(f2,'c:\fichcopi.txt');
rewrite(f2);
writeln ('donner le ligne');
readln(ch);
writeln(f1,ch) ;

reset (f1);
c:=1;
while not (eof(f1)) do
begin
readln(f1,ch);
str(c,ch2);
writeln (f2,ch2,' ',ch);
c:=c+1;
end;
close(f1);
close(f2);
end.


 
Revenir en haut
wissem111


Offline

Joined: 26 Oct 2009
Posts: 5
Point(s): 17
Moyenne de points: 0

Posted: Tue 27 Oct - 12:07 (2009)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

Okay
Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay

merci


 
Revenir en haut
r.nsiri
recent membre
recent membre

Offline

Joined: 09 Jan 2009
Posts: 231
Masculin
Point(s): 273
Moyenne de points: 0

Posted: Sat 20 Mar - 09:05 (2010)    Post subject: Saisir un produit et calculer la valeur du stock de ce produit. Reply with quote

merciiiiiiiiiiiii  Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation