Prooof
عدد المساهمات : 12 نقاط : 5521 تاريخ التسجيل : 21/04/2009
| موضوع: برنامج تحويل عدد من النظام الثنائي إلى النظام العشري الأحد مايو 24, 2009 3:50 pm | |
| برنامج تحويل عدد من النظام الثنائي إلى النظام العشري يقوم البرنامج بتحويل عدد من النظام الثنائي إلى النظام العشري وقد كان إختبارا في العمل التطبيقي للسنة أولى
زوروني على: LMD.{
**************************************************************** ****** convertion de binaire au decimale ***** ****** réalisé par l''enseignant ben mir abd el kader 2009 ***** **************************************************************** } program BinToDec; uses crt; const m = 30; var tbin : array[1..m] of integer; i,n : integer; dec, pdeux : integer; c : char; begin
writeln('****************************************************************'); writeln('********* convertion de binaire au decimale *******'); writeln('********* r‚alis‚ par l''enseignant ben mir abd el kader 2009 *******'); writeln('****************************************************************');
repeat clrscr;
writeln('*******************************************************************************'); writeln('************** convertion de binaire au decimale ************'); writeln('************** r‚alis‚ par l''enseignant ben mir abd el kader 2009 ************'); writeln('*******************************************************************************'); writeln; writeln;
write('donner le longeur de votre nobmre binaire <= 30 :');readln(n); while (n > 30) or (n < 1) do begin write('donner le longeur de votre nobmre binaire < 30 :');readln(n); end;
{lecture de la nombre binaire dans un tableau} writeln('donner votre nombre binaire'); for i := 1 to n do begin write('donner le chiffre de la position ',i-1, ' '); readln(tbin[i]); while (tbin[i] <> 0) and (tbin[i] <> 1 ) do begin writeln(' le chiffre doit etre 0 ou 1'); write('donner le chiffre de la position ',i-1, ' '); readln(tbin[i]); end; end; writeln;
dec := 0; {le nombre decimal} pdeux := 1;{puicance 2} for i := 1 to n do begin
dec := dec+tbin[i]*pdeux; {conversion} pdeux := pdeux*2; {puissance 2} end;
{affichage de la nombre binaire} write('le nombre binaire est '); for i := 1 to n do write(tbin[i]); writeln;
{affichage de la nombre obtenu} writeln(' le nombre en decimal est ', dec); writeln;
{pour r‚executer le programme} write('voulez vous entrez un nombre "o" sinon "n" : ');readln(c); until c = 'n';
write('appuyer sur une touche'); readln; end. | |
|