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