Дана строка, содержащая некоторый текст (включая пробелы и знаки препинания). Под словом понимается набор символов, не содержащий пробелов и ограниченный пробелами или началом/конц

[Владимир20178]

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

Задача 1.
Провести частотный анализ текста. Построить столбиковую гистограмму(например, с помощью символов '*'), отражающую частоту появления букв заданного алфавита в тексте (здесь алфавит – набор символов).
Задача 2.
Найти слово, начинающееся с самой младшей латинской буквы и возвратить индекс его начала.

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

2 в 1

var s,s1:string;
    p:array[65..122] of integer;
    i,j,o:integer;
    rec:0..2;
begin
   Write('s = '); Readln(s);
   // Задача 1
   For i:=65 to 122 do
      p[i]:=0;
   For i:=1 to Length(s) do
   begin
      o:=Ord(s[i]);
      If (o>=65) and (o<=122) then
         Inc(p[o]);
   end;
   For i:=65 to 122 do
   begin
      If (i>90) and (i<97) then
         Continue;
      If p[i]=0 then
         Continue;
      Write(Char(i),' ');
      For j:=1 to p[i] do
         Write('*');
      Writeln;
   end;
   Readln;
   // Задача 2
   s:=s+' ';
   o:=1;
   s1:=s[o];
   rec:=2;
   For i:=2 to Length(s) do
      If (s[i]>='A') and (s[i]<='Z') or (s[i]>='a') and (s[i]<='z') then
      begin
         If rec=2 then
            s1:=s1+s[i];
         If rec=1 then
            If s1[o]>s[i] then
            begin
               o:=i;
               s1:=s[i];
               rec:=2;
            end else
               rec:=0;
      end else
         rec:=1;
   Writeln(o,' - ',s1);
   Readln;
end.

[Alex11223]

Не понравится, ему на С надо, давай переписывай.

[newerow1989]

А чего переписывать-то. Пусть автор это делает!