046 Text

[•GRazvan]

 Buna. Ma chinui cu problema asta de ceva timp si nu-i dau de capat. Mai intai am incercat cu algoritmul asta, de mine facut :

Cod:

program textulet;
var f:text;t:string;i,n,cuv,lit:integer;
begin
 assign(f,'text.in');
 reset(f);
 readln(f,t);
 close(f);
 i := 0; n := length(t); cuv := 0; lit := 0;
 while i < n do
 begin
   i := i + 1;
   if (ord(upcase(t[i])) >= 65) and (ord(upcase(t[i])) <= 90) then
   begin
     cuv := cuv + 1;
     while (ord(upcase(t[i])) >= 65) and (ord(upcase(t[i])) <= 90) and (i <= n) do
     begin
       lit := lit + 1;
       i := i+1;
     end;
   end;
 end;
 assign(f,'text.out');
 rewrite(f);
 write(f,int(lit/cuv):0:0);
 close(f);
end.

 Apoi, cu putin ajutor am incercat cu asta:

Cod:

program Text2;
var f:text;t:string;n,i:longint;k:0..1;cuv,lit:integer;
begin
 assign(f,'text.in');
 reset(f);
 readln(f,t);
 close(f);
 n := length(t); k := 0; lit := 0;cuv := 0;
 for i := 1 to n do
 begin
  if (upcase(t[i]) >='A') and (upcase(t[i]) <= 'Z') then
  begin
    lit := lit + 1;
    if k = 0  then
    begin
      cuv := cuv + 1;
      k := 1;
    end;
  end
                                                    else
   k := 0;
 end;
 assign(f,'text.out');
 rewrite(f);
 write(f,int(lit/cuv));
 close(f);
readln;
end.

 Primesc doar 40 de puncte. Unde e greseala?

  Multumesc

Foloseste tag-ul code cand postezi cod. (Uita-te cum am editat mesajul.) .

[•GRazvan]

 Multumesc pentru edit. Asa o sa fac de acum

[•PlayLikeNeverB4]

Incearca sa citesti textul caracter cu caracter. Nu cred ca iti intra toate caracterele intr-un singur string

[•GRazvan]

 Salut. Multumesc de raspuns. Am incercat sa citesc caracter cu caracter si da am luat in loc de 40 , 90 de puncte. Dar nu inteleg! Cum adica nu incape intr-un singur string? Pai string e sir de caractere nu?

   O zi buna

[•PlayLikeNeverB4]

Nu incape pentru ca string-ul din Pascal poate sa retina maximum 255 de caractere.

[•GRazvan]

 Da, chiar! Intr-adevar asa e, am uitat Multumesc frumos

[•GRazvan]

 Mai am o intrebare referitoare la problema asta. Cu un algoritm corect, pentru exemplul: "cota 1440" ce va considera cuvant? cota sau cota si 1440? Multumesc:)

[•PlayLikeNeverB4]

Cod:

un cuvant fiind definit ca o secventa continua maximala de caractere ale alfabetului englez ('a' .. 'z' , 'A' .. 'Z').

Cuvintele sunt alcatuite doar din litere.

[•SpiderMan]

GRazvan, foloseste ansistring (asa doar pentru cultura ta generala). Sunt nistre stringuri care merg marite cat de tine memoria (adica poti face si string de 1000... daca ai suficienta memorie), doar mananca multa memorie.