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 ...
BESOIN D'AIDE DES AMIS
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Aidez-moi
hg Previous topic :: Next topic   hd
Author Message
redouane


Offline

Joined: 03 Jun 2012
Posts: 2
Masculin
Point(s): 2
Moyenne de points: 0

Posted: Sun 3 Jun - 17:57 (2012)    Post subject: BESOIN D'AIDE DES AMIS Reply with quote

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
Publicité






Posted: Sun 3 Jun - 17:57 (2012)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
redouane


Offline

Joined: 03 Jun 2012
Posts: 2
Masculin
Point(s): 2
Moyenne de points: 0

Posted: Sun 3 Jun - 18:00 (2012)    Post subject: BESOIN D'AIDE DES AMIS Reply with quote

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

Offline

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

Posted: Mon 4 Jun - 12:38 (2012)    Post subject: BESOIN D'AIDE DES AMIS Reply with quote

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


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