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 ...
bac tp 2008
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
sallem


Hors ligne

Inscrit le: 25 Nov 2008
Messages: 8
Masculin
Point(s): 85
Moyenne de points: 0

Posté le: Mar 21 Avr - 15:13 (2009)    Sujet du message: bac tp 2008 Répondre en citant

PublicitéSupprimer les publicités ?
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 22 Avr - 16:51 (2009)    Sujet du message: bac tp 2008 Répondre en citant

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

Hors ligne

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

Posté le: Dim 5 Déc - 10:29 (2010)    Sujet du message: bac tp 2008 Répondre en citant

Arrow Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:04 (2016)    Sujet du message: bac tp 2008

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