ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

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

اسف لعدم توضيح الطلب السابق لان الاستاد ايضا لم يوضح لنا ...لدي طلب اخر
Ecrire un programme qui permet d’effectuer la transposition d’une matrice A(m ,n) en une matrice T A(n,m)
وشكرا اخي

تم حل هدا التمرين سابحث عن الرابط
الترمين يقوم بحساب
transposer de matrice et affectuer la * de matrice avec le transposer de matrive

[you92cef]

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

algorithme
date_jour_anne
fonction
datedujour() :
Chaîne de caractères
variables
valeur :
Entier
dateformatée :
Chaîne de caractères
début
remarque
le jour
valeur <- jour()
si
valeur < 10
alors
dateformatée <- "0" + enchaîne(valeur)
sinon
dateformatée <- enchaîne(valeur)
fin si
dateformatée <- dateformatée + "/"
remarque
le mois
valeur <- mois()
si
valeur < 10
alors
dateformatée <- dateformatée + "0" + enchaîne(valeur)
sinon
dateformatée <- dateformatée + enchaîne(valeur)
fin si
dateformatée <- dateformatée + "/"
remarque
l’année
dateformatée <- dateformatée + enchaîne(année())
retourner
(dateformatée)
fin fonction
début
afficher("nous sommes le ", datedujour())
fin algorithme

هذه محاولتي أرجو التعليق ......كذلك كيف استطيع ان انقل من الباسكال الى هنا ....:d:d:d

ارجوا توضيح الهدف من الاغوريتم والنتيجة التي نرد اظهارها +
وضع الكود في خانة

ادراجو كود الموجود في الردود

[you92cef]

بخصوص المصفوفات
matrice
calcule le produit d'un matrice par sa transopseé
كود:

الرابط هنا

https://www.djelfa.info/vb/showthread...135321&page=21

[you92cef]

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

السلام.....
أين الخطااء الموجود في هذه الخوارزمية أرجو الرد

program Nbr_Jours;
uses crt,dos;
const les_mois : array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var
Annee,Annee_Cornt,Mois_Cornt,Jour_Cornt,jour_semai ne : word;
mois,jour : byte;

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

function nbrj_D(jour,mois: byte;annee : word):longint;
var
i : byte;
begin
nbrj_D := 0;
if Annee_Cornt > Annee then
begin
if Annee mod 4 = 0 then
les_mois[2] := 29;
i := mois ;
repeat
nbrj_D := nbrj_D + les_mois[i];
i := i + 1;
until i > 12 ;
nbrj_D := nbrj_D - jour ;
end;
end;

function nbrj_M(Annee_Cornt,annee : word):longint;
begin
nbrj_M := 0;
if Annee_Cornt -1 > annee then
repeat
annee := annee + 1;
if annee mod 4 = 0 then
nbrj_M := nbrj_M + 366 else
nbrj_M := nbrj_M + 365;
until annee >= Annee_Cornt - 1;
end;

function nbrj_F(jour,mois: byte;annee : word):longint;
var
i : byte;
begin
nbrj_F := 0;
if Annee_Cornt > Annee then
begin
jour := 0;
mois := 1;
end;
i := mois ;
if Annee_Cornt mod 4 = 0 then
les_mois[2] := 29;
if i < Mois_Cornt then
repeat
nbrj_F := nbrj_F + les_mois[i];
i := i + 1;
until i >= Mois_Cornt ;
nbrj_F := nbrj_F - jour + jour_Cornt;
end;

function nbrJours(jour,mois: byte;annee : word):longint;
begin
nbrJours := nbrj_D(jour,mois,annee) + nbrj_M(Annee_Cornt,annee) + nbrj_F(jour,mois,annee);
end;

begin

write('Entre l''annee :');
readln(annee);
repeat
write('Entre le mois :');
readln(mois);
until (mois >= 1) and (mois <= 12);
repeat
write('Entre le jour :');
readln(jour);
until validj(annee,mois,jour);

