program hitung vokal di pascal

Program Menghitung_Banyak_Vokal ;
uses wincrt;
var
nama :string;
i,vok :integer;
BEGIN
clrscr;
vok:=0;
write('Banyak Vokal dalam kalimat berikut =');readln(nama);
for i:=1 to length(nama) do
case nama[i] of
'A','a','U','u','I','i','E','e','O','o':vok:=vok+1;
end;
writeln('Jumlah Vokalnya :',vok);
READLN;
END;

Tutorial ASP

Haii kawand,,,
Ada tutorial tentang ASP(Active seerver pages) nie...
Lumayan untuk belajar,,,
Untuk mendownloadnya kilk disini

User Info dengan javasript

Haiii kawand semua,,,
Mu berbagi tutorial lagi nie,,,
Sekarang ada tutorial tentang script javascript untuk mengetahui seseorang yang sedang mengunjungi web/blog kita,,
Keren khan,,,,
Untuk mendownload tutorialnya klik disini