dedy epriyandi: 2012

Jumat, 07 Desember 2012

program Bilangan;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
BILANGANGENAP,BILANGANGANJIL: integer;
begin

writeln;

writeln ('                    ===========================================');
writeln ('                    --------""""** DEDY EPRIYANDI **"""------');
writeln ('                    ===========================================');
BILANGANGENAP:=1;
WRITELN ('1. BILANGAN GANJIL');
BILANGANGANJIL:=2;
WRITELN ('2. BILANGAN GENAP');
WRITELN ;
WRITELN;
WRITE ('SILAHKAN PILIH :');READLN;
begin
    IF BILANGANGANJIL=2 THEN
      begin
      WRITEln('***************** BILANGAN GANJIL *****************'); WRITELN ;
      WRITELN ('1' );
      WRITELN ('3' ) ;
      WRITELN ('5' )   ;
      WRITELN ('7')   ;
      WRITELN ('9')    ;
      WRITELN ('11');
      WRITEln('***************** BILANGAN GANJIL *****************'); readln ;
      end;

      begin
      writeln;
      WRITELN ('***************** BULAN GENAP *****************');WRITELN;
      WRITELN ('2' );
      WRITELN ('4' ) ;
      WRITELN ('6' )   ;
      WRITELN ('8')   ;
      WRITELN ('10');
      WRITELN ('12');
      WRITELN ('***************** BULAN GENAP *****************');readln;
      end;

end;
end.

Rabu, 05 Desember 2012

program binase;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin

writeln(' $$$$$   $$$   $$ $$      $$$      $$$$$$   $$$$    $$     $$$$$   ');
writeln(' $$   $ $$$   $$$ $$     $$$$$     $$$      $$ $   $$    $$       ');
writeln(' $$$$$   $$$   $$$$$$    $$   $$    $$$$$$   $$$$    $$    $$ $$$$ ');
writeln(' $$   $ $$$   $$ $$   $$$$$$$$$      $$$   $$      $$$$$ $$   $$ ');
writeln(' $$$$$   $$$   $$ $$ $$$     $$$ $$$$$$   $$      $$$$$ $$$$$   ');

readln;
readln;
end.

program dedy1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
nim:integer;
nama:string;
kelas:string;
alamat:string;
asalsekolah:string;
begin
    write('masukkan NIM anda;');readln(nim);
    write('masukkan NAMA anda;');readln(nama);
    write('masukkan KELAS anda;');readln(kelas);
    write('masukkan ALAMAT anda;');readln(alamat);
    write('masukkan ASALSEKOLAH anda;');readln(asalsekolah);
    write('***************your biodata***************');readln;
    writeln('NIM anda:',nim);readln;
    writeln('NAMA anda:',nama);readln;
    writeln('KELAS anda:',kelas);readln;
    writeln('ALAMAT anda:',kelas);readln;
    writeln('ASALSEKOLAH anda:',asalsekolah);readln;

    write('***************terima kasih***************');readln;
end.

Minggu, 18 November 2012

program dedy;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
writeln('====================================================================');
writeln('==                  +         *******         *******              =');
writeln('==                 ***        ********        *******              =');
writeln('==                *****       ***    **       ***                  =');
writeln('==               *******      ***    **       *****                =');
writeln('==              *********     ***   **        ***                  =');
writeln('==             ***********    ********        *******              =');
writeln('==            *************   ******          *******              =');
writeln('==              *********                                          =');
writeln('==             ***********            *******        ***     ***   =');
writeln('==            *************           *********       ***   ***    =');
writeln('==           ***************          ***     **       *** ***     =');
writeln('==          *****************         ***     **        *****      =');
writeln('==         *******************        ***    **          ***       =');
writeln('==          *****************         ********           ***       =');
writeln('==         *******************        *******            ***       =');
writeln('==        *********************                                    =');
writeln('==       ***********************          ****     ******          =');
writeln('==      *************************        *****     ******          =');
writeln('==     ***************************         ***     ***             =');
writeln('==                |     |                  ***     *****           =');
writeln('==                |     |                  ***     ***             =');
writeln('==                |     |                 *****    ******          =');
writeln('==            ________________           *******   ******          =');
writeln('==        ________________________                                 =');
writeln('==                                                                 =');
writeln('====================================================================');
writeln('                                                                    ');
write ('masukkan NIM anda;');readln;
write ('masukkan nama anda;');readln;
write ('masukkan kelas anda;');readln;
write ('masukkan alamat anda;');readln;
write ('masukkan asal sekolah anda;');readln;
write ('                                ;');readln;
write ('                                ;');readln;
writeln('**********terima kasih**********');

