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 ...
bac tp 2008
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
sallem


Offline

Joined: 25 Nov 2008
Posts: 6
Masculin
Point(s): 83
Moyenne de points: 0

Posted: Tue 21 Apr - 15:13 (2009)    Post subject: bac tp 2008 Reply with quote

svp, aidez moi, je veut la correction des sujets bac tp 2008 (22mai 2008 à 9h) et pourkoi pas pour les autres sujets.
et merci bcq.


 
Revenir en haut
Publicité






Posted: Tue 21 Apr - 15:13 (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 22 Apr - 16:51 (2009)    Post subject: bac tp 2008 Reply with quote

program Bac_08_9heure;
uses wincrt;
type
nombre=record
x:integer;
x2,x8,x16:string[30];
end;
f_nbr=file of integer;
f_nombre=file of nombre;
var
n:integer;
f1:f_nbr;
f2:f_nombre;
procedure creation(var f1:f_nbr;var f2:f_nombre);
begin
assign(f1,'c:\bac2009\079888\nombre.dat');
rewrite(f1);
assign(f2,'c:\bac2009\079888\nbr_conv.dat');
rewrite(f2);
end;
procedure saisie(var n:integer);
begin
repeat
writeln('donner la valeur de n');
readln(n);
until (n>5)and(n<100);
end;
procedure remplit_f1(var f1:f_nbr);
var
x,i,n:integer;
begin
reset(f1);
for i:= 1 to n do
begin
repeat
writeln('donner l"entier n°',i);
readln(x);
until (x<32000);
write(f1,x);
end;
close(f1);
end;
function conversion(x,b:integer):string;
var
ch2,ch:string;
r:integer;
begin
ch:=' ';
repeat
r:=x mod b;
x:=x div b;
if n in [0..9] then
str(r,ch2)
else
ch2:=chr(r+55);
insert(ch2,ch,1);
until x=0;
conversion:=ch;
end;
procedure remplir_f2(var f2:f_nombre);
var
w:nombre;
begin
reset(f1);
reset(f2);
while not (eof(f1))do
begin
with w do
begin
read(f1,x);
x2:=conversion(x,2);
x8:=conversion(x,8);
x16:=conversion(x,16);
writeln(x,' ',x2,' ',x8,' ',x16);
end;
write(f2,w);
end;
end;
begin
creation(f1,f2);
saisie(n);
remplit_f1(f1);
remplir_f2(f2);
close(f1);
close(f2);
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Sun 5 Dec - 10:29 (2010)    Post subject: bac tp 2008 Reply with quote

Arrow Okay

 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯) 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