Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Строки (http://www.tehnari.ru/f41/t43046/)

Считая, что в каждом из слов X и Y нет повторяющихся литер, присвоить переменной B значение true, если слова X и Y оличаются только порядком входящих в них литер,и значение fals иначе.

Цитата:

Сообщение от Марина Орёл (Сообщение 426828)

Например, так:

Код:

VAR

 X,Y:STRING;

 b:Boolean;

 i,j:BYTE;

BEGIN

 WriteLn('Enter X:');

 ReadLn(X);

 WriteLn('Enter Y:');

 ReadLn(Y);

 If Length(X)<>Length(Y) then

  b:=false

 else

  begin

   i:=0;

   Repeat

    i:=i+1;

    b:=false;

    j:=0;

    repeat

     j:=j+1;

     if X[i]=Y[j] then b:=true;

    until b or (j=Length(X));

   Until (b=false) or (i=Length(X));

  end;

 WriteLn(b);

 ReadLn;

END.

Спасибо большое!!!!!!!!!!!!!!!!!!!