Удалить предпоследние буквы в словах строки

@Core2Duo · Регистрация: 28.07.2011

Author24 — интернет-сервис помощи студентам

Понадобилось вспомнить, писал на PABC (ну, чтобы удобнее), а потом оказалось, что в turbo нет оператора одного. Короче, программа не станет работать там, где ее будут проверять, без этого оператора я не осилил, как же составить алгоритм.

Итак, задача: удалить из слов фразы (любой) предпоследнюю букву, в конце фразы точка, фраза через read() берется.
Вот то, что я наваял. там еще вывод файл, но это и так очевидно все.

posEx нет в паскале, а я использовал. Наверняка, решение простое

Pascal

Program text;
uses crt;
var output:file;
    input:string;
    position,len:integer;
 
 
begin
write('enter the text: '); 
read(input);
Assign(output,'output.txt');
Rewrite(output);
 
position:=posex(' ', input)-1; {позиция первого пробела}
len:=Length(input); {длина строки (кол-во символов)}
 
while (posex(' ', input,position) > 0) do 
  begin                                                    
  position:=posex(' ', input,position);
Delete(input,position-2,1);
position:=position+2;
len:=len-1;
end;
Delete(input,len-2,1); 
 
 
 write(output,input); 
 Close(output);  
 
 
 
end.

@CodeR · 26.11.2012, 08:41

Pascal

Program text;
var output:file;
    input,s,s1:string;
    position,len:integer;
 
 
begin
write('enter the text: '); 
read(input);
Assign(output,'output.txt');
Rewrite(output);
input:=input+' ';
s:='';
while Pos(' ',input)>0 do 
  begin                                                    
  s1:=Copy(input,1,Pos(' ',input)-1);
  Delete(input,1,Pos(' ',input));
  if Length(s1)>1 then Delete(s1,Length(s1)-1,1);
  s:=s+s1+' ';
  end;
Delete(s,Length(s),1);
write(output,s); 
Close(output);  
end.

	26.11.2012, 08:41