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

[salemk]

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

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

program ee;
uses wincrt;

var
lettre :array['A'..'Z'] of integer;
ch:string;
i:char;
j:integer;

begin
repeat
writeln('saisir une chaine');
readln(ch);
until ch<>'';

for i:='A' to 'Z' do
    for j:=1 to length(ch) do
        if upcase(ch[j])=i then
           lettre[i]:=lettre[i]+1;


for i := 'A' to 'Z' do
if lettre[i]<>0 then
writeln(i, ' pour ',lettre[i],' fois');
end.