بخصوص 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.
لا تنسونا من دعائكم وارجوا ممن لديه دروس خاصة بالسنة الثانية ان يزودنا بها او تمارين واذا امكن بعض الشروحات الخاصة بها ايضا وشكرا للجميع