Помощь - Поиск - Пользователи - Календарь
Полная версия: строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Klimoff
Вообще это программа для поиска цифр в строке и подсчёта их количества, не могли бы вы показать как её исправить что бы она удаляла все цифры в строке?
Код
Var g,x:string;
k,i:byte;
begin
writeln (‘Vvedi stroky’);
readln (x);
g:=’0,1,2,3,4,5,6,7,8,9’;
for i:=1 to length (x) do
if pos  (x[i],g)>0 then inc (k);
readln;
end.


Сколько раз нужно еще повторить - ПОЛЬЗУЕМСЯ ТЕГАМИ для оформления исходников!
volvo
Ну, показывали же: проходить надо по строке в обратном порядке - от конца к началу...
const
digit = '0123456789';
Var
s: string;
i: byte;
begin
writeln ('Vvedi stroky');
readln (s);
for i := length(s) downto 1 do
if pos(s[i], digit) > 0 then delete(s, i, 1);
writeln(s);
readln;
end.
Klimoff
Огромное спасибо!!!!!!!!!!!!!! cool.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.