Как создать облако тегов?

[Екатерина57]

Помогите разобраться в создании облака тегов

[ura_111]

А в чём ты программируешь? Ну посмотри как облако тегов создают другие люди:

https://www.youtube.com/watch?v=oEpkC85Op-4
https://www.youtube.com/watch?v=eyZN1S81VFw
https://www.youtube.com/watch?v=1gU1obV5sXo
https://www.youtube.com/watch?v=345y-E3S-Vg
https://www.youtube.com/watch?v=Aq8r8KYnAVs
https://www.youtube.com/watch?v=E8sUyUUvWpA
https://www.youtube.com/watch?v=Kyf4SEb4Ggg
https://www.youtube.com/watch?v=YCE2Ri3G24U
https://www.youtube.com/watch?v=xjc00j-qHak

[Екатерина57]

Мне его надо написать,к сожалению,на паскале.

[Alex11223]

Начните с нормальной формулировки задания.

[Екатерина57]

Нужно построить облако тегов по тексту.Использовать только имена существительные в именительном падеже,длинна не менее 4 символов.

[predefined]

Сообщение от Екатерина57

Нужно построить облако тегов по тексту.Использовать только имена существительные в именительном падеже,длинна не менее 4 символов.

1. Разбиваете текст в массив на слова по разделителям слов пробел, ".,!?...[]()". Чистите слова от пробелов с краёв

2. Выбираете из массива слова длиннее 4-х символов

3. Проверяете эти слова на "ИменаСуществительные в РодительномПадеже". Если нет библиотеки морфологии, пишете свою функцию по аналогии с этой.

4. Оставшиеся после фильтрации слова и будут вашим облаком тэгов. Как его визуализовать - в вашем ТЗ не сказано.

[Екатерина57]

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

uses crt;
 
const nmax=100;
 
type m=array [1..nmax] of string;
 
var i:byte;
    s:string;
    p:integer;
    A:m;
 
{Ввод предложения}
Procedure vvodstroki(var st:string);
 
begin
Write('Введите предложение: ');
readln(st);
st:=st+concat(' ');
end;
 
{подсчёт кол-ва слов для ввода в массив}
Procedure kol_slov(st:string; var k:integer; i:byte);
 
begin
 
k:=0;
repeat
for i:=1 to length(st) do
 if st[i] = ' ' then
  k:=k+1;
until k in [1..nmax];
 
 
end;
 
 
Begin
clrscr;
 
vvodstroki(s);
kol_slov(s,p,i);
 
{запись слов в массив}
for i:=1 to p  do
 begin
  A[i]:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
 end;
writeln('Слова длинной более 4-х символов: ');
for i:= 1 to p do
  if length(A[i]) >= 4 then
   write(A[i],' ');
 
 
 
readkey;
end.