Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ строки

Автор: Klimoff 26.05.2006 0:41

Вообще это программа для поиска цифр в строке и подсчёта их количества, не могли бы вы показать как её исправить что бы она удаляла все цифры в строке?

Код
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 26.05.2006 5:49

Ну, показывали же: проходить надо по строке в обратном порядке - от конца к началу...

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 26.05.2006 11:18

Огромное спасибо!!!!!!!!!!!!!! cool.gif