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

[you92cef]

بخصوص anagramme
فتم وضع البرنامج وهو شغال 100/100 في الحالات التي يكون ترتيب الحروف فيها مثلا
prenom
nom
true

او الحروف الغير مرتبة ايضا
مثلا ainbendraoui
abdou
true

في حالة العكس مثلا
nom
prenom
فالنتيجة تكون خاطئة

program sol;
uses wincrt;
var m1,m2:string;
d1,d2:integer;
s:boolean;
function anag(m1,m2:string):boolean;
var i,j:integer;
mot1,mot2:string;
begin
d1:=length(m1);
d2:=length(m2);
if d2>d1 then anag:=false
else
i:=1;
j:=1;
if mot1[i]=mot2[j] then begin
i:=i+1;
j:=j+1
end
else begin
j:=j+1;
anag:=anag(mot1[i],mot2[j]);
end
end;
begin
writeln('entrer mot1,mot2');
readln(m1);
readln(m2);
s:=anag(m1,m2);
writeln(s);
end.

لا تنسونا من دعائكم وارجوا ممن لديه دروس خاصة بالسنة الثانية ان يزودنا بها او تمارين واذا امكن بعض الشروحات الخاصة بها ايضا وشكرا للجميع