Coding Menghitung Kerucut


Coding Menghitung Luas Kerucut (Alas, selimut, dan Permukaaan)
Bahasa Pemrograman Pascal



 Tanpa basa-basi silahkan copy dan coba saja :D









========================================================



program volume_kerucut;
uses crt;

const phi=3.14;
var la:extended;
    r,s :extended;
    ls  :extended;
    lp   :extended;
    pilih:string;

function  la_kerucut:integer;
begin clrscr;
      write('Jari-jari kerucut : '); readln(r);

      la:=phi*r*r;
      writeln;
      writeln('Luas Alas Kerucut = ',la:2:0); readln;
end;

function ls_kerucut:integer;
begin
clrscr;
      write('Jari-jari kerucut : '); readln(r);
      write('S kerucut         : '); readln(s);
ls:=phi*r*s;
      writeln('Luas Selimut Kerucut = ',ls:2:0);  readln;
end;

function lp_kerucut:integer;
begin
clrscr;
      write('Jari-jari kerucut : '); readln(r);
      write('S kerucut         : '); readln(s);
lp:=(phi*r*r)+(phi*r*s);
        writeln('Luas Permukaan Kerucut = ',lp:2:0); readln;
end;


begin
repeat
clrscr;
writeln('1> Luas Alas Keucut');
writeln('2> Luas Selimut Kerucut');
writeln('3> Luas Permukaan Kerucut');
writeln('4> Exit');
writeln;
write(' Pilih  : '); readln(pilih);

case pilih of
'1' : la_kerucut;
'2' : ls_kerucut;
'3' : lp_kerucut;
'4' : exit;
end;
until pilih = '4';
end.







Coding Array Dua Dimensi dan Record


Ini  adalah codingan menggunakan Bahasa Pemrogramn Pascal dengan adanay Array dan Record didalamnya. Record dan array juga memiliki fungsi yang berbeda tapi hampir mirip. Array hanya bisa menggunakan tipe data yang sama (Homogen), sedangkan Record dapat lebih dari satu jenis (Heterogen).

Tanpa basa-basi lagi, ini codingan tentang record dan array, coba di compile sendiri dan pelajari ya, gimana maksud ini dan itunya, selamat bereksperimen :D
# Gk pintar ngajar :v







program biodata_mahasiswa;
uses crt;
type rec = record
     nama,nim: string[15];
     umur: longint;
end;

var
data: array[1..50] of rec;
n,i : integer;
plh : char;

Procedure Input;
Begin
clrscr;
n:=0;
repeat
  clrscr;
  inc(n);
  writeln('----------------------------');
  writeln('|     BIODATA MAHASISWA    |');
  writeln('----------------------------');
  writeln('| Data ke-',n,'                |');
  writeln('----------------------------');
  with data[n] do

  begin
  writeln('Nama : ');
  writeln('NIM  : ');
  writeln('Umur : ');
  gotoxy(10,6);readln(nama);
  gotoxy(10,7);readln(nim);
  gotoxy(10,8);readln(umur);
  end;
  writeln;
  write('Tambah? <Y/N> : '); readln(plh);
  until ((plh='N') or (plh='n'));
 end;

Procedure kolom;
begin
 writeln('|   |                     |          |     Tahun|');
 writeln('|---|---------------------|----------|----------|');
 end;

Procedure output;
begin
 clrscr;
 writeln('               ########################          ');
 writeln('               ##  BIODATA MAHASISWA ##          ');
 writeln('               ########################          ');
 writeln;
 writeln('|-----------------------------------------------|');
 writeln('|No.|        Nama         |   NIM    |   Umur   |');
 writeln('|-------------------------|----------|----------|');
 writeln('|   |                     |          |          |');
 for i:=1 to n do
  begin
   with data[i] do
    begin
     gotoxy(1,7+i); kolom;
     gotoxy(2,7+i); writeln(i);
     gotoxy(7,7+i); writeln(nama);
     gotoxy(29,7+i); writeln(nim);
     gotoxy(40,7+i); writeln(umur);
    end;
  end;
 readkey;
end;

begin
repeat
clrscr;
writeln('  1. Input Data       ');
writeln('  2. Lihat Data       ');
writeln('  3. Exit                 ');
writeln('----------------------');
writeln(' Masukkan Pilihan :   ');
gotoxy(21,5); readln(plh);
  case plh of
  '1' : input;
  '2' : output;
  '3' : exit;
  end;
until (plh)='3';
end.

Amagi Brilliant Park Episode 02 [subtitle Indonesia]

Amagi Brilliant Park Episode 2
subtitle Indonesia


Silahkan download, bingung? Comment aja :D
thx :p

Amagi Brilliant Park Episode 01 [subtitle Indonesia]

Amagi Brilliant Park Episode 1
subtitle Indonesia


Silahkan download, bingung? Comment aja :D
thx :p

Durarara !! x2 Shou Episode 08 [subtitle Indonesia]

Durarara !! x2 Shou Episode 8
subtitle Indonesia

Silahkan download, bingung? Comment aja :D

Durarara !! x2 Shou Episode 07 [subtitle Indonesia]

Durarara !! x2 Shou Episode 7
subtitle Indonesia

Silahkan download, bingung? Comment aja :D

Durarara !! x2 Shou Episode 06 [subtitle Indonesia]

Durarara !! x2 Shou Episode 6
subtitle Indonesia

Silahkan download, bingung? Comment aja :D

Durarara !! x2 Shou Episode 05 [subtitle Indonesia]

Durarara !! x2 Shou Episode 5
subtitle Indonesia

Silahkan download, bingung? Comment aja :D

Durarara !! x2 Shou Episode 04 [subtitle Indonesia]

Durarara !! x2 Shou Episode 4
subtitle Indonesia

Silahkan download, bingung? Comment aja :D