Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Как подсчитать кол-во пробелов идущих

Автор: Alex103 16.2.2007, 02:01

Столкнулся с такой проблеммой, вроди все просто но не могу решить небольшую задачку.
Сут в следующем, есть массив символов мне нужно подсчитать максимально кол-во пробелов идущих подряд!

Автор: VICTAR 16.2.2007, 03:08

Код


function MaxSpaces(s: string): integer;
var i, tmp  : integer;
begin
  result:=0;
  tmp:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
      begin
        inc(tmp);
        if tmp>result then result:=tmp;
      end else tmp:=0;
end;

Автор: Rodman 16.2.2007, 10:19

ну вооще то вопрос для ЦЕНТРА ПОМОЩИ

Код


function MaxSpaces(s: string): integer;
var i, tmp, count  : integer;
begin
  result:=0;
  tmp:=0;
  count:=0;
  for i:=1 to length(s) do
  begin
    if(tmp>count)then
      count:=tmp; 
    if s[i]=' ' then
        inc(tmp)
    else
        tmp:=0;
   end;
   writeln(count);
end;

Автор: Oleg_Ci 16.2.2007, 13:51

Код


program Project1;
{$APPTYPE CONSOLE Borland Delphi 2005}

uses
  SysUtils;

var
  str:string;

function spaces( s:string ): smallint;
var
  i, size, tmp: smallint;
begin
  size:=0;
  tmp:=0;
  for i:=0 to length(s) do
    if( s[i]=' ' ) then
      tmp:=tmp+1
    else begin
      if( size<tmp ) then
        size:=tmp;
      tmp:=0;
    end;
  spaces:=size;
end;

begin
  write('Enter string -> ');
  readln(str);
  writeln(str);
  writeln('Max spaces = ', spaces(str));
  readln; { пауза }
end.

Автор: V.A.KeRneL 16.2.2007, 14:02

Оба на! Oleg_Ci, ты что, Delphi начал изучать? ))

Автор: Oleg_Ci 16.2.2007, 17:47

Ну хотябы читать программы на pasсal/delphi научится надо smile

Автор: V.A.KeRneL 18.2.2007, 18:15

Цитата(Oleg_Ci @ 16.2.2007, 17:47

)

Ну хотябы читать программы на pasсal/delphi научится надо smile

Да, это правильно, молодец! smile

З.Ы. Пусть автор топика (Alex103) не забывает помечать свои задачки решёнными! smile