Преподавание информатики в контексте проблемных для учащихся вопросов ЕГЭ

Отправлено: 18.03.11 17:02. Заголовок: Здравствуйте! Эта за..

Здравствуйте!
Эта задача полностью аналогична задаче 25 из файла C4.doc<\/u><\/a> (решение с подробным объяснением приведено в файле answC4.doc<\/u><\/a> на страницах 43-45).
Отличие состоит в том, что здесь используются не цифры, а латинские буквы, но суть не меняется. Немного усложняется техника - нужно использовать функции Chr и Ord для перехода от кода к символу и обратно. Решение может быть, например, такое:

 program qq; 
 var c:char; 
     num, ind:array[0..25] of integer; 
     m, j, k: integer; 
     с:char; 
 begin 
     { начальные значения } 
   for m:=0 to 25 do begin 
     num[m] := 0; 
     ind[m] := m; 
   end; 
     { ввод данных, подсчет количества букв в массиве num } 
   read(c); 
   while c <> '.' do begin 
     if ('a' <= c) and (c <= 'z') then begin 
        k := Ord(c) - Ord('a'); 
        num[k] := num[k] + 1; 
     end;    
     read(c); 
   end; 
     { сортировка "пузырьком" } 
   for m:=0 to 24 do 
    for j:=24 downto m do 
     if num[ind[j]] > num[ind[j+1]] then begin  
        k:=ind[j]; ind[j]:=ind[j+1]; ind[j+1]:=k  
     end; 
     { вывод результата } 
   for m:=0 to 25 do 
    if num[ind[m]]<>0 then write(Chr(Ord('a')+ind[m])) 
 end.