Program Pascal Menghitung Luas dan Keliling Lingkaran

Nama : Muhammad Lathif Azmii            NPM :06201740013

Program Studi :Sistem Informasi  Matakuliah :Algoritma

1. {luas dan keliling Lingkaran}

Program Lingkaran;

Uses crt;

Const pi =3.14;

Var  r:integer;

     L,k:real;

begin

clrscr;

writeln(‘Hitung Luas dan Keliling Lingkaran’);

writeln(‘==================================’);

writeln(‘jari - jari :’);

readln(r);

L:pi*r*r;

K:2*3.14*r;

writeln(‘luas:’,l:0:2);

writeln(‘keliling:’,K:0:2);

readln ;

end.

Attention!

Selalu Perhatikan tanda baca atau huruf  saat anda mengerjakannya dengan pascal, karena itu dapat berpengaruh saat anda mencobanya di pascal, jika tidak sesuai akan terjadi sintax error.

==semoga dapat membantu anda mengerjakan tugas==