glamurniy_kluben
@glamurniy_kluben
Начинающий програмист))))

Что происходит в процедуре? И почему минимум равен 256?

procedure MasToStr(var a: mas; var res: string);//формирование результирующей строки по массиву
var
   min: integer;
   k: string; c: char;
begin
   res := '';
   min := 256;
   for c := 'A' to 'Z' do
      if (a[c] > 0)  and (a[c] < min) then begin //если буква встретилась
         min := a[c];
         k := c;
      end;
   if (min < 256) then 
      res := ('Буква ' + k + ' встретилась ' + min + ' раз.')
end;
  • Вопрос задан
  • 59 просмотров
Решения вопроса 1
BacCM
@BacCM
C++ почти с рождения
Код лучше вставлять как код - удобнее читать.
В процедуру передается массив. Где по индексам соответствующим кодам символов лежит некое число. Судя по контексту ранее посчитанное количество этих символов. Находим символ с минимальным числом вхождения и формируем выходную строку с сообщением об этом.
Так как массив судя по всему символов, то и начальный min выбирается так чтобы любое значение в нем было меньше него.
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы