Program huruf;
uses wincrt;
function KHuruf(s:string):string;
var
x:byte;
Panjang:integer;
begin
Panjang:=length(s);
for x:=1 to Panjang do
begin
if s[x] <> upcase(s[x]) then
s[x]:=upcase(s[x])
else if s[x]=' ' then s[x]:=s[x] else
s[x]:=chr(ord(s[x])+32);
end;
KHuruf:=s;
end;
var
k:string;
begin
clrscr;
write('Masukan Kalimat : ');readln(k);
writeln;
writeln('Kata Tersebut Adalah : ',k);
writeln;
writeln('Setelah di konversi : ',KHuruf(k));
readkey;
end.
Rabu, 16 Juni 2010
Program Huruf
Langganan:
Posting Komentar (Atom)
search
Entri Populer
-
Program Urut_Bilangan; Uses Wincrt; Var A,B,C:integer; Begin Writeln('Program Mengurut Bilangan'); Writeln('====================...
Labels
- Algoritma (7)
- Mysql Data Base (1)
- Sistem Operasi (1)
- Tips dan Trik Computer (7)
- Tutorial (3)
About Me
- jodhypati
- Ilmu Komputer adalah ilmu yang sedang saya cari saat ini... jadi minat saya adalah mencari ilmu komputer setinggi mungkin
Tidak ada komentar:
Posting Komentar