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

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

Решение:

program String46;
var
 S:String;
 i,Num,NumC,MaxNumC:integer;

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

  i:=1;
  Num:=0;
  NumC:=0;
  MaxNumC:=0;

  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;
  Writeln(MaxNumC);
end.

program String46;

var

S:String;

i,Num,NumC,MaxNumC:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

NumC:=0;

MaxNumC:=0;

While (i<=Length(S)) do

begin

if (S[i]=' ') then

begin

if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;

NumC:=0;

end

else inc (NumC);

inc(i);

end;

if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;

Writeln(MaxNumC);

end.

Решение от Newton:

program String46;

const
   Space    = ' ';

var
   Line               : string;
   WordLen, MaxLen    : byte;
   Counter            : byte;
   
begin 
   writeln('Enter a string: ');
   readln(Line);
   WordLen := 0;
   MaxLen  := 0;
   for Counter := 1 to Length(Line) do
      begin
         if (Line[Counter] <> Space) then
            inc(WordLen);
         if (Line[Counter] = Space) or (Counter = Length(Line)) then
            begin
               if (WordLen > MaxLen) then 
                  MaxLen := WordLen;
               WordLen := 0;
            end;
      end;
   writeln('The longest word in the string contains ', MaxLen, ' character(s)');
end.

program String46;

const

Space = ' ';

var

Line : string;

WordLen, MaxLen : byte;

Counter : byte;

begin

writeln('Enter a string: ');

readln(Line);

WordLen := 0;

MaxLen := 0;

for Counter := 1 to Length(Line) do

begin

if (Line[Counter] <> Space) then

inc(WordLen);

if (Line[Counter] = Space) or (Counter = Length(Line)) then

begin

if (WordLen > MaxLen) then

MaxLen := WordLen;

WordLen := 0;

end;

writeln('The longest word in the string contains ', MaxLen, ' character(s)');

end.

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

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

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

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

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