readln;

readln;

end.

Jumat, 16 November 2012

program ampera;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
   writeln('==============================================================');
   writeln('==============================================================');
   writeln('==                                                          ==');
   writeln('==                    / |--|------------|-|\                ==');
   writeln('==                  /   |--|            |-| \              ==');
   writeln('==                /     | |------------| |\   \            ==');
   writeln('==              /     / | |            | | \    \          ==');
   writeln('==            /     /   |--|            |-| \     \        ==');
   writeln('==          /     /     | |            | |   \      \      ==');
   writeln('== ============/=======|===============|======\=========   ==');
   writeln('==            /         |               |       \           ==');
   writeln('==   -------/-----------|---------------|--------\-------   ==');
   writeln('==        /             |               |         \         ==');
   writeln('== ====/===============|===============|================   ==');
   writeln('==              / \            / \             / \       ==');
   writeln('==             /    \          /    \           /    \      ==');
   writeln('== ~ ~ ~ ~ ~ /~ ~ ~ \~ ~ ~ ~ /~ ~ ~ \~ ~ ~ ~ ~/~ ~ ~ \~    ==');
   writeln('==                                                          ==');
   writeln('== ####      ###     ##      ###### ##   ##               ==');
   writeln('== ## #    #####    ##      ###     ### ###               ==');
   writeln('== ####    ### ###   ##      #####   #######               ==');
   writeln('== ##     ######### ##      ###     ##   ##               ==');
   writeln('== ##    ###     ### ###### ###### ##   ##               ==');
   writeln('==                                                          ==');
   writeln('==          #####       ###      ##   ##     ####           ==');
   writeln('==          ##   #     #####     ### ##    #####           ==');
   writeln('==          #####     ### ###    #### ##   ###              ==');
   writeln('==          ##   #   #########   #######   ### ##          ==');
   writeln('==          #####   ###     ### ##   ##    ######          ==');
   writeln('==                                                          ==');
   writeln('==============================================================');
   writeln('==============================================================');

readln;

readln;
end.

Rabu, 07 November 2012

program tabung;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
   r,v,t:real;

begin
     write('volume tabung');readln;
readln;
     write('jari-jari tabung');readln(r);
     write('tinggi segiempat');readln(t);
     V:=3.14*r*r*t;
     write('luas tabung adalah :',V:2:2);readln;
end.

program segi empat;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
   p,v,l,t:real;

begin
     write('volume segiempat');
readln;
     write('panjang segiempat');readln(p);
     write('tinggi segiempat');readln(t);
     write('lebar segiempat');readln(l);
     V:=p*l*t*0.33;
     write('luas segiempat adalah :',V:2:2);readln;
end.

program LuasJajaranGenjang;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
   l,a,t:real;

begin
     write('Rumus Luas Jajaran Genjang');readln;
     write('panjang Alas Jajaran Genjang ');readln(a);
     write('tinggi Jajaran Genjang ');readln(t);
     L:=a*t;
     write('Luas Jajaran Genjang adalah..:',L:2:2);readln;

end.

program LuasPersegi;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
   L,s:real;

begin
     write('Rumus Luas Persegi ');readln;
     write('panjang sisi persegi');readln(s);
     L:=s*s;
     write('Luas Persegi adalah..:',L:2:2);readln;

end.

program kubus;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
   V,s:real;

begin
     write('volume Kubus ');readln;
     write('panjang sisi kubus ');readln(s);
     V:=s*s*s;
     write('volume kubusnya adalah.. Eng Ing Eeenngg..:',V:2:2);readln;
end.

dedy epriyandi

Jumat, 07 Desember 2012

Rabu, 05 Desember 2012

Minggu, 18 November 2012

Jumat, 16 November 2012

Rabu, 07 November 2012

Mengenai Saya

Arsip Blog