Перечислить все слова, которые состоят из тех же букв, что и первое слово

@Blindside · Регистрация: 22.09.2012

Author24 — интернет-сервис помощи студентам

Требуется перечислить все слова заданного предложения, которые состоят из тех же букв, что и первое слово предложения. Слова разделяются пробелами.

@CodeR · 04.10.2012, 15:10

Pascal

Var s,s1,s2:string;
    i:byte;
    b:boolean;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      b:=true;
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      For i:=1 to Length(s1) do
       if Pos(s1[i],s2)=0 then b:=false;
      if b then writeln(s2);
    End;
    readln;
End.

@volvo · 04.10.2012, 15:15

Artem7, и чего? Не печатает она ни одного слова, хотя строка = 'this is a simple test'. По крайней мере слово is должно быть напечатано.

Цикл надо заменить:

Pascal

1 2	For i:=1 to Length(s2) do if Pos(s2[i],s1)=0 then b:=false;

, тогда будет работать. Ты перепутал первое и второе слова

@CodeR · 04.10.2012, 15:19

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

Artem7, и чего? Не печатает она ни одного слова, хотя строка = 'this is a simple test'. По крайней мере слово is должно быть напечатано.

Я это понял так что если строка состоит из всех тех же букв что и первая выводим
А если так как ты говоришь то тут чуток изменить

Pascal

Var s,s1,s2:string;
    i:byte;
    b:boolean;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      b:=true;
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      For i:=1 to Length(s2) do
       if Pos(s2[i],s1)=0 then b:=false;
      if b then writeln(s2);
    End;
    readln;
End.

@Blindside 0 / 0 / 0 Регистрация: 22.09.2012 Сообщений: 14
		1
	Перечислить все слова, которые состоят из тех же букв, что и первое слово 04.10.2012, 14:28. Показов 4046. Ответов 3 Метки нет (Все метки) Требуется перечислить все слова заданного предложения, которые состоят из тех же букв, что и первое слово предложения. Слова разделяются пробелами. 0

	04.10.2012, 15:19