Tutorial Pascal Membuat Input Data, Luas Balok, Volume, Keliling Balok

Fajar

Wednesday, March 18, 2020

Pascal Tutorial

Hai, Kini saya membuat / mengasih code rumus balok secara gratis!. kalian boleh ko untuk merecode, supaya kalian belajar juga seperti saya hehe.

Saya mendapatkan cara itu juga ga instan, saya cari beberapa rumus supaya saya jadiin bahan. sebenarnya ini adalah tugas sekolah saya, saya juga tau beberapa dari kalian juga dapat tugas program pascal lainnya.

Langsung saja kita ke kodenya yah, udah ga sabar kan kalian? saya tau pesan ini cuma kalian sia sia kan hehe, gapapa saya nge blogger cuma berbagai pengalaman saja.

Petama tama kalian download Pascal di PlayStore atau pengguna laptop/komputer bisa download di FreePascal.org
Lalu kalian buka dan buat file baru,
Silakan copy kode berikut, jika sudah kalin Run

program balok;
Uses crt;

{LUAS BALOK}

var luas,P,L,T:integer;
procedure LuasBalok;
begin
clrscr;
textcolor(14);
writeln('Program Menghitung Luas Balok');
textcolor(11);
writeln('----------------------------');
textColor(10);
Write('Masukan Panjang : '); readln(P);
Write ('Masukan Lebar : '); readln(L);
write('Masukan Tinggi : '); readln(T);
textcolor(15);
writeln('----------------------------');
luas:=2*(P*L+P*T+L*T);
textcolor(14);
Writeln('Luas Balok : ',luas);
end;

{VOLUME BALOK}

var
Pa,Le,Ti,volume:integer; 
procedure VolumeBalok;
begin
clrscr;
textcolor(14);
writeln('Program Menghitung Volume Balok');
textcolor(11);
writeln('----------------------------');
textcolor(10);
write('Panjang Balok : '); readln(Pa);
write('Lebar Balok : '); readln(Le);
write('Tinggi Balok : '); readln(Ti);
textcolor(15);
writeln('----------------------------');
volume:=Pa*Le*Ti;
textcolor(14);
writeln('Volume Balok : ',volume);
end;

{KELILING BALOK}

var
Pan,Leb,Tin,keliling:integer;
procedure KelilingBalok;
begin
clrscr;
textcolor(14);
writeln('Program Menghitung Keliling Balok');
textcolor(11);
writeln('----------------------------');
textcolor(10);
write('Panjang Keliling Balok : '); readln(Pan);
write('Lebar Keliling Balok : '); readln(Leb);
write('Tinggi Keliling Balok : '); readln(Tin);
textcolor(15);
writeln('----------------------------');
keliling:=4*(Pan+leb+Tin);
textcolor(14);
writeln('Keliling Balok : ',keliling);
end;

{Input Data}

procedure InputData;
begin
clrscr;
textcolor(14);
Writeln ('Hasil Input Data');
textcolor(11);
writeln('----------------------------');
textColor(10);
Writeln ('Luas Balok : ',luas);
textcolor(13);
writeln('Panjang : ',P);
writeln('Lebar : ',L);
writeln('Tinggi : ',T);
textcolor(11);
writeln('----------------------------');
textColor(10);
WriteLn('Volume Balok : ',volume);
textcolor(13);
writeln('Panjang : ',Pa);
writeln('Lebar : ',Le);
writeln('Tinggi : ',Ti);
textcolor(11);
writeln('----------------------------');
textColor(10);
Writeln ('Keliling Balok : ',keliling);
textcolor(13);
writeln('Panjang : ',Pan);
writeln('Lebar : ',Leb);
writeln('Tinggi : ',Tin);
end;

{PEMBUKAAN}

var
pil : integer;
lg:char;
begin
repeat
clrscr;
textcolor(11);
writeln('----------------------------');
textcolor(4);
writeln('>>>>>>>>> @jart.py <<<<<<<<<');
textcolor(11);
writeln('----------------------------');
textcolor(14);
writeln('1. Input Data');
writeln('2. Luas Balok');
writeln('3. Volume Balok');
writeln('4. Keliling Balok');
writeln('5. Selesai');
textcolor(12);
write('pilih(1-5) : ');readln(pil);
case pil of
1: begin
InputData;
end;
2: begin
LuasBalok;
end;
3: begin
VolumeBalok;
end;
4: begin
KelilingBalok
end;
5: begin
clrscr;
textcolor(11);
textbackground(13);
writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-');
writeln('-        Terima Kasih          +');
writeln('+ Banyakin Belajar Biar Pintar -');
writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+');
textcolor(4);
writeln('+-+-+-+-+-+-@jart.py+-+-+-+-+-+-');
halt;
end;

else 
textcolor(14);
writeln('Maaf yang anda input salah');
end;
textcolor(11);
writeln('----------------------------');
textcolor(15);
writeln('Lanjutkan? y/t');
write('$ '); readln(lg);
until (lg= 'T') or (lg= 't');
end.

Kalau ada salah dalam pemrograman silakan atuh komentar, buat apa ada komentar kalo ga di gunain hehe.

Sekian kode dari saya, semoga bermanfaat bagi kita kita yang suka koding. kalo ngerasa bermanfaat sok mangga silakan di share, atau itu di paling bawah kan ada tulisan Subscribe nah silakan isi dengan email anda, supaya ga ketinggalan informasi dari saya.

Karena sesungguhnya sesudah kesulitan itu ada kemudahan - QS,. Ash-Sharh:5