|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين ++Algorithmes et programmation en Pascal,C,C(موسم جديد)
|
أدوات الموضوع | انواع عرض الموضوع |
2013-11-01, 18:21 | رقم المشاركة : 16 | |||||
|
اقتباس:
recursive لقراءة matrice كود:
program ex; uses wincrt; type mat=array[1..20,1..20] of integer; var i,j,n,ii,jj:integer; tab:mat; function lire(i,j:integer):integer; begin jj:=1; while i<=n do begin while j<=n do begin writeln('t[',i,j,']='); readln(tab[i,j]); j:=j+1; tab[i,j]:=lire(i,j); end; while jj<=n do begin i:=i+1; tab[i,jj]:=lire (i,jj); jj:=jj+1; end; end; end; begin writeln('Donner la dimenesion de matrice'); repeat readln(n); until(n>=1); lire(1,1); end. هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح + ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا
|
|||||
2013-11-01, 18:28 | رقم المشاركة : 17 | |||
|
انا هربت من الinformatique في الـ1er année كنتout khlahhh و درك رجعتلي في الموديل تع الـ tp fille d'attente في الstat prof، طلبت منا نديرو n factoriel fi pascal و أنا نسيــــــــت كلش ، عونوني plzzzzzzzzzzzz و الي عندها résumé total نخدم باها تساعدني ....... شكرااااااااااااا |
|||
2013-11-01, 18:47 | رقم المشاركة : 18 | ||||
|
اقتباس:
هناك موضوع خاص بالباسكال والتمارين هنا https://www.djelfa.info/vb/showthread...post1054770405 + fact(n):=n*fact(n-1) avec fact(1):=1; fact(0):=1; ex fact(6):=6*fact(5)=6*5*fact(4)=6*5*4**fact(3)=6*5* 4*3*fact(2)=6*5*4*3*2*fact(1)=6*5*4*3*2*1 |
||||
2013-11-01, 19:41 | رقم المشاركة : 19 | ||||
|
اقتباس:
fonction(matise....ect) |
||||
2013-11-01, 21:15 | رقم المشاركة : 20 | |||
|
بارك الله في الاخوة هنا
نفع الله بنا وبكم ان شاء الله..... |
|||
2013-11-01, 21:43 | رقم المشاركة : 21 | |||
|
بارك الله فيك خويــــــــا |
|||
2013-11-05, 12:38 | رقم المشاركة : 22 | |||
|
السلام عليكم |
|||
2013-11-05, 14:42 | رقم المشاركة : 23 | |||
|
شوفولي هاذا صحيح ولا لا؟؟؟؟ |
|||
2013-11-05, 16:56 | رقم المشاركة : 24 | |||
|
بنت عمران |
|||
2013-11-05, 19:19 | رقم المشاركة : 25 | |||
|
Yeeeeeeeyyyy merci khouya ahmed |
|||
2013-11-05, 19:25 | رقم المشاركة : 26 | ||||
|
اقتباس:
declaration كود:
typedef struct element element; struct element { int val; struct elment *nxt; }; typedef element * llist;// simplifier l'ecriture ...... main() { llixt maliste1=NULL; element *maliste2=NULL; struct elemnet *maliste3=NULL; } كود:
llist ajout_tete(llist ptr,int val) { elemnet *nouveau =malloc (size of(element)); ou { element *nouveau; nouveau=(elemnet*) malloc (size of(elment)); nouveau->val=val; nouveau->nxt=ptr; return nouveau;} كود:
llist ajout_en_queu(llist ptr;int valeur) { element *nouveau =malloc(syzeof(element)); nouveau->val=valeur; vouveau->nxt=NULL; if(ptr==NULL) return nouveau; else { elment *tmp =ptr; while(tmp->nxt !=NULL)) tmp=tmp->nxt; tmp->nxt=nouveau; return ptr; } |
||||
2013-11-05, 19:31 | رقم المشاركة : 27 | ||||
|
اقتباس:
declaration كود:
typedef struct element element; struct element { int val; struct elment *nxt; } ; typedef element * llist;// simplifier l'ecriture ...... main() { llixt maliste1=NULL; element *maliste2=NULL; struct elemnet *maliste3=NULL; } كود:
llist ajout_tete(llist ptr,int val) { elemnet *nouveau =malloc (sizeof(element)); ou } element *nouveau; nouveau=(elemnet*) malloc (sizeof(elment)); nouveau->val=val; nouveau->nxt=ptr; return nouveau;} كود:
llist ajout_en_queu(llist ptr,int valeur) { element *nouveau =malloc(syzeof(element)); nouveau->val=valeur; vouveau->nxt=NULL; if(ptr==NULL) return nouveau; else { elment *tmp =ptr; while(tmp->nxt !=NULL) tmp=tmp->nxt; tmp->nxt=nouveau; return ptr; } |
||||
2013-11-05, 20:07 | رقم المشاركة : 28 | |||
|
بخصوص |
|||
2013-11-05, 20:18 | رقم المشاركة : 29 | |||
|
برنامجك الاصلي هذا هو ** التصحيح باللون الاحمر
كود:
program factoriel; uses wincrt; var i,n :integer; صحيح ولكن هذا لا يمكننا من حساب مثلا 8 عاملي لان قيمة 8 عاملي اكبر من قيمة مجال integer لذلك يستحسن استعمال longint Begin writeln("entrer une variable":); التعليق في الباسكال نكتبه بين '...' وليس بين "...." + النقطتين بعد '...' لا يتعرف عليها البرنامج لذلك يجب ان تكون النقطتين داخل '...' writeln('entrez une valeur :'); readln(n); i:=1; while(n>0) if(n=0)then writeln(le fact est 1); اولا الدالة while تكتب بهذا الشكل while( condition) do بينما انت نسيتي كلمة do ثانيا ما فائدة كتابة if(n=0) داخل boucle while ؟ مثال while (n>5) do if (n=5) // هل يمكن ان تكون قيمة n=5 داخل boucle while ؟ ثالثا writeln(le fact est 1) خطا في الكتابة ينقص '....' writeln('le fact est 1'); begin i:=i*n; n:=n_1; n:=n-1; end; writeln('le factoriel est:'i); لكتابة قيمة في التعليق نكتبها بعد الفاصلة هكذا writeln('le factoriel est :',i); end. |
|||
2013-11-05, 20:54 | رقم المشاركة : 30 | |||
|
بخصوص العاملي |
|||
الكلمات الدلالية (Tags) |
ملتقى-طلاب-إعلام ألي |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc