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 ...
aide program pascal
 
 
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
A7M3D92
recent membre
recent membre

Offline

Joined: 20 Oct 2009
Posts: 26
Point(s): 35
Moyenne de points: 0

Posted: Tue 22 Dec - 09:37 (2009)    Post subject: aide program pascal Reply with quote

SALéM
Code:

[font=Verdana, Arial, Helvetica, sans-serif] 
[code] program rabia;



[/code][code]

[left]uses wincrt; type eleve=record cin:string[8]; nom:string[40]; pre:string[40]; vil:string[20]; fac:string[20]; foy:string[20]; end; var el:eleve; f:text; code:string;  procedure creation(var f:text) ; begin assign(f,'c:\rabi3.txt'); rewrite(f); end;  procedure securite(code:string); begin writeln('donner le code de securite'); readln(code); if code <> 'rabi3smail' then donewincrt; end;  procedure remplir(var f:text); var rep:char; begin repeat with el do begin writeln(' CIN : '); read(cin); writeln('nom : '); read(nom); writeln('prenom : '); read(pre); writeln('ville : '); read(vil); writeln('faculte : '); read(fac); writeln('foyer : '); read(foy); end; reset(f); writeln(f,el); repeat writeln('autre eleve O/N'); rep:=readkey; until upcase(rep) in ['O','N']; until upcase(rep) ='N';  end;        begin creation(f); securite(code); remplir(f);  end. [/left]


[/code]
 
[code]
 



[/code]
[/font]


Code:


[code][left]program rabia; uses wincrt; type eleve=record cin:string[8]; nom:string[40]; pre:string[40]; vil:string[20]; fac:string[20]; foy:string[20]; end; var el:eleve; f:text; code:string;  procedure creation(var f:text) ; begin assign(f,'c:\rabi3.txt'); rewrite(f); end;  procedure securite(code:string); begin writeln('donner le code de securite'); readln(code); if code <> 'rabi3smail' then donewincrt; end;  procedure remplir(var f:text); var rep:char; begin repeat with el do begin writeln(' CIN : '); read(cin); writeln('nom : '); read(nom); writeln('prenom : '); read(pre); writeln('ville : '); read(vil); writeln('faculte : '); read(fac); writeln('foyer : '); read(foy); end; reset(f); writeln(f,el); repeat writeln('autre eleve O/N'); rep:=readkey; until upcase(rep) in ['O','N']; until upcase(rep) ='N';  end;        begin creation(f); securite(code); remplir(f);  end. [/left]
[/code][code]
[left]
[/code] [/left]


 
Revenir en haut
Publicité






Posted: Tue 22 Dec - 09:37 (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: Wed 23 Dec - 07:58 (2009)    Post subject: aide program pascal Reply with quote

c'est quoi ca  Neutral Neutral Neutral svp repeter de maitre l'exercice en mode simple

 
Revenir en haut
A7M3D92
recent membre
recent membre

Offline

Joined: 20 Oct 2009
Posts: 26
Point(s): 35
Moyenne de points: 0

Posted: Sat 26 Dec - 00:15 (2009)    Post subject: aide program pascal Reply with quote

ok j'ai trouvé la solution

 
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