|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
2016-02-18, 10:47 | رقم المشاركة : 24 | ||||
|
اقتباس:
على الاقل ضع محاولتك لنتناقش فيها القائمة أظنها سهلة وتستطيع كتباتها بكل سهولة لعلي سأساعدك ب 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; واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة |
||||
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc