Visual Basic

[Lali]

Определить долю гласных букв в заданном тексте:Он успешно сдал экзамены.

[Stilet]

С потолка предложу:

dim gl,s as string;
dim i,ngl,nngl as integer;

ngl=0
nngl=0;

gl="уеыаоюия";
s="Он думал, что успешно сдал экзамены. Но военкомат был убедительнее."

for i=0 to Len(s)
 if mid(s,i,i+1)<>' ' then
  ln=ln+1
  if InStr(mid(s,i,i+1),gl) then
   ngl=ngk+1
  else
   nngl=nngk+1
  end if
 end if
next i

print "Процент:" & CStr((nngl-ngl)/100)

С формулой процента не уверен.