Пояснение:
Если ввод осуществляется через файл, то он должен называть "Слова.txt" и находиться в одной директории с исполняемым файлом. Выбрать нужный вариант ввода можно просто введя цифру в перовом input.
Код:
# -*- coding: utf-8 -*-
format = int(input("Считать слова из файла (введите 1)\nВводить слова в консоль (введите 2)\nВвести слова в одну строку(введите 3)\nВыбор: "))
words = []
answer = []
if format == 1:
f = open('Слова.txt', "r", encoding='utf-8')
line = f.readline()
while line:
for i in line.split(", "):
words.append(i)
line = f.readline()
f.close()
elif format == 2:
n = int(input("Введите кол-во слов - "))
for i in range(n):
words.append(input("Вв. слол - "))
elif format == 3:
n = input("Введите строку - ")
for i in n.split(", "):
words.append(i)
else:
print("Неправильно введен номер ответа")
word = input("Введите поисковое слово - ")
for i in words:
for j in list(word):
if len(set(word).intersection(set(i))) == len(i):
answer.append(i)
break
print(", ".join(answer))
Текст для документа:
рыба, рак, щука, лебедь, карась, пескарь, баня, бубен, столб, баян, барыня
crt;
var
a: array [1..25] of integer;
ar: array [1..5, 1..5] of integer;
i, j, k, n, m, x: integer;
begin
write('n=');
readln(n);
writeln('Заполните массив:');
for i := 1 to n do read(a[i]);
for i := 1 to n do
for j := i + 1 to n do
if a[i] > a[j] then begin
x := a[i];
a[i] := a[j];
a[j] := x;
end;
writeln('Отсортированный массив: ');
for i := 1 to n do write(a[i], ' ');
writeln;
n := floor(sqrt(n));
m := sqr(n);
writeln('Двумерный массив: ');
for k := 1 to m do
begin
x := (k - 1) div n;
j := n - x;
if x mod 2 = 0 then
i := n * (x + 1) + 1 - k
else
i := k - n * x;
ar[i, j] := a[k]
end;
for i := 1 to n do
begin
for j := 1 to n do write(ar[i, j]:4);
writeln
end
end.
Тестовое решение:
n=16
Заполните массив:
1 3 5 7 9 11 13 15 2 4 6 8 10 12 14 16
Отсортированный массив:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
Двумерный массив:
13 12 5 4
14 11 6 3
15 10 7 2
16 9 8 1
n=25
Заполните массив:
1 3 5 7 9 11 2 4 6 8 10 12 14 13 16 17 15 20 18 19 23 25 22 21 24
Отсортированный массив:
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
Двумерный массив:
25 16 15 6 5
24 17 14 7 4
23 18 13 8 3
22 19 12 9 2
21 20 11 10 1