Pascal - строки

[Kris92]

помогите пожалуйста,нужна программка срочно на тему Pascal - строки.
вот задание: дана строка, заканчивающаяся точкой. подсчитать, сколько слов в строке.

[Stilet]

http://www.programmersforum.ru/showt...369#post398369
Здесь после прохода программы переменная count будет содержать колво слов

[profu]

Сообщение от Kris92

помогите пожалуйста,нужна программка срочно на тему Pascal - строки.
вот задание: дана строка, заканчивающаяся точкой. подсчитать, сколько слов в строке.

program prog1;
uses crt;
var
 S: String;
 i: integer;
 count: integer;
 t: boolean;
 len: integer;
begin
 clrscr;
 write('Stroka: ');
 readln(S);
 t:=false;
 count:=0;
 len:=Length(S);
 if S[Len]<>'.' then
  begin
   S:=S+'.';
   Len:=Len+1;
  end;
 for i:=1 to len do
  if S[i]='.' then
   begin
    if t=false then
     begin
      t:=true;
      count:=count+1;
     end
   end
   else
   if t=true then
    t:=false;
 write('Kol. predlogenii v stroke: ', count);
 readln;
end.

[Kris92]

спасибочки большое!)

[Don Karleone]

Сообщение от profu

program prog1;
uses crt;
var
 S: String;
 i: integer;
 count: integer;
 t: boolean;
 len: integer;
begin
 clrscr;
 write('Stroka: ');
 readln(S);
 t:=false;
 count:=0;
 len:=Length(S);
 if S[Len]<>'.' then
  begin
   S:=S+'.';
   Len:=Len+1;
  end;
 for i:=1 to len do
  if S[i]='.' then
   begin
    if t=false then
     begin
      t:=true;
      count:=count+1;
     end
   end
   else
   if t=true then
    t:=false;
 write('Kol. predlogenii v stroke: ', count);
 readln;
end.

Извиняйте, но в задании сказано подсчитать количество слов в строке а не количество предложений.

[VektorAB]

uses crt;
var
 S: String;
 i: integer;
 count: integer;
 t: boolean;
 len: integer;
begin
 clrscr;
 write('Stroka: ');
 readln(S);
 t:=false; 
 count:=1;
 len:=Length(S);
 if S[Len]<>'.' then
  begin
   S:=S+'.';
   Len:=Len+1;
  end;
 for i:=1 to len do
  if S[i]=' ' then
   begin
    if t=false then
     begin
      t:=true;
      count:=count+1;
     end
   end
   else
   if t=true then
    t:=false;
 write('Kol. predlogenii v stroke: ', count);
 readln;
end.

Воспользовался вышенаписанной программой.

[Kris92]

помогите ещё вот эту задачку,если не сложно)))
дана строка символов. получить новую строку, взяв из данной все символы до первого двоеточия и после последнего двоеточия. если двоеточие отсутствует или встречается в строке только один раз то вывести соответствующее сообщение.

[VektorAB]

Сообщение от Kris92

помогите ещё вот эту задачку,если не сложно)))
дана строка символов. получить новую строку, взяв из данной все символы до первого двоеточия и после последнего двоеточия. если двоеточие отсутствует или встречается в строке только один раз то вывести соответствующее сообщение.

Сначала делаешь проверки на присутсвие двоеточий.
Потом находишь первое двоеточие, функцией copy создаеш строку(str),
находишь последнее двоеточие, пользуешься функией copy, создаеш строку (str1);
И соединяешь их Concat-ом.

[Kris92]

эх,я не понимаю совсем((((
можешь програмку написать? пожалуйста))

[Snejnaya]

var str, str1, str2:string;
    n1,n2:integer;
    
begin
writeln('vvedite stroku');
readln(str);
n1:=Pos(':',str);
if (n1=0) then
writeln('v stroke net dvoetochiy!')
else
begin
str1:=copy(str,1,n1);
delete(str,1,n1);
n2:=Pos(':',str);
if (n2=0) then
writeln('v stroke odno dvoetochie!')
else
begin
while(n2<>0) do
  begin
  delete(str,1,n2);
  n2:=Pos(':',str)
  end;
str1:=str1+str;
end;
end;
end.