Var sir:string;
nrv:integer;
function vocale(sir1:string):integer ; var i,nr:integer;
begin
nr:=0 ;
for i:=1 to length(sir1) do
if upcase (sir1[i] in ['A','E','I','U','O'] then inc(nr); <<<-----Character expression expected ( cum sa rezolv eroarea ?
vocale:=nr;end;
begin writeln('scrie sirul de caractere' ); readln(sir);
nrv:=(vocale(sir));
writeln('nr de vocale este',nrv);
end.

1

Răspunsuri

Cel mai inteligent răspuns!
2014-11-08T23:29:19+02:00
Upcase() este o funcție, deci necesită parametri. În cazul nostru - sir[i] este un parametru, deci trebuie scris ca (Upcase(sir[i]) in ['A','E','I','U','O'])
1 5 1