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 ...
LES ALGORITHMES D’ARITHMETIQUE
 
 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
fathik2000


Hors ligne

Inscrit le: 04 Fév 2009
Messages: 3
Point(s): 30
Moyenne de points: 0

Posté le: Jeu 5 Fév - 10:37 (2009)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE Répondre en citant

PublicitéSupprimer les publicités ?
'ce programme permet de converture un nombre NB d''une base B1 a une base B2'


program convers;
uses wincrt;
var B1,B2:integer;
NB:string;
function base10abaseB(b,n:integer):string;
var i:integer;
s,bin:string;
r:integer;
c:char;
begin
bin:='';
repeat
r := n mod b;
n := n div b;
case r of
0..9:str(r,s);
10:s:='A';
11:s:='B';
12:s:='C';
13:s:='D';
14:s:='E';
15:s:='F';
end;
bin:=bin+s;
until ( n = 0);
for i:=1 to (length(bin) div 2) do
begin
c:=bin[i];
bin[i]:=bin[length(bin)-i+1];
bin[length(bin)-i+1]:=c;
end;

base10abaseB:=bin;
end;
function puissance(x,y : integer ):integer;
var i:integer;
p:integer;
begin
p:=1;
for i:=1 to y do
begin
p:=p*x;
end;
puissance:=p;
end;
function baseBabase10(b:integer;n:string):integer;
var
s,chinter:string;
result,e,i, x:integer;
c:char;
begin
result:=0;
for i:=1 to (length(n) ) do
begin
c:=n[i];
case c of
'0'Mad:=0;
'1'Mad:=1;
'2'Mad:=2;
'3'Mad:=3;
'4'Mad:=4;
'5'Mad:=5;
'6'Mad:=6;
'7'Mad:=7;
'8'Mad:=8;
'9'Mad:=9;
'a','A'Mad:=10;
'b','B'Mad:=11;
'c','C'Mad:=12;
'd','D'Mad:=13;
'e','E'Mad:=14;
'f','F'Mad:=15;
else writeln('nombre invalide');
end;
result:=result+(x*puissance(b,length(n)-i )) ;
end;
baseBabase10 :=result;
end;
begin
writeln('ce programme permet de converture un nombre NB d''une base B1 a une base B2');
writeln('ekhdir.f LSIKT2009');
writeln( '(2<=B1<=16) et (2<=B2<=16)');
writeln('donnez NB');
readln(NB);
writeln('donnez B1');
readln(B1);
writeln('donnez B2');
readln(B2);
writeln('(',NB,')',b1,'=(', base10abaseB(B2,baseBabase10(B1,NB)) ,')',B2 );
end.


 
Revenir en haut
rondino2008


Hors ligne

Inscrit le: 23 Fév 2009
Messages: 1
Masculin
Point(s): 19
Moyenne de points: 0

Posté le: Lun 23 Fév - 15:34 (2009)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE Répondre en citant

svp je ve avoir l'algorithme de la divisibilité par 6,11,17 et 23 et merci d'avance

 
Revenir en haut
najnouj


Hors ligne

Inscrit le: 15 Mai 2009
Messages: 7
Point(s): 14
Moyenne de points: 0

Posté le: Sam 23 Jan - 17:10 (2010)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE Répondre en citant

merci pour le programme

 
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 31 Jan - 22:59 (2010)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE Répondre en citant

merci pour le partage 

 
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: Jeu 4 Fév - 08:57 (2010)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE Répondre en citant

<script type="text/javascript"><!--
google_ad_client = "pub-8629987697869193";
/* 200x200, date de création 14/12/09 */
google_ad_slot = "4847433140";
google_ad_width = 200;
google_ad_height = 200;
//-->
</script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:35 (2016)    Sujet du message: LES ALGORITHMES D’ARITHMETIQUE

 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ 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