Другой способ

@XaKO · Регистрация: 23.10.2012

Задача:
Заменить все многоточия точками.
Знаю, что задача идиотская, я ее решил 2 способами:
№1

Pascal

var
   sim:string;
   n:integer;
begin
     writeln('строка');
     readln(sim);
     while pos('...',sim)<>0 do
     begin
     n:=pos('...',sim);
     delete(sim,n,2);
     end;
     writeln(sim);
end.

Pos ищет многоточие удаляет 2 точки, но проблема такого способа в том что Pos работает с начала строки, то есть
если вся строка точки то ничего работать не будет.

№2

Pascal

var
   sim:string;
   i:integer;
begin
     writeln('строка');
     readln(sim);
     while i<length(sim) do
     begin
     if (sim[i]='.') and(sim[i+1]='.') and(sim[i+1]='.') then
     begin
     delete(sim,i,2);
     inc(i);
     end
     else
     inc(i);
     end;
     writeln(sim);
end.

Такой способ работает всегда, но преподу не нравится что я использую

Pascal

1	if (sim[i]='.') and(sim[i+1]='.') and(sim[i+1]='.') then

так как это плохой стиль, и нужно использовать pos

Итак вопрос: какой 3 способ???

@КонецСвета · 19.11.2012, 14:04

если ваш педагог хочет, чтобы вы использовали возможности обработки строк по максимуму, то =)

Pascal

if copy(s,i,3)='...' then
   begin
   delete(s,i,3);
   insert('.',s,i);
   end;

или

Pascal

1 2	if copy(s,i,3)='...' then delete(s,i,2);

@XaKO · 19.11.2012, 17:44 **[ТС]**

Спасибо)

@Puporev · 19.11.2012, 17:47

Pascal

1	while pos('...',s)>0 do delete(s,pos('...',s),2);

@XaKO 23 / 23 / 30 Регистрация: 23.10.2012 Сообщений: 344
	19.11.2012, 17:44 [ТС]	3
	Спасибо) 0

Опции темы