Программа, которая во введенной строке находит и выводит на экран все слова на букву "л"

@Cider · Регистрация: 06.05.2014

Приветствую всех! Прошу помощи по доведению до ума программы!
Вот что набросал:

Pascal

var
  s: string;
  a, i, k: integer;
begin
  write('введите предложение:');
  readln(s);
  a:=length(s);
  k:=1;
  for i:=1 to a do
    begin
      if s[i]=' ' then
        begin
          if (s[k]='л') then
            
          k:=i+1;
      
    end;
end.
 
Но не выбирает.
 
[size="1"][color="grey"][I]Добавлено через 10 минут[/I][/color][/size]
Ха, все просто
var
  i, n: integer;
  S, t: string;
  bln: boolean;
  
begin
  writeln('Введите строку:');
  readln(S);
  S := S + ' ';
  n := Length(S); 
  i := 1; 
  while i < n do begin
    t := '';
    bln := false; 
    while (s[i] <> ' ')and(i < n) do begin
      t := t + s[i];
      if s[i] in ['л'] then bln := true;
      inc(i)
    end;
    if bln then write(t, ' '); 
    inc(i)
  end
end.

@kastiniel · 06.05.2014, 14:08

А вы уверены что работает???
по правильному надо было проверять первый символ строки t, а так у вас и такое предложение "правильно написано" выведет "правильно"

@Cider · 06.05.2014, 14:29 **[ТС]**

Проверил еще раз, работает.

@kastiniel · 06.05.2014, 14:35

ну значит правильно

@Cider · 06.05.2014, 14:54 **[ТС]**

я не настаиваю, с паскалем дружу первый день)))

@kastiniel 60 / 60 / 46 Регистрация: 25.11.2011 Сообщений: 259
	06.05.2014, 14:08	2
	А вы уверены что работает??? по правильному надо было проверять первый символ строки t, а так у вас и такое предложение "правильно написано" выведет "правильно" 0

@Cider 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 6
	06.05.2014, 14:29 [ТС]	3
	Проверил еще раз, работает. 0

@kastiniel 60 / 60 / 46 Регистрация: 25.11.2011 Сообщений: 259
	06.05.2014, 14:35	4
	ну значит правильно 1

@Cider 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 6
	06.05.2014, 14:54 [ТС]	5
	я не настаиваю, с паскалем дружу первый день))) 0

Опции темы