Program Pascal(Penjumlahan)

PROGRAM PENJUMLAHAN;

USES CRT;

VAR X,Y :INTEGER;

FUNCTION HITUNG (VAR A,B :INTEGER):INTEGER;

BEGIN

HITUNG :=A+B;

END;

BEGIN

CLRSCR;

WRITE ('NILAI X =');READLN (X);

WRITE ('NILAI Y =');READLN (Y);

WRITELN ('HASIL X+Y =', HITUNG (X,Y));

READLN;

END.

PROGRAM PENGURANGAN;

VAR X,Y :INTEGER;

FUNCTION HITUNG (VAR A,B :INTEGER);INTEGER;

BEGIN

HITUNG :=A-B

READLN;

END;

BEGIN

CLRSCR;

WRITE ('NILAI X=');READLN (X);

WRITE ('NILAI Y=');READLN (Y);

WRITELN ('HASIL X-Y =', HITUNG (X,Y));

READLN;

END;

PROGRAM PERKALIAN;

VAR N :INTEGER;

FUNCTION FAK (X :INTEGER):INTEGER;

BEGIN

IF X<=1 THEN

FAK :=1;

ELSE

FAK :=X + FAK (X-1);

READLN;

END;

BEGIN

CLRSCR;

WRITE ('N!?');READLN (N);

WRITELN (N,'!=',FAK (N));READLN;

END;

PROGRAM PEMANGKATAN;

VAR N,P2 :INTEGER

FUNCTION HITUNG (VAR A,B :INTEGER):INTEGER;

BEGIN

CLRSCR;

READLN (N);

WRITELN (PANGKAT 2(N));

WRITELN(P2);

READLN;

END;

PROGRAM BAGI;

VAR X,Y :INTEGER;

FUNCTION HITUNG (VAR A,B :INTEGER):INTEGER;

BEGIN

HITUNG :=A DIV B

END;

BEGIN

CLRSCR;

WRITE ('NILAI X =');READLN (X);

WRITE ('NILAI Y =');READLN (Y);

WRITELN ('HASIL A/B =',HITUNG (X,Y));

READLN;

END;

PROGRAM SISA BAGI;

VAR X :REAL

FUNCTION MOD (A :REAL):REAL;

BEGIN

IF A MOD <> 0

WRITE

ELSE

IF A MOD

PROGRAM UTAMA;

BEGIN

CLRSCR;

PROGRAM PENJUMLAHAN;

PROGRAM PENGURANGAN;

PROGRAM PERKALIAN;

PROGRAM PEMANGKATAN;

PROGRAM BAGI;

PROGRAM SISA BAGI;

PROGRAM SINUS;

PROGRAM COSINUS;

PROGRAM TANGENT;

READLN;

END.