Написать процедуру, удаляющую из строки первое слово - Pascal ABC
Формулировка задачи:
Написать процедуру, удаляющую из строки первое слово.
Решение задачи: «Написать процедуру, удаляющую из строки первое слово»
textual
Листинг программы
uses crt; procedure DelFirstWord(var s:string); var i:integer; b:boolean; begin b:=false; for i:=1 to length(s) do if s[i] = ' ' then b:=true; i:=1; if b = true then begin while (s[i]<>' ') do inc(i); s:=copy(s,i+1,length(s)); end; end; var s:string; begin write('Введите слово: '); readln(s); DelFirstWord(s); writeln(s); end.
Объяснение кода листинга программы
- В начале объявляются необходимые переменные: b, i, s.
- Переменная b инициализируется значением false.
- Затем идет цикл for, который выполняется от 1 до длины строки s.
- Внутри цикла проверяется условие: если текущий символ в строке равен пробелу, то переменная b устанавливается в значение true.
- После завершения внутреннего цикла переменная i инициализируется значением 1.
- Если значение переменной b равно true, то начинается следующий блок кода.
- Внутри этого блока происходит чтение строки s с помощью функции readln.
- Затем вызывается процедура DelFirstWord, передавая ей строку s в качестве аргумента.
- После выполнения процедуры s перезаписывается, причем начиная с позиции i+1 и до конца строки (так как в процедуре s[i] присваивается значение копирования).
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д