Решаем задачи Абрамян на Паскале. String39

String39. Дана строка, содержащая по крайней мере один символ пробела. Вывести подстроку, расположенную между первым и вторым пробелом исходной строки. Если строка содержит только один пробел, то вывести пустую строку.

Решение:

program String39;
var
 S:string;
 poz1,poz2,i:integer;


begin
 Write('S:');
 Readln(S);

 poz1:=pos(' ',S);
 delete(S,poz1,1);

 poz2:=pos(' ',S);

 Writeln(copy(S,poz1,poz2-poz1));
end.

program String39;

var

S:string;

poz1,poz2,i:integer;

begin

Write('S:');

Readln(S);

poz1:=pos(' ',S);

delete(S,poz1,1);

poz2:=pos(' ',S);

Writeln(copy(S,poz1,poz2-poz1));

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 1

Bronislav

27.06.2018 в 14:34

//PascalABC.NET begin var s := 'Hello PascalABC.NET '; var i := Pos(' ', s); write(Copy(s, i + 1, Pos(' ', s, i + 1) - (i + 1))); end.

1
2
3
4
5
6
7
8

//PascalABC.NET
begin
  var s := 'Hello PascalABC.NET ';
  var i := Pos(' ', s);

  write(Copy(s, i + 1, Pos(' ', s, i + 1) - (i + 1)));

end.

Я не вполне понимаю, как это работает в PascalABC.NET, но это работает. Например если строка содержит единственный пробел последним символом, то почему не происходит ошибки выхода индекса за пределы диапазона строки в Pos(‘ ‘, s, i + 1), если, например, в Pos(‘ ‘, s, i + 2) уже выдает такую ошибку.

Ответить

Решаем задачи Абрамян на Паскале. String39

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