mencari luas dan keliling lingkaran dengan turbo pascal

ini tutoria pertama yang saya dapatkan dari SMK TI yaitu pemprograman dasar mencari luas dan keliling lingkaran dengan dengan menggunakan turbo pascal atau yang sering kita sebut dengan TPW, langsung ja ya kita praktekkan bagaimana cara membuatnya

pembuatan program mencari luas dan keliling lingkaran:

1. buka aplikasi turbo pascal bila belum punya aplikasinya bisa download disini
2. kemudian jalankan programnya 
3. pilih menu file => new untuk membuat lembar kerja baru
4. 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 ( 'KEL LINGKARAN ADALAH = ',KEL:4:2);
WRITELN ( 'LU LINGKARAN ADALAH  = ', LU:4:2);

END.

5. kemudian jalankan aplikasinya dengan menekan tombol crtl+f9 atau bisa menggunakan menu run
    klau berhasil akan seperti berikut ini 

 
6. selamat mencoba jangan malu-malu untuk bertanya dengan memberikan komentar anda
    sekian dari belajar bareng SMK TI semoga bermanfaat cara mencari luas dan keliling lingkaran dengan turbo pascal