LMD OUARGLA

LMD OUARGLA
 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 برنامج تحويل عدد من النظام الثنائي إلى النظام العشري

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Prooof



عدد المساهمات : 12
نقاط : 3172
تاريخ التسجيل : 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.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج تحويل عدد من النظام الثنائي إلى النظام العشري
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
LMD OUARGLA :: رياضيات و إعلام آلي :: قســــم البرمجة-
انتقل الى: