1 или последняя буква в веденном пр. встречается чаще?

[Максим 2013]

Задача: Выяснить, какая из букв первая или последняя введенного с клавиатуры предложения встречается чаще в этом предложении. (вывести информацию о коль-ве букв).

Для вас это наверно легко, а я туплю. в общем кто знает помогите, у меня решающая оценка для аттестата.

[Вадим Мошев]

Конкретно в чём заключается вопрос?

[Максим 2013]

как программе запомнить первую букву предложения, посчитать коль-во такой буквы во всем предложении, потом последней и так же посчитать, а остальное там легко дописать будет.

[alexander13]

	for i := 0 to length (s) do begin
		if (s[i] = s[1]) then inc (fl);
		if (s[i] = s[length(s)]) then inc (ll);
	end;

fl - количество вхождений первой буквы, ll - последней.
Потом их сравнить и вывести ответ.

[Максим 2013]

Спасибо огромное, все написал. Есть только маленькая просьба, желательно чтобы в ответе помимо этого программа писала не только коль-во букв, но и сами буквы

Например:

задаем предложение:ффффффоооо
Моя программа выдаст:
коль-во первой буквы в данном предложении 6
коль-во последней буквы в данном предложении 4
Первая буква встречается чаще. (а мне желательно (Буква ф встречается чаще.)

Как это сделать?

Var s:string;
i,fl,ll:byte;
begin
writeln('Введите текст.');
readln(s);
for i := 0 to length (s) do begin
if (s[i] = s[1]) then inc (fl);
if (s[i] = s[length(s)]) then inc (ll);
end;
Begin
writeln('коль-во первой буквы в данном предложении ',fl);
writeln('коль-во последней буквы в данном предложении ',ll);
if fl>ll then
writeln('Первая буква встречается чаще.')
Else
writeln('Последняя буква встречается чаще.')
End;
End.

[Максим 2013]

Уже не надо, я сам догадался,alexander13 спасибо тебе огромное очень помог.

[Poma][a]

for i := 0 to length (s) do begin
if (s[i] = s[1]) then inc (fl);
if (s[i] = s[length(s)]) then inc (ll);
end;

От 0? А Вам не кажется что из-за этого может возникнуть ошибка?

ТС, в Вашей программе нет инициализации переменных

[alexander13]

Сообщение от Poma][a

От 0? А Вам не кажется что из-за этого может возникнуть ошибка?

Ошибка вряд ли, но это неправильно, согласен. Отвык уже от паскаля с его представлением строк.

Кстати, надо бы добавить в код обработку случая, когда кол-во вхождений первого и последнего символов одинаково.

Upd.
Хотя да, ошибка тоже может возникнуть. Если длина строки будет равна коду первого или последнего символа =)

[Mad_Cat]

И когда первый и последний символы одинаковы еще добавьте

[Вадим Мошев]

То есть, это заранее надо проверить:

if st[1] = st[n] then атататата