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

Program Kalkulator

Langsung aja dech cekidot :


Program Calculator;

uses crt;

const

    Kol = 10; kol2=35;

Var

    Bil1,Bil2,Bil3,Pilih : Integer;

procedure masukkan;

    begin

        clrscr;
        gotoxy(kol2,4);writeln('----------------------');
        gotoxy(kol2,5);writeln(' Masukan Bilangan ');
        gotoxy(kol2,6);writeln('----------------------');
        gotoxy(kol2,7);writeln('Bilangan 1 : ');
        gotoxy(kol2,8);writeln('Bilangan 2 : ');
        gotoxy(kol2,9);writeln('----------------------');
        gotoxy(kol2,10);writeln('Hasil Operasi : ');
        gotoxy(kol2,11);writeln('----------------------');
        gotoxy(kol2+20,7);readln(bil1);
        gotoxy(kol2+20,8);readln(bil2);
    end;

Procedure Tambah;

    begin

        masukkan;

        bil3 := bil1 + bil2;

        gotoxy(kol2+20,10);writeln(bil1,'+',bil2,'=',bil3);

        readln;

    end;

Procedure Kurang;

    begin
        masukkan;

        bil3 := bil1 - bil2;

        gotoxy(kol2+20,10);writeln(bil1,'-',bil2,'=',bil3);

        readln;
    end;

Procedure Kali;

    begin
        masukkan;

        bil3 := bil1 * bil2;

        gotoxy(kol2+20,10);writeln(bil1,'*',bil2,'=',bil3);

        readln;

    end;

Procedure bagi_bulat;

    begin

        masukkan;

        bil3 := bil1 div bil2;

        gotoxy(kol2+20,10);writeln(bil1,'div',bil2,'=',bil3);

        readln;

    end;

Procedure Sisa_bagi;
    begin
        masukkan;

        bil3 := bil1 mod bil2;

        gotoxy(kol2+20,10);writeln(bil1,'mod',bil2,'=',bil3);

        readln;

    end;

(* Program Utama *)

begin

    repeat

    clrscr;

    gotoxy(kol,4); writeln('--------------------------');

    gotoxy(kol,5); writeln('Operasi Bilangan Bulat');

    gotoxy(kol,6); writeln('--------------------------');

    gotoxy(kol,7); writeln('1. Penambahan');

    gotoxy(kol,8); writeln('2. Pengurangan');

    gotoxy(kol,9); writeln('3. Perkalian');

    gotoxy(kol,10);writeln('4. Pembagian Integer {Div} ');

    gotoxy(kol,11); writeln('5. Sisa Hasil Bagi {Mod} ');

    gotoxy(kol,12); writeln('6. Selesai');

    gotoxy(kol,13); writeln('--------------------------');

    gotoxy(kol,14); writeln('Pilihan Anda [1..6] : [ ] ');

    gotoxy(kol,15);writeln('--------------------------');

    gotoxy (kol+25,14);readln(pilih);

    case pilih of

    1 : Tambah;

    2 : Kurang;

    3 : Kali;

    4 : Bagi_bulat;

    5 : Sisa_bagi;

end;
    until pilih = 6;

    readln;

end.

READMORE - Program Kalkulator

Program 1 Berderet

 Program ini mengeluarkan output seperti:

contoh:

 apabila diberi inputan 6 maka outputnya:



uses crt ;

var

x, y, z, i : integer ;

begin
     readln (z) ;


     for y:= 1 to z do

         begin
         for i:= 1 to y do

              write (i);
              writeln;
         end;
     readln;

end.

note:

sama kyak postingan dibawah..

READMORE - Program 1 Berderet

Program Bintang

 Program ini menghasilkan output seperti :
contoh:
apabila inputan yang di masukan 4 maka outputnya:

      *
    **
  ***
****

langsung aja nih programnya:

uses crt ;

var

x, y, z,i : integer ;

begin
     readln (z) ;


     for y:= 1 to z do

         begin
         for  x:= z-1 downto y do
              write (' ');


         for i:= 1 to y do

              write ('*');
              writeln;
         end;
     readln;

end.


note:

penggunaan uses crt hanya di gunakan untuk basis DOS
dan apabila anda menggunakan TPW 1.5 gunakan uses wincrt.

READMORE - Program Bintang