Создать программу, которая будет убирать по одной букве с начала слова - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Написать программу, которая слово "комната" напечатает в столбик, сначала убирая по одной букве с начала слова, затем убирая по одной последней букве, затем просклонять это слово по падежам. Пример: Комната омната мната ната ата та а

Решение задачи: «Создать программу, которая будет убирать по одной букве с начала слова»

textual
Листинг программы
var s:string;
begin
s:='Комната';
while length(s)>0 do
 begin
  writeln(s);
  delete(s,1,1);
 end;
s:='Комната';
while length(s)>0 do
 begin
  writeln(s);
  delete(s,length(s),1);
 end;
s:='Комната';
writeln(s);
s[length(s)]:='ы';
writeln(s);
s[length(s)]:='е';
writeln(s);
s[length(s)]:='у';
writeln(s);
s:=copy(s,1,6)+'ой';
writeln(s);
s:='о '+copy(s,1,6)+'е';
writeln(s);
s[1]:='в';
writeln(s);
end.

Объяснение кода листинга программы

  1. Создается переменная s типа string, которая инициализируется значением 'Комната'.
  2. Запускается цикл while, условием которого является длина строки s больше 0.
  3. Внутри цикла выводится значение переменной s.
  4. Вызывается функция delete(s,1,1), которая удаляет символ с начала строки s.
  5. Повторно запускается цикл while, условием которого является длина строки s больше 0.
  6. Внутри цикла выводится значение переменной s.
  7. Вызывается функция delete(s,length(s),1), которая удаляет символ с конца строки s.
  8. Выводится значение переменной s.
  9. Выделяется последний символ строки s с помощью оператора [length(s)].
  10. Значение последнего символа присваивается переменной s.
  11. Выводится значение переменной s.
  12. Выделяется первый символ строки s с помощью оператора [1][length(s)].
  13. Значение первого символа присваивается переменной s.
  14. Выводится значение переменной s.
  15. Выделяется средний символ строки s с помощью оператора [1+(length(s)/2)].
  16. Значение среднего символа присваивается переменной s.
  17. Выводится значение переменной s.
  18. Строка s преобразуется с помощью оператора copy(s,1,6)+'ой', чтобы добавить к началу строки 'ой'.
  19. Выводится значение переменной s.
  20. Строка s преобразуется с помощью оператора s[1]+='в', чтобы добавить к началу строки 'в'.
  21. Выводится значение переменной s.
  22. Программа завершается.

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы