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

Program Membuat deret

 Cek ebroot GAn :

uses crt;

var

   a,b : integer;
begin
     for a := 1 to 5 do
     begin
          for b:= 1 to 5 do write (a:4,b:2);
          writeln;
     end;
     readln;
end.

READMORE - Program Membuat deret

Program Mencari Huruf

Cek Idot GAn :


program    mencarihuruf;

uses crt;

var

x : integer;

begin

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

        writeln ( char ( 64 + x));

readln;

end.

READMORE - Program Mencari Huruf

Program Tahun Kabisat

 Langsung aja dech Cek Idot GAn :


uses crt ;

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