FUNCTION

 INI PROGRAM FUNCTION


USES winCRT;
PROCEDURE JUDUL;
VAR I:BYTE;
BEGIN
     WRITELN('MENGHITUNG LUAS PERSEGI PANJANG');
     FOR I:= 1 TO 31 DO
         WRITE('-');
     WRITELN;
END;
PROCEDURE INPUT(VAR A,B:BYTE);
VAR I:BYTE;
BEGIN
     WRITE('PANJANG : '); READLN(A);
     WRITE('LEBAR   : '); READLN(B);
END;
FUNCTION LUASPP(A,B:BYTE):INTEGER;
VAR C:INTEGER;
BEGIN
     C:=A*B;
     LUASPP:=C;
END;
FUNCTION KELLPP(A,B:BYTE):INTEGER;
VAR C:INTEGER;
BEGIN
     C:=2*(A+B);
     KELLPP:=C;
END;

{---------------INI ADALAH AWAL PROGRAM UTAMA-----------------}

VAR P,L,PILIH:BYTE;
    MCL:CHAR;
BEGIN
     CLRSCR;
     MCL:='Y';
     WHILE (MCL='Y') DO
     BEGIN
          WRITELN('1. LUAS');
          WRITELN('2. KELILING');
          WRITE('PILIH [1/2] : '); READLN(PILIH);
          CASE PILIH OF
          1:BEGIN
                 JUDUL;
                 INPUT(P,L);
                 WRITELN('LUAS : ',LUASPP(P,L));
            END;
          2:BEGIN
                 JUDUL;
                 INPUT(P,L);
                 WRITELN('KELILING :',KELLPP(P,L));
            END;
          END;
          WRITE('MAU COBA LAGI [Y/T] : '); READLN(MCL);
     END;
     REPEAT UNTIL KEYPRESSED;
END.

Anda baru saja membaca artikel yang berkategori dengan judul FUNCTION. Anda bisa bookmark halaman ini dengan URL https://alifrusdiana.blogspot.com/2014/01/program-function-uses-wincrt-procedure.html. Terima kasih!

Ditulis oleh: Unknown - Rabu, 22 Januari 2014