С клавиатуры вводится символьная строка определите какой символ встречается в ней чаще всего
Опубликовано 11.06.2017 по предмету Информатика от Гость >>
Ответ оставил Гость
Type
index=0..z;
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
< очищаем массив счетчиков >
for i:=0 to 255 do Ch[i]:=0;
Writeln(Введите текст);
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do < не рассматриваем непечатаемые символы и пробел>
if max Оцени ответ
С клавиатуры вводится символьная строка.Определите какой символ встречается в ней чаще всего
Type
index=’0′..’z’;
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
< очищаем массив счетчиков >
for i:=0 to 255 do Ch[i]:=0;
Writeln(‘Введите текст’);
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do < не рассматриваем непечатаемые символы и пробел>
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln(‘Символ «‘,Chr(imax),'» встретился ‘,max,’ раз(а)’)
end.
<em><u>Тестовое решение:</u></em>
Введите текст
«Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет.» (В.Шекспир)
Символ «о» встретился 9 раз(а)
С клавиатуры вводится символьная строка.Определите какой знак встречается в ней
Type
index=’0′..’z’;
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
очищаем массив счетчиков
for i:=0 to 255 do Ch[i]:=0;
Writeln(‘Введите текст’);
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do не разглядываем непечатаемые знаки и пробел
if maxlt;Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln(‘Символ «‘,Chr(imax),'» повстречался ‘,max,’ раз(а)’)
end.
Тестовое решение:
Введите текст
«Что означает имя? Роза благоухает розой, хоть розой назови её, хоть нет.» (В.Шекспир)
Знак «о» повстречался 9 раз(а)