getdate(Annee_Cornt,Mois_Cornt,Jour_Cornt,jour_sem aine);
write('le nombre de jours entre le ',jour,'/',mois,'/',annee,' et le ');
writeln(Jour_Cornt,'/',Mois_Cornt,'/',Annee_Cornt,' : ',nbrJours(jour,mois,annee),' Jours');

writeln(nbrj_D(jour,mois,annee));
writeln(nbrj_M(Annee_Cornt,annee));
writeln(nbrj_F(jour,mois,annee));

end.

سيتم مراجعة البرنامج في وقت لاحق
عموما هناك اخطاء كثيرة في البرنامج من بينها استدعاء دوال بدون متغيراتها
مثال

function max(a,b,c:integer):integer;
 عند استدعاءنا للدالة 
max
يجب علينا ان نقدم لها 3 متغيرات مثلا 
max(x,y,z);
بينما لا يمكن انا نستدعيها هكدا 
max
:confused:
الباسكال يتيح امكانية اعطاء قيمة اولية لاسم الدالة مثلا 
function min (a,b,integer):byte
فيمكن ان نعطي قيمة اولية للدالة 
min 
تكون من نفس نوع الدالة 
min
الدي هو في هده الحالة 
byte
فيمكن كتابة 
min:=5;
صحيحة في الباسكال 
هناك لغان برمجة لا يمكن ان نقدم قيمة اولية للدالة او حتى قيم للدوال

يجب استعمال الدوال بشكل جيد وفي حالة لم نحتاج الى استعمال الدوال فمن الاحسن عدم استعمالها اصلا الا في الحالات الضرورية
مثلا
هده الكتابة
nbrj_F := nbrj_F - jour + jour_Cornt;
لا تعتبر صحيحة
ادن من الاحسن استعمال متغير اخر الدي نقوم من خلاله بالقيام بعملليات وعند الانتهاء من العمليات نعطي النتيجة النهائية للدالة
فمثلا يمكن استعمال المبدا التالي

var n:integer;
n:=0;
for i:=1 to 5 do 
n:=n+t[i]
nom_function:=n;

سيتم محاولة وضع تصحيح للبرنامج ووضع شرح بسيط فيما يخص الدوال والبروسيدور
شكرا

[you92cef]

تم تصحيح بعض الاخطاء في البرنامج ولكن النتائج ليست صحيحة

عموما هدا برنامج معدل يشتغل ولكن نتائجه خاطئة

program Nbr_Jours;
uses wincrt;
const les_mois : array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var
Annee,Annee_Cornt,Mois_Cornt,Jour_Cornt,jour_semaine : word;
mois,jour : byte;

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

function nbrj_D (jour,mois: byte;annee : word):longint;
var
i : byte;nbr:integer;
begin
nbr := 0;
if Annee_Cornt > Annee then
begin
if Annee mod 4 = 0 then
les_mois[2] := 29;
i := mois ;
repeat
nbr:= nbr + les_mois[i];
i := i + 1;
until i > 12 ;
nbr := nbr - jour ;
 nbrj_D:=nbr;
end;
end;

function nbrj_M(Annee_Cornt,annee : word):longint;
var nbr:integer;
begin
nbr := 0;
if Annee_Cornt -1 > annee then
repeat
annee := annee + 1;
if annee mod 4 = 0 then
nbr := nbr + 366 else
nbr := nbr + 365;
until annee >= Annee_Cornt - 1;
nbrj_M:=nbr;
end;

function nbrj_F(jour,mois: byte;annee : word):longint;
var
i : byte;nbr:integer;
begin
nbr := 0;
if Annee_Cornt > Annee then
begin
jour := 0;
mois := 1;
end;
i := mois ;
if Annee_Cornt mod 4 = 0 then
les_mois[2] := 29;
if i < Mois_Cornt then
repeat
nbr := nbr + les_mois[i];
i := i + 1;
until i >= Mois_Cornt ;
nbr:= nbr - jour + jour_Cornt;
nbrj_f :=nbr;
end;

