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 ...
BESOIN D'AIDE DES AMIS
 
 
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 -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
redouane


Hors ligne

Inscrit le: 03 Juin 2012
Messages: 2
Masculin
Point(s): 2
Moyenne de points: 0

Posté le: Dim 3 Juin - 17:57 (2012)    Sujet du message: BESOIN D'AIDE DES AMIS Répondre en citant

PublicitéSupprimer les publicités ?
program cosmet;


uses wincrt;

type

enregist=record

ref:string[4];
lib:string[30];
qte,pu:real;
end;

var
k,f:file of enregist;
enr:enregist;
rep:char;
xref,datt:string;
trouv,ch:integer;
mt,xqte:real;
x:word;


procedure creat;
begin

assign(f,'c:\cosma\cosmet.don');
rewrite(f);
repeat
write('entrer la reference:');readln(enr.ref);
write('entrer le libelle:');readln(enr.lib);
write('entrer la qte:');readln(enr.qte);
write('entrer le prix unitaire:');readln(enr.pu);
write(f,enr);
write('ya t-il autre produit(o/n):');readln(rep);
until (rep='N') or (rep='n');
close(f);
end;
procedure ajout;

begin
assign(f,'c:\cosma\cosmet.don');
reset(f);
while EOF (f) do
begin
read(f,enr);
end;
repeat

write('entrer la reference:');readln(enr.ref);
write('entrer le libelle:');readln(enr.lib);
write('entrer la qte:');readln(enr.qte);
write('entrer le prix unitaire:');readln(enr.pu);
write(f,enr);
write('ya t-il autres produits a ajouter(o/n):');readln(rep);
until (rep='N') or (rep='n');
close(f);
end;

procedure recher;

begin
assign(f,'c:\cosma\cosmet.don');
reset(f);
write('entrer la reference du produit rechercher:');readln(xref);
trouv:=0;
while EOF (f) do
begin
read(f,enr);
if xref=enr.ref then
begin
trouv:=1;
writeln('|',xref,'|',enr.lib,'|',enr.qte,'|',enr.pu,'|');
readln;
end;
if trouv=0 then
begin
writeln('la reference',xref ,'non existante');
readln;
end;
close(f);
end;
end;

procedure modif;
begin
assign(f,'c:\cosma\cosmet.don');
reset(f);
write('entrer la reference du produit a modifier:');readln(xref);
trouv:=0;
while EOF (f) do
begin
read(f,enr);
if xref=enr.ref then
begin
trouv:=1;
writeln('|',enr.ref,'|',enr.lib,'|',enr.qte,'|',enr.pu,'|');
write('entrer la nouvelle qte:');readln(xqte);
seek (f,x-1);
enr.qte:=xqte;
write(f,enr);
end;
end;
if trouv=0 then
begin
writeln('la reference',xref ,'non existante');
readln;
end;
close(f);
end;

procedure supp;
begin
write('entrer la reference du produit a supprimer:');readln(xref);
assign(f,'c:\cosma\cosmet.don');
assign(k,'c:\cosma\cosTMP.don');
reset(f);
rewrite(k);
trouv:=0;
while EOF (f) do
begin
read(f,enr);
if xref<> enr.ref then
trouv:=1;
begin
write(k,enr);
end;
end;
if trouv=0 then
begin
writeln('la reference',xref ,'non existante');
end;
close(f);
close(k);
erase(f);
rename(k,'c:\cosma\cosmet.don');
end;

procedure etat;
begin
assign(f,'c:\cosma\cosmet.don');
reset(f);
write('entrer la date:');readln(datt);
writeln('|refrence|designation|qte|pu|montant|');
while EOF (f) do
begin
read(f,enr);
mt:=enr.qte*enr.pu;
writeln('|',xref,'|',enr.lib,'|',enr.qte,'|',enr.pu,'|',mt,'|');
end;
close(f);
end;

begin
repeat

writeln('************************');
writeln('*********menu***********');
writeln('       1-creat          ');
writeln('       2-ajout          ');
writeln('       3-recher         ');
writeln('       4-modif          ');
writeln('       5-supp           ');
writeln('       6-etat           ');
writeln('       7-fin            ');

write('entrer votre choix[1..7]:');readln(ch);
if ch=1 then creat;
if ch=2 then ajout;
if ch=3 then recher;
if ch=4 then modif;
if ch=5 then supp;
if ch=6 then etat;
until ch=7;
end.
_________________
slt je cherche des amis je veux je ss nouveau étudiant de programmation et j'ai besoin d'aide et merci a tous


 
Revenir en haut
redouane


Hors ligne

Inscrit le: 03 Juin 2012
Messages: 2
Masculin
Point(s): 2
Moyenne de points: 0

Posté le: Dim 3 Juin - 18:00 (2012)    Sujet du message: BESOIN D'AIDE DES AMIS Répondre en citant

ce programme me donne: runtime error 5 at 0001:002E.                      TURBO PASCAL
_________________
slt je cherche des amis je veux je ss nouveau étudiant de programmation et j'ai besoin d'aide et merci a tous


 
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: Lun 4 Juin - 12:38 (2012)    Sujet du message: BESOIN D'AIDE DES AMIS Répondre en citant

Tu na pas creer un dosier sur le c:    Smile
c:\cosma\


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:04 (2016)    Sujet du message: BESOIN D'AIDE DES AMIS

 
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 -> Aidez-moi 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