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

String41. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.

Решение:

program Boolean15;
var
 S:String;
 i,Num:integer;

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

  i:=1;
  Num:=0;
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') and (S[i-1]<>' ') then inc(Num);
    inc(i);
   end;
  Writeln(Num+1);
end.

program Boolean15;

var

S:String;

i,Num:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

While (i<=Length(S)) do

begin

if (S[i]=' ') and (S[i-1]<>' ') then inc(Num);

inc(i);

end;

Writeln(Num+1);

end.

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

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

program string_41; //PascalABC.NET

begin
  var s := '  Hello   world!  Z';
  var count := 0;
  var i := 1;
  
  while i < s.Length do
  begin
    if s[i] = ' ' then
      if (s[i + 1] <> ' ') and (i + 1 = s.Length) then
        count += 1
      else
      begin
        i += 1;
        continue
      end
    else if (s[i + 1] = ' ') or (i + 1 = s.Length) then
      count += 1;
    i += 1;
  end;
  
  writeFormat('Слов в строке: {0}', count); //3
  
end.

program string_41; //PascalABC.NET

begin

var s := ' Hello world! Z';

var count := 0;

var i := 1;

while i < s.Length do

begin

if s[i] = ' ' then

if (s[i + 1] <> ' ') and (i + 1 = s.Length) then

count += 1

else

begin

i += 1;

continue

end

else if (s[i + 1] = ' ') or (i + 1 = s.Length) then

count += 1;

i += 1;

end;

writeFormat('Слов в строке: {0}', count); //3

end.

Ответить

Оптимизированный цикл:

  while i < s.Length do
  begin
    if s[i] <> ' ' then
      if (s[i + 1] = ' ') or (i + 1 = s.Length) then
        count += 1
      else
    else if s[i] = ' ' then
      if (s[i + 1] <> ' ') and (i + 1 = s.Length) then
        count += 1;
    i += 1;
  end;

while i < s.Length do

begin

if s[i] <> ' ' then

if (s[i + 1] = ' ') or (i + 1 = s.Length) then

count += 1

else

else if s[i] = ' ' then

if (s[i + 1] <> ' ') and (i + 1 = s.Length) then

count += 1;

i += 1;

end;

Ответить

Изменил немного ваш вариант, вроде работает, как надо

program string_41;//PascalABC.NET

begin
  var s := ' Hello world! Zzzz';
  var count := 0;
  var i := 1;
  
  while i <= s.Length do 
  begin
    if s[i] <> ' ' then
        if (i = s.Length) or (s[i + 1] = ' ') then
          count += 1;   
    i += 1;
  end;
  
  writeFormat('Слов в строке: {0}', count); //Слов в строке: 3
  
end.

program string_41;//PascalABC.NET

begin

var s := ' Hello world! Zzzz';

var count := 0;

var i := 1;

while i <= s.Length do

begin

if s[i] <> ' ' then

if (i = s.Length) or (s[i + 1] = ' ') then

count += 1;

i += 1;

end;

writeFormat('Слов в строке: {0}', count); //Слов в строке: 3

end.

Ответить

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

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

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

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