Zápočtový program č.11

17. prosince 2007 v 20:40 |  INFORMATIKA
program PocetSlov;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Retez,Slovo:string;
Delka,DelkaSlova,I:integer;
Znak:char;
Pocty: array[1..20] of integer;
Slova: array[1..20,1..20] of string;
Y:integer;
Vysledek:string;
function VypisSlova(Poradac,PocetSouctu:integer):string;
begin
Vysledek:='';
for Y:=1 to PocetSouctu do
begin
Vysledek:=Vysledek+Slova[Poradac,Y]+','
end;
result:=Vysledek;
end;
begin
Write('Text:');
readln(Retez);
Retez:=Retez+'.';
Delka:=length(Retez);
Slovo:='';
for I:=1 to Delka do
begin
Znak:=Retez[i];
if (Znak='.') or (Znak=',') or (Znak=';') or (Znak='!') or (Znak='?') or (Znak=' ') then
begin
if length(Slovo)>0 then
begin
DelkaSlova:=length(Slovo);
Pocty[DelkaSlova]:=Pocty[DelkaSlova]+1;
Slova[DelkaSlova,Pocty[DelkaSlova]]:=Slovo;
Slovo:=''
end;
end
else
begin
Slovo:=Slovo+Znak
end;
end;
for I:=1 to 20 do
begin
if Pocty[I]>0 then
begin
Writeln(I,' znakove slovo: ',Pocty[I])
end;
end;
Writeln;
for I:=1 to 20 do
begin
if Pocty[I]>0 then
begin
Writeln(I,' znakove slova: ',VypisSlova(I,Pocty[I]))
end;
end;
readln;
end.
 

Buď první, kdo ohodnotí tento článek.

Komentáře

1 já | 13. ledna 2008 v 16:47 | Reagovat

potřebuju udělat dvojku :-D

2 já | 13. ledna 2008 v 16:48 | Reagovat

potřebuju udělat dvojku :-D

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.
 

Aktuální články

Reklama