Program mencari keliling dan luas lingkaran dengan pascal

abdulmail | freeware | free game | exotic artikel | tips dan trik | free tutorial | internet marketing | gratis |education

kalau yang ini program pascal untuk mencari keliling dan luas lingkaran

program lingkr;
uses crt;
VAR r, k, l :real;
    LAGI :CHAR;
LABEL A,B,C;
CONST PHI = 3.14;
begin
A: clrscr;
   WRITELN;
   WRITELN('+-----------------------------------+');
   WRITELN('| PROGRAM KELILING & LUAS LINGKARAN |');
   WRITELN('+-----------------------------------+');
   WRITE(' MASUKKAN JARI-JARI LINGKARAN = ');READLN(r);
   WRITELN;
   k :=2*PHI*r;
   l :=PHI*r*r;
   WRITELN(' KELILING = ',k:22:1);
   WRITELN;
   WRITELN(' LUAS     = ',l:22:1);
   WRITELN(' ---------------------------------');
   WRITELN('               SELESAI');
   WRITELN;
C: WRITE(' ANDA INGIN MENGHITUNG LAGI ? (Y/N)');READLN(LAGI);
   CASE (LAGI) OF
   'Y','y' :GOTO A;
   'N','n' :GOTO B;
   ELSE
   WRITELN;
   WRITELN('! PILIHAN HANYA Y/N !');GOTO C;
   READLN;
B: END;
END.

mohon dikoreksi agar lebih baik.