Определить под каким номером буква встречается в последовательности первый раз

@Kre4o · Регистрация: 24.09.2018

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

С клавиатуры вводится последовательность любых символов, которая заканчивается точкой. Среди всех символов встречаются буквы «A». Программа определяет, под каким номером эта буква встречается в последовательности первый раз.

@Puporev · 16.10.2018, 19:04

Pascal

1	pos('A',s);

@Kre4o · 16.10.2018, 19:08 **[ТС]**

Pascal

var
s:string;
begin
readln(s);
writeln(pos('A',s);
end.

Как можно подправить эту программу?

@Puporev · 16.10.2018, 19:11

Скобку закрывающую добавь в строке 6.

@Kre4o · 16.10.2018, 19:14 **[ТС]**

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

@Puporev · 16.10.2018, 19:15

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

но пишет просто 0,

Значит в строке нет латинской буквы А.

@Kre4o · 16.10.2018, 19:23 **[ТС]**

Я понимаю что уже достал, я валенок, НО программа считает только заглавную букву A и на точку не завершается, я пытался изменить на while '.' do begin, но опять ничего не получилось, знаю что прога простая, но уже 2 час сижу и туплю

@Puporev · 16.10.2018, 19:29

В условии написано

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

С клавиатуры вводится последовательность любых символов, которая заканчивается точкой. Среди всех символов встречаются буквы «A».

Так и вводите строку с точкой в конце, хоть она и нафиг не нужна, а в строке должны быть буквы А.
Ну напишите так.

Pascal

repeat
writeln('Введите строку, содержащую латинские буквы А и оканчивающуюся точкой');
readln(s);
if(pos('A',s)=0)or(s[length(s)]<>'.') then writeln('Неверный ввод, повторите');
until (pos('A',s)>0)and(s[length(s)]='.')

@Kre4o · 16.10.2018, 19:44 **[ТС]**

Снова я)

Pascal

var s:string;
begin
repeat
writeln('Введите строку, содержащую латинские буквы А и оканчивающуюся точкой');
readln(s);
if(pos('A',s)=0)or(s[length(s)]<>'.') then writeln('Неверный ввод, повторите');
until (pos('A',s)>0)and(s[length(s)]='.');
end.

Переделал прогу в такой вид, но когда пишу тип строку, пример: KAK TAKOE VOZMOZHNA.
ничего не выдаёт пишет неверный ввод, крч конкретно туплю(

@Puporev · 16.10.2018, 21:00

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

ничего не выдаёт

Так Вы ничего и не выводите, где строка

Pascal

1	writeln(pos('A',s);

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
		1
	Определить под каким номером буква встречается в последовательности первый раз 16.10.2018, 19:03. Показов 698. Ответов 9 Метки нет (Все метки) С клавиатуры вводится последовательность любых символов, которая заканчивается точкой. Среди всех символов встречаются буквы «A». Программа определяет, под каким номером эта буква встречается в последовательности первый раз. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.10.2018, 19:11	4
	Скобку закрывающую добавь в строке 6. 0

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
	16.10.2018, 19:14 [ТС]	5
	Поставил, работает, но когда делаю проверку как работает программа вписываю символы и ничего, ввожу букву а и т.д , но пишет просто 0, не могу понять почему 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.10.2018, 19:15	6
	Сообщение от Kre4o но пишет просто 0, Значит в строке нет латинской буквы А. 0

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
	16.10.2018, 19:23 [ТС]	7
	Я понимаю что уже достал, я валенок, НО программа считает только заглавную букву A и на точку не завершается, я пытался изменить на while '.' do begin, но опять ничего не получилось, знаю что прога простая, но уже 2 час сижу и туплю 0

	16.10.2018, 21:00