Написать программу, которая выполняет поиск введенного с клавиатуры символа в строке - Pascal ABC
Формулировка задачи:
Написать программу, которая выполняет поиск введенного с клавиатуры символа в строке. Вывести указатель на первый найденный символ на экран
Решение задачи: «Написать программу, которая выполняет поиск введенного с клавиатуры символа в строке»
textual
Листинг программы
var
s: string;
p: integer;
c: char;
begin
writeln('Введите строку:');
readln(s);
write('Введите символ: ');
readln(c);
p := pos(c, s);
if p > 0
then write('Позиция первого найденного символа "', c, '": ', p)
else write('Такого символа в строке нет')
end.
Объяснение кода листинга программы
- Введенная строка сохраняется в переменной s.
- Введенный символ сохраняется в переменной c.
- Функция pos(c, s) возвращает позицию первого вхождения символа c в строке s. Если символ не найден, функция возвращает 0.
- Если позиция символа больше 0, то выводится сообщение о позиции первого найденного символа.
- Если позиция символа равна 0, то выводится сообщение о том, что такого символа в строке нет.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д