CONTOH PROGRAM PASCAL SEGITIGA DAN KERUCUT

Assalamu'alaikum :)
Permisi admin mau bagiin contoh dari program pascal nih guys, admin buat ini saat kuliah Pemrograman komputer 1 yang isinya buat - buat program menggunakan pascal. postingan kali ini yaitu contoh program pascal segitiga dan kerucut. silahkan copy kodenya guys. Semoga bermanfaat.

 
program segitiga_kerucut;

uses crt;

var

 a,t,r,L,V:real;

 procedure Luas_segitiga;

 begin

CONTOH PROGRAM PASCAL PERSEGI PANJANG DAN BALOK

Program persegi panjang dan balok ini berisi program untuk menghitung luas persegi panjang dan menghitung volume balok. Program ini menggunakan program pascal. setelah program dibuat jadi kalian jika menghitung luas persegi panjang maupun volume balok tinggal inputkan data - data panjang, lebar dan tinggi. mudah bukan? Yang mau buat programnya silahkan copy kodenya dibawah ini ya


program persegipanjang_balok;

uses crt;

var

 p,l,t,Ls,V:real;

 procedure Luas_persegipanjang;

 begin

CONTOH PROGRAM PASCAL LUAS LINGKARAN, VOLUME BOLA, VOLUME TABUNG

program lingk_bola_tabung;

uses crt;

var

 r, t, L,Vb,Vt:real;

 procedure Luas_lingkaran;

 begin

 L:= pi*r*r;

 writeln('Luas lingkaran = ',L:0:2);

 end;

 procedure Volume_bola;

 begin

PROFIL / BIODATA JI CHANG WOOK

Nama              : Ji Chang Wook

Tanggal lahir    : 5 Juli 1987

Tempat lahir    : Korea Selatan

Tinggi              : 180 cm

Zodiak            : Cancer

Serial TV:

You Are Very Good (2008)

The Sons of Sol Pharmacy House (2009)

Hero (2009)

Smile, Dong Hae (2010)

Warrior Baek Dong Soo (2011)

Bachelor’s Vegetable Store (2011)

Five Fingers (2012)

Empress Ki (2013)

Secret Love (2014)

Healer (2014 – 2015)

Dll.

 KUMPULAN FOTO JI CHANG WOOK

DAFTAR DRAMA KOREA JANUARI 2015

Selamat datang di blog saya yang sederhana ini ^-^
kali ini saya berbagi drama korea terbaru 2015 yang mulai tayang bulan januari. Langsung saja berikut drama korea terbaru januari 2015. Untuk melihat profil dramanya silahkan klik judul drama.

CONTOH PROGRAM PASCAL KELULUSAN

Program kelulusan;
uses crt;
var
 nilai:integer;
begin
 clrscr;
 write('jumlah nilai:');
 readln (nilai);
 if nilai<=60 then
 begin
 writeln ('Tidak Lulus');
 end
 else
 begin
 writeln('Lulus');
 end;
 readln;
end.

Output:

CONTOH PROGRAM PASCAL JENIS KELAMIN

Program Jenis_kelamin;
uses crt;
var
 a:char;
begin