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.
