Question

Elaboraţi o funcţie și o procedură care:
c) calculează numărul de cuvinte dintr-un text (cuvintele reprezintă șiruri de caractere separate prin spaţiu sau sfîrșit de linie);
f) returnează numărul semnelor de punctuaţie din text.

Answer 1

Răspuns:

până ce răspunsul pentru c) si d)

Explicație:

program NrDeCuvinte;

var t:string;

   nrcuv,x: integer;

function Cuv(text:string):integer;

var i, m:integer;

begin

 text:=text+' ';

 m:=0;

 for i:=1 to length(text) do

     if text[i]=' ' then m:=m+1;

 Cuv:=m;

end;

procedure nrCuvinte(text:string; var x:integer);

var i:integer;

begin

 text:=text+' ';

 for i:=1 to length(text) do

     if text[i]=' ' then x:=x+1;

end;

begin

 write('Introdu textul: '); read(t);

 nrcuv:=Cuv(t);

 writeln('calcul cu functie, nr. cuvinte= ',nrcuv);

 x:=0;

 nrCuvinte(t,x);

 writeln('calcul cu procedura, nr. cuvinte= ',x);

end.

 ******************* f) *****************

program nrSemneDePunctuatie;

const semne=['.', ',', ';', ':', '?', '!'];

var t:string;

   s,x:integer;

function nrSemne(t:string):integer;

var i,m:integer;

begin

 m:=0;

 for i:=1 to length(t) do

     if t[i] in semne then m:=m+1;

 nrSemne:=m;

end;

procedure Punctuatie(t:string; var s:integer);

var i:integer;

begin

 for i:=1 to length(t) do

      if t[i] in semne then s:=s+1;

end;

begin

 write('Introdu textul: '); read(t);

 s:=nrSemne(t);

 writeln('calcul cu functie, nr. semne= ',s);

 x:=0;

 Punctuatie(t,x);

 writeln('calcul cu procedura, nr. semne= ',x);

end.