Задача 9 (функция - количество мин слов)

Посмотреть архив целиком
9) разработать функцию для подсчета в строке минимального слова. (не поняла что это значит, то ли указать длину мин слова, то ли указать количество таких слов, но если писать длину слова, то тогда не учитывается условие, "их может быть несколько", поэтому думаю надо искать их количество) Учитывать , что их может быть несколько. Функцию применить для многих строк , количесво которых вводится с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..20] of string;

function Min_sl (var s:string;n:integer):integer;
var i,kol:integer;
slovo,min:string;
b:mas;
begin
writeln('Vvedite stroku');
readln(s);

s:=s+' ';
slovo:='';
n:=0;
for i:=1 to length(s) do if s[i]<>' ' then slovo:=slovo+s[i]
else begin
n:=n+1;
b[n]:=slovo;
slovo:=''
end;
min:=b[1];
for i:=1 to n do
if length(b[i])kol:=0;
for i:=1 to n do
if length(b[i])=length(min) then
kol:=kol+1;
Min_sl:=kol;
end;

var n,k,i:integer;
st:string;
begin
writeln('Vvedite kol-vo strok');
readln(n);
for i:=1 to n do begin
k:=Min_sl(st,n);
writeln('Kolichestvo min slov ravno ',k);
end;
readln;
end.

Случайные файлы

Файл
Readme.txt
9959.txt
info.txt
13.TXT
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.