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 ...
aidez moi a executer ce programme:
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> BAC-informatique -> Programmes officiels :: Difficultés rencontrées
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
sirine jemaa


Hors ligne

Inscrit le: 23 Sep 2011
Messages: 1
Féminin
Point(s): 1
Moyenne de points: 0

Posté le: Sam 12 Nov - 16:17 (2011)    Sujet du message: aidez moi a executer ce programme: Répondre en citant

PublicitéSupprimer les publicités ?
program exercice ;
uses wincrt ;
type
eleve= record
mat:string [6];
np:string[40];
dc,ds,dtp:real;
end;
classe =file of eleve ;
var
n:integer;
fd:classe;
ft,fi,fs:text ;


procedure creation (var fd:classe; var ft,fs,fi:text);
begin
assign (fd,'C:\plus3\bacsi\classe.dat');
rewrite (fd);
assign (ft,'C:\plus3\bacsi\moy.txt');
rewrite (ft);
assign (fs,'C:\plus3\bacsi\sup.txt');
rewrite (fs);
assign (fi,'C:\plus3\bacsi\inf.txt');
rewrite (fi);
end;


procedure saisie (var n:integer);
begin
repeat 
write ('donner le nombre d eleve '); readln (n) ;
 until n>=1;


 end;


procedure remplir (var fd:classe; n:integer);
var
e:eleve;
i: integer;
begin
 for i:=1 to n do
 begin
 with e do
 begin  
 writeln ('saisir le matricule '); readln(mat);
  writeln ('saisir le nom et le prenom d eleve '); readln(np);
   writeln ('saisir la note de devoir de controle'); readln(dc);
    writeln ('saisir la note de devoir de TP '); readln(dtp);
      writeln ('saisir la note de devoir de synthese '); readln(ds);
      end;
    write (fd,e);
    end;
    end;
 function existe(m:string; var fd:classe ):boolean;
 var
 r:boolean ;
 e:eleve ;
 begin
 r:= false ;
 reset (fd);
 while (not eof (fd)) and (r=false)do
 begin
 read (fd,e);
 if( e.mat =m) then r:=true ;
 existe := r;
 end;
 end;
 procedure corriger (var fd: classe; n :integer);
 var
 e1,e2:eleve;
 i:integer ;
 m:string[6] ;
 begin
 reset (fd);
 for i:=1 to n-1 do
 read (fd,e1);
 while not eof (fd) do 
 begin
 read (fd,e2);
  if (e1.mat= e2.mat) then
  repeat
  write ('saisir une nouvelle matricule svp'); readln (m);
  until existe (m,fd)=false;
  e2.mat := m;
  seek (fd,filepos(fd)-1);
  end;
  write(fd,e2)  ;
  seek(fd,i);
  end;


 procedure former (var ft:text; var fd:classe);
 var
 e:eleve;
 moy:real;
 ch:string;
 l:string;
begin
reset (fd);
while not eof(fd) do
begin
l:='';
read (fd,e);
with e do
begin 
moy := (dc+dtp+(ds*2))/4;
str (moy,ch);
l:=mat+' '+np+' '+ch;
end;
writeln (ft,l);
end;
end;


procedure eclater (var ft,fs,fi:text);
var
l,ch1,ch:string;
o:integer;
d:real ;


begin
reset (ft);
while not eof(ft) do
begin
readln (ft,l);
ch:=l;
delete(ch,pos(' ',ch),1);
ch1:=copy(ch,pos(' ',ch)+1,length(ch)-pos(' ',ch));
val (ch,d,o);
if d>=10 then
writeln (fs,l)
else
writeln (fi,l);
end;
end;




   begin
   creation (fd,ft,fs,fi);
   saisie (n);
   remplir(fd,n);
   corriger (fd,n);
   former(ft,fd);
   eclater (ft,fs,fi);
   close (fd);
   close (ft) ;
   close (fs);
   close (fi);
   end. 


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:36 (2016)    Sujet du message: aidez moi a executer ce programme:

 
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 -> BAC-informatique -> Programmes officiels :: Difficultés rencontrées 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