где ошибка?

@maikuduk · Регистрация: 03.10.2009

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

зацикливается, помогите устранить ошибку...
Описать логическую функцию перестановка (х,у), проверяющую, можно ли, переставить литеры слова х, получить слово у.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var
i:integer;
x:string;
y:string;
buf:char;
procedure per(a,b:char);
begin
buf:=a;
a:=b;
b:=buf;
end;
begin
writeln('vvedi stroku 1');
readln(x);
writeln('vvedi stroku 2');
readln(y);
if length(x)=length(y) then
begin
for i:=1 to length(x) do
begin
while x<>y do
if x[i]<>y[i] then per(x[i],x[i+1]);
writeln(x,y);
end;
readln;
end;
end.

@Jazon_deenAlt · 07.10.2009, 15:58

напишыте входящие даные и желаемый результат типа ввожу "йцукен" после перестановки из него должно получатса йцукен - цйукен -...-цукенй ? или как?

@maikuduk · 07.10.2009, 16:03 **[ТС]**

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

ну у меня хренотень получилась помоему другая совсем да?

@Puporev · 07.10.2009, 16:22

Вот я тут недавно писал такую функцию, которая определяет, можно ли из символов одного слова составить другое.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
function Ravn(s1,s2:string):boolean;
var n,i,j,k:byte;
begin
if length(s1)<>length(s2)then
  begin
   Ravn:=false;
   exit;
  end
else
  begin
   n:=0;
   for i:=1 to length(s1) do
    begin
     k:=0;j:=1;
     while j<=length(s2) do
     if s2[j]=s1[i] then
       begin
         k:=1;
         delete(s2,j,1);
         break;
       end
     else j:=j+1;
     if k=1 then n:=n+1
      else
       begin
         Ravn:=false;
         exit;
       end;
    end;
  if n=length(s1) then Ravn:=true;
 end;
end;
var s1,s2:string;
begin
clrscr;
write('S1= ');readln(s1);
write('S2= ');readln(s2);
write(Ravn(s1,s2));
readln
end.

@maikuduk · 07.10.2009, 17:35 **[ТС]**

да,я видел, спасибо за прогу)) но я думал может кто проще напишет ее

@Puporev · 07.10.2009, 17:39

Предлагали через множества, но это неверно, повторяющиеся символы фикситруются 1 раз. А что тут сложного? Берем символ в первом слове ищем его во втором, нашли, оба удаляем. Если в конце число пар совпало с длиной слова, можно.
Или Вам влом 5 строк написать?

@maikuduk · 07.10.2009, 17:46 **[ТС]**

n это число совпадений? просто я запутался в переменных i, j, n, k

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	07.10.2009, 15:58
	напишыте входящие даные и желаемый результат типа ввожу "йцукен" после перестановки из него должно получатса йцукен - цйукен -...-цукенй ? или как? 0

@maikuduk 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 35
	07.10.2009, 16:03 [ТС]
	вообще я думал изначально сделать прогу, которая будет делать, например, нам надо получить слово "бабан" из строки символов набан)) входные параметры любые могут быть, главное чтобы она говорила можно вообще сделать из строки символов слово которое мне нужно, а если можно то каким образом ну у меня хренотень получилась помоему другая совсем да? 0

@maikuduk 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 35
	07.10.2009, 17:35 [ТС]
	да,я видел, спасибо за прогу)) но я думал может кто проще напишет ее 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.10.2009, 17:39
	Предлагали через множества, но это неверно, повторяющиеся символы фикситруются 1 раз. А что тут сложного? Берем символ в первом слове ищем его во втором, нашли, оба удаляем. Если в конце число пар совпало с длиной слова, можно. Или Вам влом 5 строк написать? 0

@maikuduk 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 35
	07.10.2009, 17:46 [ТС]
	n это число совпадений? просто я запутался в переменных i, j, n, k 0