Pascal:Code Menghitung Luas Lingkaran
10:22 AM
Coding pascal pada postingan ini mengenai tentang menghitung luas lingkaran.Biar tidak kelamaan langsung saja kita coba codingnya.
Rumus luas lingkaran = pi(22/7)x(r(jari2)xr(jari2))
Coding 1:
Uses Wincrt;
Var r:Integer;
pi,L:Real;
Begin
pi:=22/7;
r:=10;
L:=pi*(r*r);
Write ('Luas lingkaran=',L:2:2);
End.
Coding 2:
Uses Wincrt;
var r:Integer;
pi,L:Real;
Begin
pi:=22/7;
Write('Jari-jari lingkaran=');Readln(r);
L:=pi*(r*r);
Write('Luas lingkaran=',L:2:2);
End.
Nah, sudah dicoba?
Pasti hasil tampilan dari coding 1 dan 2 berbeda, akan tetapi hasil luas lingkaran itu akan sama.
Yang membedakan coding 1 dan 2 adalah:
Pada coding 1 saat kita run disana langsung muncul hasil luas lingkarannya, karena pada saat kita coding kita sudah menentukan jari-jarinya. Sedangkan,
Pada coding 2 saat kita run disana tidak langsung muncul hasil, akan tetapi kita diperintahkan untuk memasukkan data untuk jari-jarinya. Itu dikarenakan pada coding kita menulis code readln yang artinya kita diperintahkan menginput suatu data.
Pasti hasil tampilan dari coding 1 dan 2 berbeda, akan tetapi hasil luas lingkaran itu akan sama.
Yang membedakan coding 1 dan 2 adalah:
Pada coding 1 saat kita run disana langsung muncul hasil luas lingkarannya, karena pada saat kita coding kita sudah menentukan jari-jarinya. Sedangkan,
Pada coding 2 saat kita run disana tidak langsung muncul hasil, akan tetapi kita diperintahkan untuk memasukkan data untuk jari-jarinya. Itu dikarenakan pada coding kita menulis code readln yang artinya kita diperintahkan menginput suatu data.
Semoga bermanfaat
1 comments
kayaknya ada yang salah tuh gan,.,const nya perl gak?
ReplyDelete