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 ...
LES ALGORITHMES D’ARITHMETIQUE
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Previous topic :: Next topic   hd
Author Message
fathik2000


Offline

Joined: 04 Feb 2009
Posts: 3
Point(s): 30
Moyenne de points: 0

Posted: Thu 5 Feb - 10:37 (2009)    Post subject: LES ALGORITHMES D’ARITHMETIQUE Reply with quote

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






Posted: Thu 5 Feb - 10:37 (2009)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
rondino2008


Offline

Joined: 23 Feb 2009
Posts: 1
Masculin
Point(s): 19
Moyenne de points: 0

Posted: Mon 23 Feb - 15:34 (2009)    Post subject: LES ALGORITHMES D’ARITHMETIQUE Reply with quote

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

 
Revenir en haut
najnouj


Offline

Joined: 15 May 2009
Posts: 7
Point(s): 14
Moyenne de points: 0

Posted: Sat 23 Jan - 17:10 (2010)    Post subject: LES ALGORITHMES D’ARITHMETIQUE Reply with quote

merci pour le programme

 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Sun 31 Jan - 22:59 (2010)    Post subject: LES ALGORITHMES D’ARITHMETIQUE Reply with quote

merci pour le partage 

 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Thu 4 Feb - 08:57 (2010)    Post subject: LES ALGORITHMES D’ARITHMETIQUE Reply with quote

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