VA ROG FRUMOS! E URGENT! Am de indeplinit urmatoarea sarcina: ''elaboreaza o functie ce calculeaza numarul de vocale intr-un sir de caractere''.Am incercat asta,dar se pare ca nu merge.Imi puteti spune unde am gresit?:
Program v1;
var s:string;
n,nr,l:integer;
function vocal(m,k:integer):integer;
begin
k:=0;
for m:=1 to lenght(s) do
if s[m]=a or s[m]=e or s[m]=i or s[m]=o or s[m]=u then k:=k+1;
end;
begin
writeln('Dati siruri de caractere:');
repeat
readln(s);
nr:=vocal(n,l);
write('numarul vocalelor este :',nr);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!