Символьный массив в Pascal(Delphi)

[ZveRtheGameS]

Сразу извиняюсь за нелепые вопросы, так как я пока что новичок в pascal*e, собственно сам вопрос:

Ввести 20 строчек на английским языком большими буквами. Определить какие буквы присутствовали в данных предложениях, какая буква встречалась больше раз и напечатать их.
Если вам нужны мои наработки, я могу предоставить, пожалуйста расскажите решение по подробнее, искренне за ранее благодарю за помощь!

[Arigato]

Ну как-то так (для одной строки):

type
  TChars = array[Char] of ShortInt;

var
  Chars: TChars;
  S: string[127];
  i: ShortInt;
  MaxCount: ShortInt = 0;
  MaxChar: Char = #0;

begin
  FillChar(Chars, SizeOf(Chars), 0);
  ReadLn(S);
  for i := 1 to Byte((@S)^) do begin
    if not Boolean(Chars[S[i]]) then Write(S[i]);
    Inc(Chars[S[i]]);
    if Boolean((MaxCount - Chars[S[i]]) shr 7) then begin
      MaxCount := Chars[S[i]];
      MaxChar := S[i];
    end; {if}
  end; {for}
  WriteLn(#13#10'Max: ', MaxChar);
end.

[ZveRtheGameS]

Сообщение от Arigato

Ну как-то так (для одной строки):

type
  TChars = array[Char] of ShortInt;

var
  Chars: TChars;
  S: string[127];
  i: ShortInt;
  MaxCount: ShortInt = 0;
  MaxChar: Char = #0;

begin
  FillChar(Chars, SizeOf(Chars), 0);
  ReadLn(S);
  for i := 1 to Byte((@S)^) do begin
    if not Boolean(Chars[S[i]]) then Write(S[i]);
    Inc(Chars[S[i]]);
    if Boolean((MaxCount - Chars[S[i]]) shr 7) then begin
      MaxCount := Chars[S[i]];
      MaxChar := S[i];
    end; {if}
  end; {for}
  WriteLn(#13#10'Max: ', MaxChar);
end.

С ошибкой решение, да и какое то странное... В решении используется массив, фор, логические переменные. Я просто по логике понимаю как записать, но в программе... Да и преподаватель говорит ищите в ответы на вопросы в интернете

[Poma][a]

Ну как-то так (для одной строки):

А как же картинка?

for i := 1 to Byte((@S)^) do begin

Суперский Length(s)

Boolean((MaxCount - Chars[S[i]]) shr 7)

Сдесь я что-то не догоняю.. Первую истину мы полчим при MaxCount - Chars[S[i]] = 128... Или нет?

[Serge_Bliznykov]

ловите код:

const n = 20;
var 
  ch : char;
  CounterChars : array['A'..'Z'] of integer;
  i,j, MaxCnt : integer;
  s : string;
begin
  {обнулим массив счётчиков}
  for ch:='A' to 'Z' do CounterChars[ch] := 0;


  WriteLn;
  for j:=1 to n do begin {цикл по всем 20 строчкам}
    Write('Введите ',j,'-ю строку: ');
    Readln(s);

    for i:=1 to Length(s) do
      if s[i] in ['A'..'Z'] then {условиями задачи нам даётся, 
               что буквы только прописные латинские, но защититься от "дурака",
               который ввёл всё, что угодно не помешает!}
          inc(CounterChars[s[i]]); {увеличим на единицу счётчик очердной буквы}

  end; 

  {найдём максимальное значение == какая буква встречалась чаще всего}
  MaxCnt := 0;
  for ch:='A' to 'Z' do 
    if CounterChars[ch] > MaxCnt then MaxCnt := CounterChars[ch];

  {выведем все буквы, которые встретились максимальное число раз}
  for ch:='A' to 'Z' do 
    if CounterChars[ch] = MaxCnt then 
       WriteLn('буква ',ch,' встретилась ',CounterChars[ch],' раз');

  {вывести все буквы, которые встречались}
  WriteLn('Встречались следующие буквы (в алфавитном порядке): ');
  for ch:='A' to 'Z' do 
    if CounterChars[ch] > 0 then 
       Write(ch,'(',CounterChars[ch],' )  ');

  Writeln; 
  WriteLn('Для выхода из программы нажмите ENTER');
  Readln
    
end.

если есть вопросы - задавайте.

[Arigato]

Сообщение от ZveRtheGameS

С ошибкой решение, да и какое то странное...

В чем ошибка?

[ZveRtheGameS]

Сообщение от Serge_Bliznykov

ловите код:

const n = 20;
var 
  ch : char;
  CounterChars : array['A'..'Z'] of integer;
  i,j, MaxCnt : integer;
  s : string;
begin
  {обнулим массив счётчиков}
  for ch:='A' to 'Z' do CounterChars[ch] := 0;


  WriteLn;
  for j:=1 to n do begin {цикл по всем 20 строчкам}
    Write('Введите ',j,'-ю строку: ');
    Readln(s);

    for i:=1 to Length(s) do
      if s[i] in ['A'..'Z'] then {условиями задачи нам даётся, 
               что буквы только прописные латинские, но защититься от "дурака",
               который ввёл всё, что угодно не помешает!}
          inc(CounterChars[s[i]]); {увеличим на единицу счётчик очердной буквы}

  end; 

  {найдём максимальное значение == какая буква встречалась чаще всего}
  MaxCnt := 0;
  for ch:='A' to 'Z' do 
    if CounterChars[ch] > MaxCnt then MaxCnt := CounterChars[ch];

  {выведем все буквы, которые встретились максимальное число раз}
  for ch:='A' to 'Z' do 
    if CounterChars[ch] = MaxCnt then 
       WriteLn('буква ',ch,' встретилась ',CounterChars[ch],' раз');

  {вывести все буквы, которые встречались}
  WriteLn('Встречались следующие буквы (в алфавитном порядке): ');
  for ch:='A' to 'Z' do 
    if CounterChars[ch] > 0 then 
       Write(ch,'(',CounterChars[ch],' )  ');

  Writeln; 
  WriteLn('Для выхода из программы нажмите ENTER');
  Readln
    
end.

если есть вопросы - задавайте.

Спасибо, Вы очень помогли мне!