Program Mencari Karakter

program mencarikaraktertertentu;
uses wincrt;
var
   stringInput, x: string; y:char;
   jumlahHuruf,jumlah, i: integer;
  
begin
     write ('ketikan kata sesuka anda:');
     readln(stringInput);
     write ('kata yg anda ingin hitung;');
     read(y);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in [y] )then jumlah:=jumlah + 1;
         end;
        
         jumlahHuruf:=jumlah;
         writeln('jumlah huruf ',y,' adalah ', jumlahHuruf);
end.

READMORE - Program Mencari Karakter

Program Menghitung Karakter

program penghitungkarakter;
uses wincrt;
var
   stringInput, x: string;
   jumlahHuruf,jumlahNonHuruf,jumlah, i: integer;
begin
    write('masukan kata:');
     readln(stringInput);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in ['A'..'Z','a'..'z']) then jumlah:=jumlah + 1;
         end;
         jumlahHuruf:=jumlah;

         jumlah:=0;
         for i:= 1 to length (x) do
         begin
         if (not(x[i] in ['A'..'Z','a'..'z'])) then jumlah:=jumlah + 1;
         end;
         jumlahNonHuruf:=jumlah;
         writeln(jumlahNonHuruf+jumlahHuruf);
end.

READMORE - Program Menghitung Karakter

Program Luas Lingkaran Menggunakan Fungsi

program luas_lingkaran;
uses wincrt;
     function luaslingkaran ( r : integer) : real;


        begin

        luaslingkaran := 3.14 * r * r;

        end;
var

   a : integer;
begin

write('masukan jari-jari:');
readln (a);
writeln ('luas lingkara:',luaslingkaran (a):0:2 );
readln;
end.

note : Program ini di gunakan di TPW 1.5

READMORE - Program Luas Lingkaran Menggunakan Fungsi

Program Belajar Huruf

program belajarhuruf;
uses wincrt;

var
   i : char;

begin
     writeln ('masukan huruf besar atau kecil:'); readln(i);

             if ( ord (i) >= 65 ) and ( ord (i) < 97 ) then
                begin
                     writeln (' Huruf Kapital ');
                     writeln (' Huruf ke ', ord (i)-64);
                end
                else
                begin
                     writeln (' Huruf Nonkapital ');
                     writeln (' Huruf Ke ', ord (i)-96);
                end;
     readln;
end.

READMORE - Program Belajar Huruf

Program Tahun Kabisat

Program tahun_kabisat;
uses wincrt ;

var

tahun : integer ;

begin

     write ('masukkan tahun : ') ; readln (tahun) ;

     if tahun mod 100 = 0 then
        begin
                if tahun mod 400 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end

        else

        begin
                if tahun mod 4 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end;
readln;
end.

READMORE - Program Tahun Kabisat

Program Merubah Angka menjadi Huruf

 program    mencarihuruf;

uses wincrt;

var

x : integer;

begin

        writeln('masukan angka:'); readln (x);

        writeln ( char ( 64 + x));

readln;

end.

READMORE - Program Merubah Angka menjadi Huruf

Program Anak Ayam

Seperti yang kita ketahui lagu anak ayam yakni seperti anak ayam turun sepuluh mati satu tinggal sembilan disini saya mencoba membuat program tersebut bagi yang berminat silakan mencobanya

uses wincrt;

var

   i: integer;
   x: integer;
begin
     readln (x);

     for i := x downto 1 do
     begin
          if i = 1 then
              writeln('anak ayam turun 1 mati 1 tinggal induknya')
          else
              writeln ('anak ayam turun ', i, ' mati 1 tingal ',i-1);
     end;
readln;
end.

READMORE - Program Anak Ayam