function nbrJours(jour,mois: byte;annee : word):longint;
begin
nbrJours := nbrj_D(jour,mois,annee) + nbrj_M(Annee_Cornt,annee) + nbrj_F(jour,mois,annee);
end;

begin

write('Entre l''annee :');
readln(annee);
repeat
write('Entre le mois :');
readln(mois);
until (mois >= 1) and (mois <= 12);
repeat
write('Entre le jour :');
readln(jour);
until validj(annee,mois,jour);

write('le nombre de jours entre le ',jour,'/',mois,'/',annee,' et le ');
writeln(Jour_Cornt,'/',Mois_Cornt,'/',Annee_Cornt,' : ',nbrJours(jour,mois,annee),' Jours');
writeln('nombre de nbr_j:',nbrj_D(jour,mois,annee));
writeln('nombre de nbrj_mt:',nbrj_M(Annee_Cornt,annee));
writeln('nombre de nbrj_f:',nbrj_F(jour,mois,annee));

end.

التعليقات
1-استخدام اسماء المتغيرات طويلة
من الاحسن ان نستخدم اسماء متغيرات قصيرة لتسهيل قرائة وفهم البرنامج
يمكن استخدام مثلا

 var nbr_j:integer;
ou
var nj:integer;

2-تعريف دالة دون استخدامها
هده الدالة قمنا بتعريفها ولكن لم نستخدمها

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

الدالة هده تقوم بتحديد عدد ايام شهر فيفري
حسنا
عدد ايام شهر فيفري هل يتعلق بالايام او بالشهور ام بالسنة التي قمنا بادخالها؟
لان الدالة هده لديها 3 متغيرات
3
entreé donc c'est logique qu'il depont de trois entreé
mais le nombre de jour pour fécrier depent delement de l'anneé


لاننا عندما نقوم بتعريف دالة ويكون لديها مثلا 4 متغيرات فهنا يجب ان نستخدم 4متغيرات لاجراء امور الدالة
مثلا

f(x)-->x^3+2x+5
هده الدالة لديها متغير واحد وهو 
x
يمكن تحويل نفس الدالة الى دالة بمتغيران 
هكدا
f(x,y)-->x^3+2x+5+0y+0y/15+y-y+y^2-y^2

نتيجة الدالتين هي نفسها ولكن من المنطق ان نستعمل الدالة الاولى لانها تتعلق ب
x
نفس الامر بالنسبة لدالتنا

ادن من الاحسن ان تكون الدالة بالشكل التالي

function validj(annee:integer):boolean;

هدف الدوال او البروسيدور هو تلقيص حجم البرنامج وعدم تكرار الامور
مثلا
ادا كان لدي حرف اريد طباعته على الشاشة مرات متكررة
فيمكنني ان استعمل
العبارة
writeln
ادا اريد مثلا كتابة
x
5مرات في برنامجي الرئيسي
فيمكنني ان استعمل المبدا التالي

writeln(x);
writeln(x);
writeln(x);
writeln(x);
writeln(x);

بينما يمكنني ان اقوم بتعريف بروسيدور او دالة هدفها هو طباعة تعليق عدد الكرات التي اريد وهكدا اقلص من حجم البرنامج
في هده الحالة من الاحسن استعمال بروسيدور بالشكل التالي

