|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
2016-02-18, 10:47 | رقم المشاركة : 706 | |||||
|
اقتباس:
على الاقل ضع محاولتك لنتناقش فيها القائمة أظنها سهلة وتستطيع كتباتها بكل سهولة لعلي سأساعدك ب 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; واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة
|
|||||
2016-03-07, 21:31 | رقم المشاركة : 707 | ||||
|
اقتباس:
كود:
program conv1_b_10; uses wincrt; function puissance(x,y:integer):longint; begin if y=0 then puissance:=1 else puissance:= x * puissance(x,y-1); end; function convb_10(s:string;b:integer):longint; var d,e,i:integer; r:longint; begin r:=0; for i:=length(s) downto 1 do begin if(s[i] in ['0'..'9']) then val(s[i],d,e) else case upcase(s[i]) of 'A': d := 10; 'B': d := 11; 'C': d := 12; 'D': d := 13; 'E': d := 14; 'F': d := 15; end; r:= r + d * puissance(b,length(s)-i); end; convb_10:=r; end; function convb1_10(s:string;b:integer):longint; var d,e,i:integer; r:longint; begin r:=0; for i:=1 to length(s) do begin if(s[i] in ['0'..'9']) then val(s[i],d,e) else case upcase(s[i]) of 'A': d := 10; 'B': d := 11; 'C': d := 12; 'D': d := 13; 'E': d := 14; 'F': d := 15; end; r:= r*b + d ; end; convb1_10:=r; end; function conv10_b1(n:longint;b:integer):string; var s,c:string; d:integer; begin s:=''; repeat d:=n mod b; n:= n div b; if d in [0..9] then str(d,c) else case d of 10 : c := 'A'; 11 : c := 'B'; 12 : c := 'C'; 13 : c := 'D'; 14 : c := 'E'; 15 : c := 'F'; end; s:=c+s; until n = 0; conv10_b1:=s; end; var ch:string; b,b1:integer; begin writeln('saisir la valeur à convertir'); readln(ch); writeln('dans quelle base?'); readln(b); writeln('vers quelle base?'); readln(b1); writeln(conv10_b1(convb1_10(ch,b),b1)); end. |
||||
2016-03-26, 17:02 | رقم المشاركة : 708 | |||
|
السلام عليك هل بمساعدتي في كيفية صناعة واجهة معناها interface de reseau sociaux en html.css.php |
|||
2016-03-26, 18:03 | رقم المشاركة : 709 | |||
|
من فضلكم ساعدوني في تحويل هذه ALGORITHME اللى الللغة C
procedure tri par insertion (tableau T,n:entier) debut pour i allant de 1 a n-1 val reçois T[i] j reçois i tant que (j>0 et T[j-1]<val) T[j] reçois T[j-1] j reçois j-1 FTQ T[j] reçois val fpour fin |
|||
2016-03-27, 02:24 | رقم المشاركة : 710 | ||||
|
اقتباس:
|
||||
2016-03-29, 11:21 | رقم المشاركة : 711 | |||
|
ااالسلام عليكم من فضلكم عندي بعض الاسئلة في الخوارزميات رجاءامنكم اافادة |
|||
2016-03-29, 19:09 | رقم المشاركة : 712 | ||||
|
اقتباس:
تفضلي سنحاول المساعدة |
||||
2016-03-30, 11:03 | رقم المشاركة : 713 | |||
|
حاولت نضع الصورة بصح و الله ماعرفت تقول اول مرة
|
|||
2016-03-30, 21:11 | رقم المشاركة : 714 | |||
|
https://www11.0zz0.com/2016/03/30/18/251835346.jpg |
|||
2016-04-01, 23:04 | رقم المشاركة : 715 | |||
|
سبق وارسلت لك هذا الحل بالإيميل .. سأعيد رفعه عسى يستفيد يفيد آخرين |
|||
2016-04-04, 14:44 | رقم المشاركة : 716 | |||
|
سلام عليكم الله يخليكم عندي اختي تدرس سنة اولى ماستر اعلام الى شعبة micr تحتاج االى برنامج sac de mot ou bag of words au ******** java الله يخليكم الي عنده معلومة يساعدنا |
|||
2016-04-22, 19:35 | رقم المشاركة : 717 | |||
|
constantine
[C ENTER] salem mes chers programmateurs svp aidez moi f l'exercice hada G besoin de votre solution turbo pascal 1.5 alr :une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes: ==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction ==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70% _ ecriver un programme qui calcule le net apayer sachant que : net a payer =prix d'achat_prix de reduction==> ==>prix de reduction =(prix d'achat*70)/100 yaaa svp svp aidez moi psk c mon controle awel mara ncharek m3akom svp matrodonich[/CENTER] |
|||
2016-04-24, 18:14 | رقم المشاركة : 718 | |||
|
أخي بارك الله فيك على المساعدة |
|||
2016-04-27, 09:52 | رقم المشاركة : 719 | ||||
|
اقتباس:
bonjour, un petit programme corespond à la solution de votre problème
كود:
program total; var prix,reduction,prixachat:real; nombre,i:integer; begin prixachat:=0; reduction:=0; writeln('entrer le nombre de livre achetés'); readln(nombre); for i:=1 to nombre do begin writeln('entrer le prix du livre n',i); readln(prix); prixachat:=prixachat+prix; end; if(nombre>3)then begin reduction =(prixachat*70)/100; end prix:=prixachat-reduction ; writeln('le net à payer est de',prix); end. |
||||
2016-05-05, 21:28 | رقم المشاركة : 720 | |||
|
برنامج الدليل المدرسي اللغة الفرنسية - السنة الثالثة ابتدائي - مجاني - مجاني - مجاني - مجاني |
|||
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc