اقتباس:
المشاركة الأصلية كتبت بواسطة 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;
----
واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة