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 ...
Saisir un produit et calculer la valeur du stock de ce produit.
 
 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
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 9 Oct - 13:32 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

PublicitéSupprimer les publicités ?
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Ven 9 Oct - 13:32 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:33 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:33 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant


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

Hors ligne

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

Posté le: Ven 9 Oct - 13:34 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:34 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:34 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:35 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:35 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

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

Posté le: Ven 9 Oct - 13:35 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Ven 9 Oct - 13:37 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

Application 12révision 
{
}
program credit1;
uses wincrt, windos;
type
credit = record
num:integer;
date:record
jj,Mo,An:word;
end;
co_em:integer;
montant:real;
dur:real;
ta_in:real;
end;
fiche=file of credit;
var
f:fiche;
{==============================================================}
procedure creation (var f:fiche);
begin
assign(f,'c:\crédit.dat');
rewrite(f);
end;
{=================================}
procedure saisie (var f:fiche);
var
rps:byte;
e:credit;
x:word;
begin
repeat
with e do
begin
write('donner le numéro : ');
read(num);
getdate(date.an,date.mo,date.jj,x);
writeln('la date est : ',date.jj,' / ',date.mo,' / ',date.an);
write('donner le code d"employé : ');
read(co_em);
write('donner le montant : ');
read(montant);
write('donner la durée : ');
read(dur);
repeat
write('donner le taux d"interet : ');
read(ta_in);
until (ta_in <12) and (ta_in>5);
write(f,e);
write ('voulez vous ajouter 1 autre ? (0/1)');
read(rps);
end;
until rps=0;
close(f);
end;
procedure interet(var f:fiche);
var
e:credit;
begin
{$I-}
reset(f);
if ioresult<>0 then rewrite(f);
{$I+}
while not(eof(f)) do
begin
read(f,e);
if (e.dur>8) and (e.dur<10) then e.ta_in:=e.ta_in + 2
else
if (e.dur>2) and (e.dur<4) then e.ta_in:=e.ta_in - 1;
end;
close(f);
end;
begin
creation(f);
saisie(f);
interet(f);
end.



 Application 13n ! 
program fact_recursif;
uses wincrt;
var n:integer;
function fact(n:integer):longint;
begin
if n=0 then fact:=1
else fact:=n * fact(n-1);
end;
begin
readln (n);
write (fact(n));
end.


 
Revenir en haut
wissem111


Hors ligne

Inscrit le: 26 Oct 2009
Messages: 6
Point(s): 19
Moyenne de points: 0

Posté le: Mar 27 Oct - 12:07 (2009)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Sam 20 Mar - 09:05 (2010)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit. Répondre en citant

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
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:30 (2016)    Sujet du message: Saisir un produit et calculer la valeur du stock de ce produit.

 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ 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