Первое задание Есть некоторый текст. Разработайте приложение, которое должно произвести поиск
слова. В результате работы приложения нужно отобразить количество раз, сколько
слово встречается в тексте.
При поиске необходимо учитывать следующие факторы:
■ поиск вне зависимости от регистра букв слова;
■ слово может быть отделено от других слов – пробелом, знаками препинания;
■ если слово есть в тексте, но в перевернутом виде, его надо учитывать в статистике поиска.
Второе задание
Добавить к первому заданию возможность поиска набора слов. Искомые слова нужно
хранить в списке.
(На языке )
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
n=int(input()) #ввод количества элементов массива
x=[i for i in range(n)] #создаем список чисел от 0 до n-1
s=0 #начальное значение суммы
ss=[] #список сумм
for i in range(n): #цикл от 0 до n-1
print(x[i]) #печатаем число массива
s+=x[i] #прибавляем число к сумме
if i%10==0 and i>0: #если количество чисел составило i-й десяток
ss+=[s] # добавляем сумму в список сумм
for i in range(len(ss)): #цикл от 0 до количества сумм
print(ss[i]) #вывод сумм
Можно было бы обойтись без списка х, но по условию сказано, что нужно получить и вывести массив чисел, поэтому список х был создан в начале программы.