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 ...
aidez moi a executer ce programme:
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> BAC-informatique -> Programmes officiels :: Difficultés rencontrées
hg Previous topic :: Next topic   hd
Author Message
sirine jemaa


Offline

Joined: 23 Sep 2011
Posts: 1
Féminin
Point(s): 1
Moyenne de points: 0

Posted: Sat 12 Nov - 16:17 (2011)    Post subject: aidez moi a executer ce programme: Reply with quote

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






Posted: Sat 12 Nov - 16:17 (2011)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
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 -> BAC-informatique -> Programmes officiels :: Difficultés rencontrées 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