Удалить из строки ведущие ноли - Turbo Pascal
Формулировка задачи:
Строка содержит только цифры . удалить все впереди стоящие нули.
Решение задачи: «Удалить из строки ведущие ноли»
textual
Листинг программы
- var
- str: string;
- i:integer;
- begin
- str:='00012344';
- i:=1;
- while((i<=length(str)) and (str[i]='0')) do inc(i);
- delete(str,1,i-1);
- writeln(str);
- end.
Объяснение кода листинга программы
- В начале объявляются переменные str и i типа string и integer соответственно.
- Значение переменной str присваивается строка '00012344'.
- Переменная i инициализируется значением 1.
- Запускается цикл while, который выполняется до тех пор, пока (i меньше или равно длине строки str) и (строка str[i] равна '0').
- Внутри цикла значение переменной i увеличивается на 1.
- Вызывается функция delete(str,1,i-1), которая удаляет из строки str все символы от первого до i-1 включительно.
- Выводится на экран строка str после удаления ведущих нулей.
- Цикл while завершается, так как условие (i меньше или равно длине строки str) становится ложным.
- Код завершается, и на экран выводится строка str без ведущих нулей.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д