Hy My Name is Muh Khaedir T sebelum baca posting saya comment dulu dong saya akan posting tentang Program Perhitungan Luas lingkaran dengan Turbo Pascal
Caranya :
1. Buka aplikasi Turbo Pascal
2. Pilih menu =>new
3. Tulis kode dibawah ini
PROGRAM PERHITUNGAN ;
USES WINCRT ;
VAR
KEL,LU: REAL ;
R : INTEGER;
BEGIN
WRITELN ( 'PERHITUNGAN KELILING DAN LUAS LINGKARAN ' );
WRITELN ( '_______________________________________ ' );
WRITE ( 'MASUKKAN NILAI R = '); READLN (R);
WRITE ( 'MASUKKAN NILAI R = '); READLN (R);
KEL := 2*3.14*R;
LU := 3.14*R*R;
WRITELN ( 'LU LINGKARAN ADALAH = ', LU:4:2);
END.
USES WINCRT ;
VAR
KEL,LU: REAL ;
R : INTEGER;
BEGIN
WRITELN ( 'PERHITUNGAN KELILING DAN LUAS LINGKARAN ' );
WRITELN ( '_______________________________________ ' );
WRITE ( 'MASUKKAN NILAI R = '); READLN (R);
WRITE ( 'MASUKKAN NILAI R = '); READLN (R);
KEL := 2*3.14*R;
LU := 3.14*R*R;
WRITELN ( 'LU LINGKARAN ADALAH = ', LU:4:2);
END.
Oke deh selesai selamat menikmatia