procedure impr(c:char,n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(x);
end;

فادا اردت طباعة حرف
y
100 مرة فلا يعقل ان ان استعمل
writeln
100 مرة
بل اقوم باستدعاء البروسيدور
بالشكل التالي

procedure impr('y',100);

فهدا البرنامج هدفه هو معرفة ادا كان شهر فيفري 29 يوم ام 28 يوم
بينما انك في الدوال الاخرى دائما تقومين بعمل فحص ادا كان عدد الايام 29 او 28
بدون استدعاء البروسيدور
كحال هده الدالة

function nbrj_D (jour,mois: byte;annee : word):longint;
var
i : byte;nbr:integer;
begin
nbr := 0;
if Annee_Cornt > Annee then
begin
if Annee mod 4 = 0 then
les_mois[2] := 29;

لمادا قمت هنا بتكرار العمليات التي عرفتها في الدالة الاولى؟

3-

const les_mois : array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

حسنا هده الكتابة صحيحة ولكن الا يمكن تلخيصها؟
بحيث مثلا شهر
جانفي ومارس وماي جويلية واوت اكتوبر ديسمبر لديهام نفس عدد الايام 31
حاول تلخيص هده الدالة
ولكن لا يهم حاول في الاول تعديل البرنامج وبعدها نقوم بتعديل هده الامور وتقليصها
4-
لقد جربت ادخال التاريخ
0-0-0
يعني
السنة0
الشهر0
اليوم0
حاول القيام بعمل فحصوات لادخال تاريخ صحيح وسنة
يمكن مثلا اظهار تعليقف عند ادخال تاريخ اثل من 1950 او تاريخ اكبر من 2013

باقي الاخطاء الموجودة في الربنامج سيتم تصحيحها وشرحها ان شاء الله

ولكن ارجوا تصحيح البرنامج ووضع تنبيه لمعرفة عمل كل دالة او بروسيدور
والاهم عدم تكرار الاشياء واسخدام الدوال والبروسيدور التي عرفناهم من قبل
شكرا

[asma@]

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

program sol;
uses wincrt;
var
d,i,z,j:integer;
 
t,f,n:string;
s:array[1..50]of string[1];
function rec(n:string):integer;
begin
d:=length(n);
for i:=1 to d do begin
t:=copy(n,1,1);
s[i]:=t;
n:=copy(n,2,d-i);
writeln('s[',i,']=',s[i]);
end;
end;
begin
readln(n);
rec(n);
end.

لقد حاولت جاهدا وهذا احسن ما قمت به بقي فقط جمع الاعداد لم اعرف كيف اجمعها بحيث اذا جمعت مثلا 8 و9 المفروض تكون النتيجة 17 الا انه يظهر النتيجة 98

لم افهم هذه النقطة جيدا

اخي من فضلك اريد ان اعرف طريقة رفع البروغرام بهذه الطريقة
بصراحة لا اعرفها

[haroune21]

شكرا اخي علي المساعدة جزاك الله خيرا و جعله في ميزان حسناتك

[you92cef]

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

اخي من فضلك اريد ان اعرف طريقة رفع البروغرام بهذه الطريقة
بصراحة لا اعرفها

الشرح هنا

[عودة امل]

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

تم تصحيح بعض الاخطاء في البرنامج ولكن النتائج ليست صحيحة

عموما هدا برنامج معدل يشتغل ولكن نتائجه خاطئة

program nbr_jours;
uses wincrt;
const les_mois : Array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var
annee,annee_cornt,mois_cornt,jour_cornt,jour_semaine : Word;
mois,jour : Byte;

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

function nbrj_d (jour,mois: Byte;annee : Word):longint;
var
i : Byte;nbr:integer;
begin
nbr := 0;
if annee_cornt > annee then
begin
if annee mod 4 = 0 then
les_mois[2] := 29;
i := mois ;
repeat
nbr:= nbr + les_mois[i];
i := i + 1;
until i > 12 ;
nbr := nbr - jour ;
 nbrj_d:=nbr;
end;
end;

function nbrj_m(annee_cornt,annee : Word):longint;
var nbr:integer;
begin
nbr := 0;
if annee_cornt -1 > annee then
repeat
annee := annee + 1;
if annee mod 4 = 0 then
nbr := nbr + 366 else
nbr := nbr + 365;
until annee >= annee_cornt - 1;
nbrj_m:=nbr;
end;

function nbrj_f(jour,mois: Byte;annee : Word):longint;
var
i : Byte;nbr:integer;
begin
nbr := 0;
if annee_cornt > annee then
begin
jour := 0;
mois := 1;
end;
i := mois ;
if annee_cornt mod 4 = 0 then
les_mois[2] := 29;
if i < mois_cornt then
repeat
nbr := nbr + les_mois[i];
i := i + 1;
until i >= mois_cornt ;
nbr:= nbr - jour + jour_cornt;
nbrj_f :=nbr;
end;

function nbrjours(jour,mois: Byte;annee : Word):longint;
begin
nbrjours := nbrj_d(jour,mois,annee) + nbrj_m(annee_cornt,annee) + nbrj_f(jour,mois,annee);
end;

begin

write('entre l''annee :');
readln(annee);
repeat
write('entre le mois :');
readln(mois);
until (mois >= 1) and (mois <= 12);
repeat
write('entre le jour :');
readln(jour);
until validj(annee,mois,jour);

write('le nombre de jours entre le ',jour,'/',mois,'/',annee,' et le ');
writeln(jour_cornt,'/',mois_cornt,'/',annee_cornt,' : ',nbrjours(jour,mois,annee),' jours');
writeln('nombre de nbr_j:',nbrj_d(jour,mois,annee));
writeln('nombre de nbrj_mt:',nbrj_m(annee_cornt,annee));
writeln('nombre de nbrj_f:',nbrj_f(jour,mois,annee));

end.

التعليقات
1-استخدام اسماء المتغيرات طويلة
من الاحسن ان نستخدم اسماء متغيرات قصيرة لتسهيل قرائة وفهم البرنامج
يمكن استخدام مثلا

 var nbr_j:integer;
ou
var nj:integer;

2-تعريف دالة دون استخدامها
هده الدالة قمنا بتعريفها ولكن لم نستخدمها

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

الدالة هده تقوم بتحديد عدد ايام شهر فيفري
حسنا
عدد ايام شهر فيفري هل يتعلق بالايام او بالشهور ام بالسنة التي قمنا بادخالها؟
لان الدالة هده لديها 3 متغيرات
3
entreé donc c'est logique qu'il depont de trois entreé
mais le nombre de jour pour fécrier depent delement de l'anneé


لاننا عندما نقوم بتعريف دالة ويكون لديها مثلا 4 متغيرات فهنا يجب ان نستخدم 4متغيرات لاجراء امور الدالة
مثلا

f(x)-->x^3+2x+5
هده الدالة لديها متغير واحد وهو 
x
يمكن تحويل نفس الدالة الى دالة بمتغيران 
هكدا
f(x,y)-->x^3+2x+5+0y+0y/15+y-y+y^2-y^2

نتيجة الدالتين هي نفسها ولكن من المنطق ان نستعمل الدالة الاولى لانها تتعلق ب
x
نفس الامر بالنسبة لدالتنا

ادن من الاحسن ان تكون الدالة بالشكل التالي

function validj(annee:integer):boolean;

هدف الدوال او البروسيدور هو تلقيص حجم البرنامج وعدم تكرار الامور
مثلا
ادا كان لدي حرف اريد طباعته على الشاشة مرات متكررة
فيمكنني ان استعمل
العبارة
writeln
ادا اريد مثلا كتابة
x
5مرات في برنامجي الرئيسي
فيمكنني ان استعمل المبدا التالي

writeln(x);
writeln(x);
writeln(x);
writeln(x);
writeln(x);

بينما يمكنني ان اقوم بتعريف بروسيدور او دالة هدفها هو طباعة تعليق عدد الكرات التي اريد وهكدا اقلص من حجم البرنامج
في هده الحالة من الاحسن استعمال بروسيدور بالشكل التالي

procedure impr(c:char,n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(x);
end;

فادا اردت طباعة حرف
y
100 مرة فلا يعقل ان ان استعمل
writeln
100 مرة
بل اقوم باستدعاء البروسيدور
بالشكل التالي

procedure impr('y',100);

فهدا البرنامج هدفه هو معرفة ادا كان شهر فيفري 29 يوم ام 28 يوم
بينما انك في الدوال الاخرى دائما تقومين بعمل فحص ادا كان عدد الايام 29 او 28
بدون استدعاء البروسيدور
كحال هده الدالة

function nbrj_d (jour,mois: Byte;annee : Word):longint;
var
i : Byte;nbr:integer;
begin
nbr := 0;
if annee_cornt > annee then
begin
if annee mod 4 = 0 then
les_mois[2] := 29;

لمادا قمت هنا بتكرار العمليات التي عرفتها في الدالة الاولى؟

3-

const les_mois : Array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

حسنا هده الكتابة صحيحة ولكن الا يمكن تلخيصها؟
بحيث مثلا شهر
جانفي ومارس وماي جويلية واوت اكتوبر ديسمبر لديهام نفس عدد الايام 31
حاول تلخيص هده الدالة
ولكن لا يهم حاول في الاول تعديل البرنامج وبعدها نقوم بتعديل هده الامور وتقليصها
4-
لقد جربت ادخال التاريخ
0-0-0
يعني
السنة0
الشهر0
اليوم0
حاول القيام بعمل فحصوات لادخال تاريخ صحيح وسنة
يمكن مثلا اظهار تعليقف عند ادخال تاريخ اثل من 1950 او تاريخ اكبر من 2013

باقي الاخطاء الموجودة في الربنامج سيتم تصحيحها وشرحها ان شاء الله

ولكن ارجوا تصحيح البرنامج ووضع تنبيه لمعرفة عمل كل دالة او بروسيدور
والاهم عدم تكرار الاشياء واسخدام الدوال والبروسيدور التي عرفناهم من قبل
شكرا

الله يجازيك ويكثر من أمثالك الله يوفقك تشكر بعنف والله ...:d:d:d....جاري تصحيح البرنامج....سأعود باذن الله

[asma@]

merci akhi yo92cef

[ssissoume]

salam 3likom cv?? bon plz 3awnouni f un algorithme en pascal de cryptage de balaise de vigénère meme fahmouni fih bark w jazakom lah khir

[you92cef]

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

salam 3likom cv?? bon plz 3awnouni f un algorithme en pascal de cryptage de balaise de vigénère meme fahmouni fih bark w jazakom lah khir

هده الطريقة المفروض انكم تدرسونها في السنة الثانية اعلام الي

عموما
طريقة فجنر تعتمد على التشفير عن طريق كلمة

يعني مثلا


Algorithmes et programmation en PascaL
هده الجملة الاصلية
كلمة التشفير هي مثلا
FORUM
الجملة السابقة فيها 34 حرف
طريقة التشفير هي التالي


ناخد الجملة التي نريد ان نشرفها
ناخد كلمة التشفير
نضع كل حرف من الجملة مع الحرف الدي يقابله من كلمة التشفير

سيتم وضع شرح مفصل ان شاء الله غدا
شكرا

[you92cef]

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

salam 3likom cv?? bon plz 3awnouni f un algorithme en pascal de cryptage de balaise de vigénère meme fahmouni fih bark w jazakom lah khir

اولا
ارجوا تحميل هدا البرنامج الخاص بتشفير بطريقة فجنر

https://www.gulfup.com/?YCl5G5
ثانيا الشرح موجود في الصور التالية
1/

https://im36.gulfup.com/DqxaW.png
2/

https://im36.gulfup.com/IxivU.png
3/

https://im36.gulfup.com/3g1PQ.png
4/

https://im36.gulfup.com/oXydU.png
5/
https://im36.gulfup.com/lsHAf.png
6/
https://im36.gulfup.com/WlWWk.png

شكرا

[you92cef]

ارجوا مراجعة الرد 99 الموجود في هده الصفحة فيما يتعلق بكيفية ملء مصفوفة
https://www.djelfa.info/vb/showthread...1135321&page=7

[ssissoume]

rabi ywaf9ak ya khouya w ya3tik matetmena