Строки

Марина Орёл · 07.12.2010, 11:20

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

Vladimir_S · 07.12.2010, 14:12

Цитата:

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

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

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

Код:

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.

Марина Орёл · 07.12.2010, 17:58

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

07.12.2010, 11:20	#1 (permalink)
Марина Орёл Member Регистрация: 07.12.2010 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки Считая, что в каждом из слов X и Y нет повторяющихся литер, присвоить переменной B значение true, если слова X и Y оличаются только порядком входящих в них литер,и значение fals иначе.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

07.12.2010, 11:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Содержание вашего текста имеет много схожего с данными топиками Строки в С Строки Строки Строки

07.12.2010, 17:58	#3 (permalink)
Марина Орёл Member Регистрация: 07.12.2010 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое!!!!!!!!!!!!!!!!!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070