Kód: Vybrať všetko

program c15;
uses crt;
var text:string;             {retzec}
    l: byte;                {pomocne pri merani dlzky retazca}
    i,j:integer;                 {pomocne pri for to do}
    pom:integer;              {pri buble metode ktora bude}
    medzera,slova:integer; {pocet ,medzier a slov}
    pole :array [1..100] of string;


begin
clrscr;
  text:='ved to uz funguj prosim.';
  writeln(text);
  l:=ord(text[0]);

  medzera:=0;
  for i:=1 to length(text) do
                        begin
                         if (text[i]=' ') then medzera:=medzera+1;
                        end;
  slova:=medzera+1;
  writeln;
  writeln('Pocet slov vo vete je ',slova,' a pocet znakov je ',l);
  writeln;


  for i:=1 to l do
  begin
   if ((text[i]='!')or (text[i]='?')or (text[i]='.')or (text[i]=' ')or (text[i]=','))
      then writeln
   else begin
        for j:=1 to slova do pole[j]:=(( pole[j]+text[i] ));
        write(text[i]);

        end;
  end;

readln;
end.

Kód: Vybrať všetko

program slova;
 uses crt;


 var f:text;
 koniec:boolean;
 s,pom:string;
 z:char;
 slov:array[1..100] of string;
 i,j,t,slova:integer;
 p:real;


begin
 clrscr;
 assign(f,'G:\jednoo.txt');
 reset(f);
 writeln('text v subore:');
 while not eof(f)do
                   begin
                   read(f,s);
                   write(s)
                   end;
 reset(f);
 j:=1;
 for i:=1 to length(s) do
                       begin
                       read(f,z);
                       if((z=' ')or(z='.')or(z=','))then
                                                        begin
                                                        j:=j+1;
                                                        continue;
                                                        end;
 slov[j]:=slov[j]+z;
 end;
 writeln;
 writeln;
 slova:=j;
 writeln('pocet slov v subore je:',slova);
 writeln;
 for j:=1 to slova do
 writeln(slov[j]);
 writeln;
for i:=slova downto 2 do
                    begin for j:=2 to i do ;
                     if slov[j-1]>=slov[j] then
                                              begin
                                                   pom:=slov[j-1];
                                                   slov[j-1]:=slov[j];
                                                   slov[j]:=pom;
                                              end;
                    end;
 close(f);
 readln;
 end.

Kód: Vybrať všetko

length(s)