Процедура: напечатать текст, составленный из последних букв всех слов строки - PascalABC.NET
Формулировка задачи:
Решение задачи: «Процедура: напечатать текст, составленный из последних букв всех слов строки»
procedure tekst(s:string;var s1:string);
var i:integer;
begin
s1:='';
for i:=2 to length(s) do
if s[i]=' ' then s1:=s1+s[i-1]);
end;
var s,s1:string;
begin
writeln('vvedite stroku');
readln(s);
s:=s+' ';
tekst(s,s1);
writeln('slovo:');
writeln(s1);
end.
Объяснение кода листинга программы
В данном коде представлена процедура под названием tekst, которая принимает два аргумента: строку s и строку s1. Переменная s используется для хранения исходной строки, а s1 - для хранения результата обработки.
Сначала инициализируется переменная s1 пустой строкой. Затем в цикле, который начинается с индекса 2 (чтобы исключить пробел в начале строки) и идет до конца строки, проверяется, является ли текущий символ пробелом. Если это так, то к переменной s1 добавляется символ, предшествующий пробелу.
После того, как все пробелы обработаны, вызывается функция tekst, передавая ей в качестве аргументов строку s и переменную s1. Затем выводится сообщение с текстом vvedite stroku (введите строку), и пользователь вводит строку. Эта строка добавляется в конец исходной строки (чтобы избежать обработки пустой строки), и затем вызывается функция tekst с обновленными аргументами. Наконец, выводится сообщение slovo: и результат обработки строки.
Список элементов кода:
- Процедура
tekst - Переменная
s - Переменная
s1 - Цикл от 2 до длины строки
- Проверка, является ли текущий символ пробелом
- Добавление предшествующего пробелу символа к переменной
s1 - Вызов функции
tekst - Ввод строки пользователем
- Добавление введенной строки к исходной строке
- Вызов функции
tekst - Вывод сообщения
slovo: - Вывод результата обработки строки
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д