Question

de elaborat un subprogram care determina numarul de vocale dintr un sir de caractere? urgent ,pascal

Answer 1

program pass;
var s: string;
function nr_vocale(s:string):integer;
var v:string;
i,nr:integer;
Begin
nr:=0;
v:='aeiou';
for i:=1 to length(s) do
if(pos(s[i],v)>0)then
nr:=nr+1;
nr_vocale:=nr;
End;
beginwrite('s=');
read(s); writeln;
write('nr. vocale=',nr_vocale(s));
End.
//ăsta e tot programul, dar pe tine te intereseaza subprogramul(funcția nr_vocale)
p.s. :subprograme sunt atât funcțiile cât și procedurile