Код: Выделить всё
program ggg;
[B]uses[/B] crt;
[B]type[/B]
zap=record
slovo:string;
kol:integer;
end;
[B]var[/B] i,j,r,k,m,l:longint;a,b:string;
c:array[1..50]of string;
[B]procedure[/B] spiskom;
label m1;
[B]begin[/B]
write('vvedite slovo:');
readln(a);
j:=1;
i:=1;
r:=length(a);
k:=0;
b:='';
while i<=r do
[B] begin[/B]
if a[i]=' ' then
[B] begin[/B]
if b='' then goto m1;
c[j]:=b;
inc(j);
b:='';
inc(i);
inc(k);
[B] end[/B]
else [B]begin[/B]
b:=b+a[i];
m1:inc(i);
[B] end;[/B]
[B] end;[/B]
{uadalenie povtor elementa}
i:=1;
[B]while[/B] i<=k [B]do[/B]
[B] begin[/B]
for l:=i+1 to k do
if c[i]=c[l] [B]then[/B] c[i]:=' ';
inc(i);
[B] end;[/B]
k:=k-m;
for i:=1 to k do
[B]writeln[/B](c[i],' ');
[B] readln;[/B]
[B] end;[/B]
[B]procedure koli4estvo;[/B]
[B]var[/B] i,l,min,max,p1,p2,j:longint;
a,b:string;
t1:array[1..60]of string;
t2:array[1..60]of longint;
[B] begin[/B]
write('введите текст: ');
readln(a);
l:=length(a)+1;
a[l]:=' ';
for i:=1 to l do
if a[i]=' ' then [B]begin[/B]
inc(j);
t1[j]:=b;
t2[j]:=length(b);b:='';
[B] end[/B]
else b:=b+a[i];
max:=t2[1];min:=t2[1];p1:=1;p2:=1;
for i:=1 to j do
[B] begin[/B]
if max<t2[i] then begin max:=t2[i];p1:=i; end;
if min>t2[i] then begin min:=t2[i];p2:=i; end;
end;
writeln('самое длинное слово: ',t1[p1]);
writeln('самое короткое слово: ',t1[p2]);
writeln(' Если слово не выведено на печать, то вы ');
write(' поставили несколько подряд идущих пробелов!');
[B] readln;[/B]
[B] end;[/B]
[B] procedure skolko raz povtor;[/B]
var mas_zap:array[1..100]of zap;
spisok:array[1..100]of string;
str:string;
c,i,j,k,n,cht:integer;
[B] begin[/B]
k:=0;
for i:=1 to n do
if (spisok[i]<>'') then
[B] begin[/B]
cht:=1;
for j:=i+1 to n do
if (spisok[i]=spisok[j]) then
[B] begin[/B]
cht:=cht+1;
spisok[j]:='';
[B] end;[/B]
k:=k+1;
mas_zap[k].slovo := spisok[i];
mas_zap[k].kol := cht;
spisok[i] := '';
[B] end;[/B]
[B] end;[/B]
[B]begin[/B]
spiskom;
koli4estvo;
povtor;
[B]end.[/B]
Задача звучит так:Задан текст.построить список слов,которые есть в этом тексте.узнать сколько раз стречается каждое слово в тексте,самое длинное и самое короткое и их порядковые номера.Не ругайте плыз,прогу собирал по кускам,из разных прог.И еще,в паскале АВС не понимает метку м1,не могу понять чего так((((Помогите пожалуйста..
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Извините что так часто пост редактирую
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
не получается,весь день убил((--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Если не трудно хотя бы подскажите в чем соль вся((
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Народ помогите ну очень прошу!!!!!!!!!!!!!!!!!!!!!Скоро сдавать надо!