ملتقى طلاب الاعلام الالي لحل تمارين ++Algorithmes et programmation en Pascal,C,C(موسم جديد)

[you92cef]

المشاركة الأصلية كتبت بواسطة ahmedchourar

كيف ادخل Matris carreكوسيط في fonction

في تمرين ALGO II

اليك هذا التمرين الذي هو عبارة عن دالة تعمل بمبدا الوراثة
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.

-------------
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح
+
ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا

[بنت عمران]

انا هربت من الinformatique في الـ1er année كنتout khlahhh و درك رجعتلي في الموديل تع الـ tp fille d'attente في الstat prof، طلبت منا نديرو n factoriel fi pascal و أنا نسيــــــــت كلش ، عونوني plzzzzzzzzzzzz و الي عندها résumé total نخدم باها تساعدني ....... شكرااااااااااااا

[you92cef]

المشاركة الأصلية كتبت بواسطة بنت عمران

انا هربت من الinformatique في الـ1er année كنتout khlahhh و درك رجعتلي في الموديل تع الـ tp fille d'attente في الstat prof، طلبت منا نديرو n factoriel fi pascal و أنا نسيــــــــت كلش ، عونوني plzzzzzzzzzzzz و الي عندها résumé total نخدم باها تساعدني ....... شكرااااااااااااا

ارجوا التقيد بهدف التمرين
هناك موضوع خاص بالباسكال والتمارين هنا
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

[ahmedchourar]

المشاركة الأصلية كتبت بواسطة you92cef

اليك هذا التمرين الذي هو عبارة عن دالة تعمل بمبدا الوراثة
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.

-------------
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح
+
ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا

اخي في خورزميات وليس في بسكال

fonction(matise....ect)

[yacinemosta]

بارك الله في الاخوة هنا

نفع الله بنا وبكم ان شاء الله.....

[بنت عمران]

بارك الله فيك خويــــــــا

[Arrowhead]

السلام عليكم
أريد طلب بخصوص كيفية كتابة Algorithme de pointeur

[بنت عمران]

شوفولي هاذا صحيح ولا لا؟؟؟؟

[ahmedchourar]

بنت عمران
-------------
10/10

[بنت عمران]

Yeeeeeeeyyyy merci khouya ahmed

[you92cef]

المشاركة الأصلية كتبت بواسطة Arrowhead

السلام عليكم
أريد طلب بخصوص كيفية كتابة Algorithme de pointeur

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;
}

ajout en tété

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;}

ajout en queue

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;
}

[you92cef]

المشاركة الأصلية كتبت بواسطة Arrowhead

السلام عليكم
أريد طلب بخصوص كيفية كتابة Algorithme de pointeur

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;
}

ajout en tété

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;}

ajout en queue

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;
}

[you92cef]

بخصوص
les pointeur en pascale
راجحع الرد هنا
https://www.djelfa.info/vb/showthread...135321&page=32
الرد رقم 473

[you92cef]

المشاركة الأصلية كتبت بواسطة بنت عمران

شوفولي هاذا صحيح ولا لا؟؟؟؟

برنامجك الاصلي هذا هو ** التصحيح باللون الاحمر

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.

[you92cef]

بخصوص العاملي
factorielle
راجعي الردود هنا
https://www.djelfa.info/vb/showthread...135321&page=12
الرد
180
+
https://www.djelfa.info/vb/showthread...1135321&page=4
الرد 50
+ارجوا التزام عنوان الموضع
هذا الموضوع خاص بتمارين السي والسي بلس بلس
وهناك موضوع خاص بالباسكال
هنا
https://www.djelfa.info/vb/showthread.php?t=1135321