Menampilkan nilai keliling lingkaran
Begin
CLRSCR ;
write ( ' program mencari keliling lingkaran ' ) ;
write ( ' input nilai r = ' ) ; readln ( R ) ;
keliling : = 2 * 3.14 * r ;
write ( ' nilai keliling = ; keliling ) ;
readln ;
end.
CLRSCR ;
write ( ' program mencari keliling lingkaran ' ) ;
write ( ' input nilai r = ' ) ; readln ( R ) ;
keliling : = 2 * 3.14 * r ;
write ( ' nilai keliling = ; keliling ) ;
readln ;
end.
Komentar
Posting Komentar