|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
2013-04-16, 21:16 | رقم المشاركة : 406 | ||||
|
mais mafhamtch la logique li takhdem beha w val veut dire quoi????
|
||||
2013-04-16, 22:55 | رقم المشاركة : 407 | ||||
|
اقتباس:
كود:
Val (X, S, error ) ; Procédure qui convertit la chaîne de caractère de nom S en un nombre (Integer ou Real) X et renvoie un code erreur error (de type integer) qui est égale à 0 si la conversion est possible. Exemples : CH :=’1234’ ; Val(CH,D,E) ; La valeur de CH est la chaine ‘1234’ La valeur de la variable D est l’entier 1234 La valeur de la variable E est l’entier 0 CH :=’1234.234’ ; Val(CH,D,E) ; La valeur de CH est la chaine ‘1234.234’ La valeur de la variable D est l’entier 1234.234 La valeur de la variable E est l’entier 0 CH :=’123S4’ ; Val(CH,D,E) ; La valeur de CH est la chaine ‘123S4’ La valeur de la variable D est l’entier 0 (c’est la valeur par défaut lors de la déclaration d’un entier (par défaut c’est 0.0 si c’est réel)), car ’123S4’ ne peut pas correspondre à une valeur numérique. La position de la chaine CH qui causera l’erreur est que sa valeur ne correspond pas à un chiffre est la position numéro 3 (la valeur ‘S’), donc dans la variable de type entier on trouvera la valeur 3 La valeur de la variable E est l’entier 0 De même pour La valeur de CH est la chaine ‘123S456*78’ et on trouvera dans la variable E la valeur 3 car la première positon dont la valeur est non transformable est 3, on arrête la transformation et on ne poursuit pas le reste |
||||
2013-04-16, 23:13 | رقم المشاركة : 408 | |||
|
aaaa ok merci bcp ma3lich tfahemni bark f la logique de ce pgm car ya des trucs que jamais khdamna bihom w dsl la9ala9tek |
|||
2013-04-16, 23:32 | رقم المشاركة : 409 | ||||
|
اقتباس:
كود:
function puissance(x,y:integer):longint; Cette fonction renvoie x puissance y function convb_10(s:string;b:integer):longint; Exemple des valeurs à convertir d’une base vers une autre : 120, 5623, 983, 101010, 12A, 4c3… On remarque que les valeurs à convertir peuvent contenir des caractères alphabétiques, alors c’est mieux d’utiliser le type String pour la valeur de départ (la variable S), la variable B correspond à la base dans la quelle la valeur est exprimée (120)8 = (0*8^0 + 2*8^1 + 1*8^2)10 (12C)16 = (12*16^0 + 2*16^1 + 1*16^2)10 Comme S qui peut contenir 120 et B peut contenir 8, dans ce cas on commance depuis la fin de la chaine donc (for… downto) Evaluer les postions de S en leurs correspondants numérique (de 0 à 9 et de 10 à 16 pour les bases supérieurs à 10) (if… else) Cumuler la valeur finale en procédant position par position r:= r + d * puissance(b,length(s)-i); (120)8 = (0*8^0 + 2*8^1 + 1*8^2)10 = ((((1)*8)+2)*8)+0 (12C)16 = (12*16^0 + 2*16^1 + 1*16^2)10 = ((((1)*16)+2)*16)+12 Donc On peut reformer la conversion vars la base 10 autrement, c'est la fonction function convb_10(s:string;b:integer):longint; on utilise l’une des deux function conv10_b1(n:longint;b:integer):string; la conversion vers un base B depuis la base 10 se fait par division successive par la base B, la valeur recherchée peut contenir des caractères alphabétique, alors on utilise le type String, est pour transformer un entier en string on utilise la procédure prédéfinie STR. التواصل هو الهدف من هذا الركن |
||||
2013-04-17, 10:48 | رقم المشاركة : 410 | |||
|
exo |
|||
2013-04-17, 11:47 | رقم المشاركة : 411 | ||||
|
اقتباس:
كود:
Program exo ; Uses wincrt ; Var ma : real ; Begin Writeln('saisir le montant d''achat') ; Readln(ma) ; if ((ma<2000) and (ma>=1000)) then ma:=ma-0.02*ma else if ((ma<3000) and (ma>=2000)) then ma:=ma-0.05*ma else if ((ma<5000) and (ma>=3000)) then ma:=ma-0.1*ma else if ma>=5000 then ma:=ma-0.15*ma; writeln('le montant à payer est ',ma); end. |
||||
2013-04-22, 18:08 | رقم المشاركة : 412 | |||
|
bns a tous bon svp aider moi a faire un pgm en pascal pour tri des tableau par 2 methodes et merci d'avance |
|||
2013-04-23, 18:25 | رقم المشاركة : 413 | |||
|
هدا موقع خاص بالدروس |
|||
2013-04-23, 19:18 | رقم المشاركة : 414 | |||
|
salam jma3a chrakom labass plz aider moi ndir programme changemlent de base par division succesive |
|||
2013-04-23, 20:45 | رقم المشاركة : 415 | |||
|
راجع الردود الاخيرة في الصفحات 27-28-29
|
|||
2013-04-23, 21:22 | رقم المشاركة : 416 | |||
|
oui chefthom déjà had la solution est un peu compliqué je veux une solution simple svp mon frére aide moi |
|||
2013-04-23, 22:21 | رقم المشاركة : 417 | ||||
|
اقتباس:
للاسف الان اصبحت مشكلة فهم الغوريتم التحويل من قاعدة الى قاعدة ومثل هته الالغوريتمات توجد مادة تدرسونها في مادة مستقلة اسمها ******** machine اظن ما عليك الا ان تفهم هته المادة السهلة وادا فهمت الطرق المعتمدة فيها*-*الاغلوريتمات*-* ca1,ca2,de base a vers base b ansi de suite alors vous allez avoir le programme qui torne b1 ارجوا ان تكون لك نظرة وفهم لما تطرقتم له في مادة لغة االغة وحاول مراجعة الردود السابقة وفي حالة حاجتك لمساعدة في الخدمة ان شاء الله شكرا |
||||
2013-04-25, 13:52 | رقم المشاركة : 418 | |||
|
اسف لعدم توضيح الطلب السابق لان الاستاد ايضا لم يوضح لنا ...لدي طلب اخر |
|||
2013-04-25, 18:42 | رقم المشاركة : 419 | |||
|
Algorithme |
|||
2013-04-25, 18:48 | رقم المشاركة : 420 | |||
|
السلام..... |
|||
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc