ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[حمزة_89]

المشاركة الأصلية كتبت بواسطة menassel oussama

'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

على الاقل ضع محاولتك لنتناقش فيها

القائمة أظنها سهلة وتستطيع كتباتها بكل سهولة

لعلي سأساعدك ب fonction الأولى فقط ...

function bin_to_dec(b,k:longint):integer;
begin 
    if b=0 then bin_to_dec:=0 
    else bin_to_dec:=bin_to_dec(b div 10, k*2)+b mod 10 * k; // k est la nombre recursivité 
// la premiere demande de bin_to_dec est bin_to_dec(b,1);
end;

----

واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة