dedy epriyandi: November 2012

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

Minggu, 18 November 2012

Jumat, 16 November 2012

Rabu, 07 November 2012

Mengenai Saya

Arsip Blog