Assalamu’alaikum wr wb
Berikut ini adalah cara belajar singkat aritmatik dasar dengan bahasa paskal menggunakan aplikasi
Delphi7, disini saya akan menjelaskan langkah dan cara membuat aplikasi. Pada kesempatan ini yang akan kita bahas adalah cara membuat aplikasi untuk perkalian, pengurangan, pembagian, luas rabung, volume tabung, luas belok, volume balok, luas bola, dan volume bola.
Sebelum memulai yang perlu kita ketahui adalah macam macam tipe data dan variabel. Tipe data yang seringa di gunakan adalah string(kalimat), integer(angka), round(pembulatan) dll. Kemudian variabel adalah tempat menampung nilai sementara.
Yang paling penting harus di ketahui adalah untuk menulis tipe data dan variabel harus di atas begin dan dibawah var. Sedangkan untuk menulis rumus dan program ada di antara begin dan end. Kemudian setelah kalimat harus di tutu dengan’;’.
Untuk kesempatan hari ini saya akan menggunakan contoh tipe data real karena tipe data ini fleksibel dan bisa di gunakan dengan mudah.
a. perkalian
Pertama ialah membuka aplikasi Delphi 7 setelah itu klik file new other. kemudian klik console aplication kemudian klik OK.
Setelah itu tulis program seperti di bawah ini:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:real;
begin
write ('Nilai A:');
readln(a);
write ('Nilai B:');
readln(b);
write ('Hasil perkalian A*B:',a*b:3:1);
readln
end.
Untuk menjalankan nya klik Run/ F9 seperti gambar berikut.
Setelah Run di klik maka aplikasi akan berjalan
Petama masukan nilai A terus tekan enter, kemudian masukan nilai B kemudian tekan enter. rumus perkalian selesai.
b. pengurangan
Untuk proses membuat rumus aplikasi pengurangan semua langah langkahnya hampir sama dengan perkalian hanya sedikit merubah pada rumusnya.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:real;
begin
write ('Nilai A:');
readln(a);
write ('Nilai B:');
readln(b);
write ('Hasil penguranagn A-B:',a-b:3:1);
readln
end.
c. Pembagian
Untuk proses membuat rumus aplikasi pembagian semua langah langkahnya hampir sama dengan pengurangan hanya sedikit merubah pada rumusnya, yakni seperti di bawah ini:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:real;
begin
write ('Nilai A:');
readln(a);
write ('Nilai B:');
readln(b);
write ('Hasil pembagian A/B:',a/b:3:1);
readln
end.
d. Menghitung luas tabunng
Untuk proses membuat rumus aplikasi luas tabung semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas tabung, yakni seperti di bawah ini:
Rumus luas tabung ialah: 2 x Phi x R x R + 2 x Phi x R x T
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
r,t,ltabug:real;
begin
write ('Nilai r:');
readln(r);
write ('Nilai t:');
readln(t);
ltabung:=2*3.14*r*r+2*3.14*r*t;
write ('Hasil luas tabung:',ltabung:3:1);
readln
end.
e. Menghitung volume tabung
Untuk proses membuat rumus aplikasi volume tabung semua langah langkahnya hampir sama dengan langkah langkah membuat program menghitung luas tabung hanya saja harus menentukan rumus volume tabung, yakni seperti di bawah ini:
Rumus volume tabung ialah: Phi x R x R x T
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
r,t,vtabung:real;
begin
write ('Nilai r:');
readln(r);
write ('Nilai t:');
readln(t);
vtabung:=3.14*r*r*t;
write ('Hasil volume tabung: ',vtabung:3:1);
readln
end.
f. Menghitung luas balok
Untuk proses membuat rumus aplikasi luas balok semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas balok, yakni seperti di bawah ini:
Rumus luas balok ialah: 2 x P x L+ 2 x P x T + 2 x L x T
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
p,l,t,lbalok:real;
begin
write ('Nilai p:');
readln(p);
write ('Nilai l:');
readln(l);
write ('Nilai t:');
readln(t);
lbalok:=2*p*l+2*p*t+2*l*t;
write ('Hasil luas balok: ',lbalok:3:1);
readln
end.
g. Menghitung volume balok
Untuk proses membuat rumus aplikasi volume balok semua langah langkahnya hampir sama dengan langkah langkah membuat program luas balok hanya saja harus menentukan rumus volume balok, yakni seperti di bawah ini:
Rumus volume balok ialah: P x L x T
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
p,l,t,vbalok:real;
begin
write ('Nilai p:');
readln(p);
write ('Nilai l:');
readln(l);
write ('Nilai t:');
readln(t);
vbalok:=p*l*t;
write ('Hasil volume balok: ',vbalok:3:1);
readln
end.
h. Menghitung luas bola
Untuk proses membuat rumus aplikasi luas bola semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas bola, yakni seperti di bawah ini:
Rumus luas bola ialah: 4 x Phi x R x R
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
r,lbola:real;
begin
write ('Nilai r:');
readln(r);
lbola:=4*3.14*r*r;
write ('Hasil luas bola: ',lbola:3:1);
readln
end.
i. Menghitung volume bola
Untuk proses membuat rumus aplikasi volume bola semua langah langkahnya hampir sama dengan langkah langkah membuat program luas bola hanya saja harus menentukan rumus volume bola, yakni seperti di bawah ini:
Rumus volume bola ialah: 4/3 x Phi x R x R x R
Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam proses pembuatan aplikasi seperti dibawah ini :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
r,vbola:real;
begin
write ('Nilai r:');
readln(r);
vbola:=4/3*3.14*r*r*r;
write ('Hasil volume bola: ',vbola:3:1);
readln
end.
Sekian terimaksih semoga modul sederhana di atas bisa bermanfaat dan membantu. Apabila ada salah kata dan lainya mohon maaf , terimakasih...........
Wasssalamu’alaikum wr wb
0 komentar:
Posting Komentar