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.
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'])
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!
