ЗАДАЧА. Процедуры и функции

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

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

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

@MadMag · 03.10.2009, 19:16

А что такое литеры?
Сорри, не программерское это дело. =)
В моем представлении - это такие металлические брусочки, на которых отлиты буквы, которые составляются в рядки и печатаются строки.

@Puporev · 03.10.2009, 19:21

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
uses crt;
function Sovp(x,y:string):boolean;
var i,j,n,k:byte;
begin
if length(x)<>length(y)then{если длина строк разная - нет}
 begin
  Sovp:=false;
  exit;
 end;
n:=0;
for i:=1 to length(x) do{смотрим символ в первой строке}
  begin
   k:=0;j:=1;
   while j<=length(y) do{ищем его во второй}
   if y[j]=x[i] then{нашли}
     begin
      k:=1;{считаем пару}
      delete(y,j,1);{удаляем его}
      break;{дальше такой не ищем}
     end
   else j:=j+1;{иначе смотрим следующий}
   if k=1 then n:=n+1{есть пара, считаем}
   else
     begin
       Sovp:=false;{нет, нельзя}
       exit;
     end;
 end;
if n=length(x) then Sovp:=true;{если пара есть каждому, можно}
end;
var s1,s2:string;
begin
clrscr;
write('S1: ');readln(s1);
write('S2: ');readln(s2);
if Sovp(s1,s2) then write('Можно!')
else write('Нельзя!');
readln
end.

@MadMag · 03.10.2009, 19:30

То есть литера - это буква?
А нельзя ли тогда добавлять символы в множества а потом пересечь первое со вторым, полученное снова пересечь со вторым и если там ничего в пересечении не останется то слово сложить можно, иначе - нет.

@maikuduk · 03.10.2009, 19:46 **[ТС]**

спасибо большое))

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@maikuduk 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 35

	ЗАДАЧА. Процедуры и функции 03.10.2009, 18:44. Показов 1338. Ответов 4 Метки нет (Все метки) Помогите решить задачу))) Описать логическую функцию перестановка (х,у), проверяющую, можно ли, переставить литеры слова х, получить слово у. 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	03.10.2009, 19:16
	А что такое литеры? Сорри, не программерское это дело. =) В моем представлении - это такие металлические брусочки, на которых отлиты буквы, которые составляются в рядки и печатаются строки. 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	03.10.2009, 19:30
	То есть литера - это буква? А нельзя ли тогда добавлять символы в множества а потом пересечь первое со вторым, полученное снова пересечь со вторым и если там ничего в пересечении не останется то слово сложить можно, иначе - нет. 0

@maikuduk 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 35
	03.10.2009, 19:46 [ТС]
	спасибо большое)) 0