Salam Pascal Mania !
Oh iya mimin kali ini mau kasih source kode pascal untuk menghitung luas persegi.
Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
Kita pasti udah hafal bener dikepala rumus matematis menghitung luas bangun datar layaknya persegi. Bahkan saking hafalnya kita semua sampe lupa hehehe 😁😁
Kita wajib sepakat kalo rumus matematisnya itu adalah luas(L) = Sisi x Sisi (S²) maka untuk dipascalnya misalkan kita gunakan Variable 'Luas' untuk menngidentifikasikan Luas dan 'Sisi' untuk mengidentifikasikan Sisi. Biar agan gak keliru maksudnya begitu.
Source Kodenya sebagai berikut gan :
Var
Sisi, Luas : integer;
begin
write('Masukan Sisi : ');
readln(Sisi);
Luas:= Sisi * Sisi;
writeln('Luasnya adalah = ', Luas);
readln;
end.
Sisi, Luas : integer;
begin
write('Masukan Sisi : ');
readln(Sisi);
Luas:= Sisi * Sisi;
writeln('Luasnya adalah = ', Luas);
readln;
end.
Penjelasannya (Perbaris) :
BARIS1 Karena kita membuat program yang berupa perhitungan matematis, otomatis akan ada penyimpan nilai sementara atau yang kita sebut dengan Variable ya gan, nah untuk itu 'Var' pada baris pertama berguna untuk memanggil fungsi Variabel yang ada di pascal.
BARIS2 itu kita tulis apa saja variablenya, kalau hitung persegi kan cuma dua (Luas dan Sisi) maka deklarasi variablenya kita tulis (langsung) bertipe data Integer. Maka menjadi Sisi, Luas : Integer;
BARIS3 Mulai penulisa program
BARIS4 Ini perintah untuk inputan Sisi
BARIS5 Nanti nilai inputan nya disimpan di baris ini
BARIS6 Kalau sudah disimpan maka nanti diproses/dihitung pada rumus ini
BARIS7 Kemudian hasilnya ditampilkan disini
BARIS8 Dibaca
BARIS9 Selesai
Dan, berikut hasil Screenshoot untuk outputnya setelah di Compile jadi kek gini
 |
|
Semoga bisa membantu untuk Sobat Pascal Mania 😂 Salam Pascal Mania !
Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman.
