Question

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.

Answer 1

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'])

18058656865faf7ec989a53d1f12e016.pas