Page 156 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN
P. 156
Algoritma Luas _dan _Keliling
{Menghitung luas dan keliling lingkaran untuk ukuran jari-jari tertentu. Algoritma
menerima masukan jari-jari lengkaran}
Const {harga tetapan}
Phi : 3.14
Deklarasi
r : integer {peubah data bilangan bulat}
Luas, Keliling: real { Peubah data bilanga pecahan}
Deskripsi:
Read ( r ) { menginputkan nilai jari-jari}
2
Luas Phi*r { Menghitung nilai luas}
Keliling 2*Phi* r { Menghitung nilai keliling}
Write (Luas) { mencetak hasil luas}
Write (Keliling) {mencetak hasil keliling}
Program Hitung_Luas_Keliling;
Uses Crt;
Const Phi:3.14;
Var
r : integer;
Luas, Keliling : real;
Begin{ Program utama}
Clrscr;
Write(‘masukkan nilai jari-jari=?’; Readln (r);
Luas:= phi*SQR(r);
Keliling:=2*phi*r;
Writeln(‘ nilai luas diperoleh= ‘, Luas:4’);
Writeln(‘ nilai keliling diperoleh= ‘, Keliling:4’);
End.
Soal -03
Dibaca suhu air (T) ( dalam satuan derajat Celsius). Buatkan algoritma untuk
menenentukan apakah wujud air tersebut dalam keadaan Padat (suhu ≤ derajat
Celsius), cair (suhu antara 0 sampai 100), atau gas (suhu > 100).
Jawab:
Algoritma Wujud_Air
Deklarasi
T: real
Deskripsi:
