Удалить из строки ведущие ноли - Turbo Pascal

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

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

Строка содержит только цифры . удалить все впереди стоящие нули.

Решение задачи: «Удалить из строки ведущие ноли»

textual
Листинг программы
  1. var
  2. str: string;
  3. i:integer;
  4. begin
  5. str:='00012344';
  6. i:=1;
  7. while((i<=length(str)) and (str[i]='0')) do inc(i);
  8. delete(str,1,i-1);
  9. writeln(str);
  10. end.

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

  1. В начале объявляются переменные str и i типа string и integer соответственно.
  2. Значение переменной str присваивается строка '00012344'.
  3. Переменная i инициализируется значением 1.
  4. Запускается цикл while, который выполняется до тех пор, пока (i меньше или равно длине строки str) и (строка str[i] равна '0').
  5. Внутри цикла значение переменной i увеличивается на 1.
  6. Вызывается функция delete(str,1,i-1), которая удаляет из строки str все символы от первого до i-1 включительно.
  7. Выводится на экран строка str после удаления ведущих нулей.
  8. Цикл while завершается, так как условие (i меньше или равно длине строки str) становится ложным.
  9. Код завершается, и на экран выводится строка str без ведущих нулей.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 3.556 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы