Если в обеих строках чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – "нет"

@Rashie · Регистрация: 14.10.2019

Студворк — интернет-сервис помощи студентам

Даны две строки символов, состоящие из строчных английских букв, не содержащие пробелов. Если и в той и в другой строке символов чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – сообщение "нет"

@Puporev · 06.02.2020, 20:04

Pascal

uses crt;
function bukva(s:string):char;
var a:array['a'..'z'] of integer;
    i:integer;
    c,imx:char;
begin
for c:='a' to 'z' do
a[c]:=0;
for i:=1 to length(s) do
inc(a[s[i]]);
imx:='a';
for c:='b' to 'z' do
if a[c]>a[imx] then imx:=c;
bukva:=imx;
end;
var s1,s2:string;
    c1,c2:char;
begin
clrscr;
writeln('Введите 2 строки из строчных латинских букв без пробелов');
readln(s1,s2);
writeln('Самая частая буква в строке 1=',bukva(s1));
writeln('Самая частая буква в строке 2=',bukva(s2));
if bukva(s1)=bukva(s2) then write('Да')
else write('Нет');
readln
end.

@Rashie · 07.02.2020, 18:26 **[ТС]**

Puporev, а как вводить строки, просто у меня ошибку выдаёт?

*а все, поняла, спасибо за программу))

@bormant · 09.02.2020, 10:30

Puporev,

Pascal

21	ReadLn(s1); ReadLn(s2);

Иначе s2 будет всегда пуста.
ReadLn(s1,s2) эквивалентно Read(s1); ReadLn(s2); -- для строк Read(s1) вычитает из input в s1 все до перевода строки, ReadLn(s2) сможет прочитать только перевод строки, s2 будет пустой. Для чисел проблем нет, но со строками такая вот особенность.

@bormant · 09.02.2020, 11:02

Строго говоря, Read(s) читает в строковую переменную до первого перевода строки либо до заполнения переменной s, смотря что произойдет раньше.
Поэтому в ReadLn(s1,s2) переменная s2 может получить непустое значение, если в одну строку ввести более 255 символов (String без явного указания длины в Turbo Pascal эквивалентен String[255]).

@Puporev · 09.02.2020, 11:24

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

Иначе s2 будет всегда пуста.

Наверное так, но я писал в АВС(лень в виртуалку лезьть за ТП) и все работает. У ТС тоже вопросов нет.

@bormant · 09.02.2020, 11:35

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

писал в АВС

PascalABC для ReadLn(s1,s2) ведет себя как ReadLn(s1); ReadLn(s2), что не соответствует ни поведению Turbo Pascal, ни описанию языка Паскаль. Впрочем, ничего удивительного, быть совместимым его авторы не обещали...

@Rashie 0 / 0 / 0 Регистрация: 14.10.2019 Сообщений: 15
		1
	Если в обеих строках чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – "нет" 06.02.2020, 19:13. Показов 1376. Ответов 6 Метки нет (Все метки) Даны две строки символов, состоящие из строчных английских букв, не содержащие пробелов. Если и в той и в другой строке символов чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – сообщение "нет" 0

@Rashie 0 / 0 / 0 Регистрация: 14.10.2019 Сообщений: 15
	07.02.2020, 18:26 [ТС]	3
	Puporev, а как вводить строки, просто у меня ошибку выдаёт? *а все, поняла, спасибо за программу)) 0

@bormant Модератор 7534 / 4394 / 2785 Регистрация: 22.11.2013 Сообщений: 12,588 Записей в блоге: 1
	09.02.2020, 11:02	5
	Строго говоря, Read(s) читает в строковую переменную до первого перевода строки либо до заполнения переменной s, смотря что произойдет раньше. Поэтому в ReadLn(s1,s2) переменная s2 может получить непустое значение, если в одну строку ввести более 255 символов (String без явного указания длины в Turbo Pascal эквивалентен String[255]). 0

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	09.02.2020, 11:24	6
	Сообщение от bormant Иначе s2 будет всегда пуста. Наверное так, но я писал в АВС(лень в виртуалку лезьть за ТП) и все работает. У ТС тоже вопросов нет. 0

@bormant Модератор 7534 / 4394 / 2785 Регистрация: 22.11.2013 Сообщений: 12,588 Записей в блоге: 1
	09.02.2020, 11:35	7
	Сообщение от Puporev писал в АВС PascalABC для ReadLn(s1,s2) ведет себя как ReadLn(s1); ReadLn(s2), что не соответствует ни поведению Turbo Pascal, ни описанию языка Паскаль. Впрочем, ничего удивительного, быть совместимым его авторы не обещали... 0

Опции темы

Если в обеих строках чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – "нет"

Решение