Версия для печати темы

Автор: Джейн Смит 4.04.2010 16:15

Для строки, которая может начинаться с пробела найти кол-во слов.

Я сделала, но если вначале строки или в конце я ставлю пробел, то выдаёт неправильное значение. Может объясните в чём ошибка?

Program Stroki (input, output);
Uses crt;
Var
  N,b,ch:integer;
  word:string;
Label l;
BEGIN
Clrscr;
writeln('Vvedite stroky:');
readln(word);
n:=length (word);
ch:=1;
b:=pos(' ',word);
l: If b>0
  then
    begin
    ch:=ch+1;
    delete(word,1,b);
    n:=length (word);
If n>0
then
  begin
  b:=pos(' ',word);
  goto l;
  end;
  end;
writeln('V predlogenii ',ch,'slov(o)');
readkey;
END.

Автор: Unconnected 4.04.2010 16:20

http://forum.pascal.net.ru/index.php?showtopic=6972

Автор: Джейн Смит 4.04.2010 16:57

Спасибо, но я не совсем поняла к чему эта ссылка. Программы описанные там довольно сложные, вроде. Я вообще мало что поняла в них. Мне почему-то кажется, что в заданной мне задаче всё должно быть как-то полегче что ли.

Автор: Unconnected 4.04.2010 17:11

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

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;

function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;

   GetWords := n;
end;

Автор: Джейн Смит 4.04.2010 18:08

Большое спасибо)

Автор: Гость 4.04.2010 18:13

Самое простое, наверное - выкинуть все начальные пробелы, если уж они мешают:

while Pos(' ',word)=1 do Delete(word,1,1);

Автор: Lapp 4.04.2010 18:29

Вот, как-то так можно сделать:

const
  A=['A'..'Z']+['a'..'z'];

Var
  i,n: integer;
  s: string;

BEGIN
  writeln('Vvedite stroky:');
  readln(s);
  n:=0;
  for i:=1 to Length(s) do if (s[i] in A)and((i=1)or not(s[i-1] in A)) then Inc(n);
  writeln('V predlogenii ',n,'slov/o/a)');
  ReadLn;
END.

Автор: Archon 7.04.2010 21:47

for i:=1 to Length(s) do if (s[i] in A)and((i=1)or not(s[i-1] in A)) then Inc(n);

Автор: Lapp 8.04.2010 7:23

Цитата(Archon @ 7.04.2010 18:47)

Автор: Archon 8.04.2010 11:12

Действительно, я и забыл об этой директиве. Но формально, это все же оптимизация, ведь условие - это не более, чем арифметическое выражение, и как оно вычисляется - дело компилятора. Во всяком случае в курсе теории языков программирования подобная задача входила в тему "оптимизация". Имхо, любое выражение должно быть вычислимо полностью, а то так дойдет до того, что выражение "a := 10 * b + 0 * c / 0;" корректно, потому что второй многочлен уже после умножения "очевидно" равен нулю .

Но если окажется, что директива $B является частью языка паскаль и обязана присутствовать в любом его компиляторе, тогда я соглашусь, что использование подобных логических выражений в целом корректно (хотя {$B-} лучше все таки явно указать).

Автор: Lapp 8.04.2010 12:47

Цитата(Archon @ 8.04.2010 8:12)

формально, это все же оптимизация, ведь условие - это не более, чем арифметическое выражение, и как оно вычисляется - дело компилятора. Во всяком случае в курсе теории языков программирования подобная задача входила в тему "оптимизация". Имхо, любое выражение должно быть вычислимо полностью, а то так дойдет до того, что выражение "a := 10 * b + 0 * c / 0;" корректно, потому что второй многочлен уже после умножения "очевидно" равен нулю .

(кстати, забавная выбрана форма, некая "декларация свобод" , как будто речь идет об их ущемлении)