hg S’enregistrer 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 Index du Forum

hg Revision tunisie scolaire 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 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
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
A7M3D92
recent membre
recent membre

Hors ligne

Inscrit le: 20 Oct 2009
Messages: 39
Point(s): 49
Moyenne de points: 0

Posté le: Mar 22 Déc - 09:37 (2009)    Sujet du message: aide program pascal Répondre en citant

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é






Posté le: Mar 22 Déc - 09:37 (2009)    Sujet du message: Publicité

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

Hors ligne

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

Posté le: Mer 23 Déc - 07:58 (2009)    Sujet du message: aide program pascal Répondre en citant

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

 
Revenir en haut
A7M3D92
recent membre
recent membre

Hors ligne

Inscrit le: 20 Oct 2009
Messages: 39
Point(s): 49
Moyenne de points: 0

Posté le: Mer 23 Déc - 18:56 (2009)    Sujet du message: aide program pascal Répondre en citant

salut
merci de votre attention
par ici


http://www.mediafire.com/?e0nn2mthmen


 
Revenir en haut
A7M3D92
recent membre
recent membre

Hors ligne

Inscrit le: 20 Oct 2009
Messages: 39
Point(s): 49
Moyenne de points: 0

Posté le: Sam 26 Déc - 00:15 (2009)    Sujet du message: aide program pascal Répondre en citant

ok j'ai trouvé la solution

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 18:43 (2017)    Sujet du message: aide program pascal

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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