Sabtu, 24 Maret 2012

Tugas 3

Program Menghitung Kombinasi

PERTEMUAN KE 5 TANGGAL 21 MARET 2012
SEMESTER 2D
TUGAS 3:
  • Buat Program Untuk Menghitung Kombinasi.

  1. Program Untuk Menghitung Kombinasi

PROGRAM COMBINASI_WITH_PROCEDURE;
USES WINCRT;
VAR
N,R,NR,C,H1,H2,H3:REAL;
I,J,K:INTEGER;

Sabtu, 10 Maret 2012

Tugas 2


PERTEMUAN KE 3 TANGGAL 07 MARET 2012
SEMESTER 2D
TUGAS 2:
Buat Program untuk menampilkan rincian uang kembalian.


Program rincian_uang_kembali;
uses wincrt;

var
uang,bayar,kembali : longint;

begin
write('Jumlah Bayar : ');readln(bayar);
write('Jumlah Uang : ');readln(uang);
kembali:=uang-bayar;
writeln('Total Kembali : ',kembali);

Sabtu, 03 Maret 2012

Tugas 1

PERTEMUAN KE 2 TANGGAL 29 FEBRUARI 2012
SEMESTER 2D
TUGAS 1 :
  • Buat Program Untuk Perkalian Dua Matrix
  • Buat Program Untuk Menampilkan Matrix Identitas Terbalik

 1. Perkalian 2 Matrix

PROGRAM PERKALIAN2_MATRIX;
USES WINCRT;

VAR
A,B,C : ARRAY [1..10,1..10] OF INTEGER;
O,P,Q,X,Y,R : INTEGER;


BEGIN
WRITELN('PROGRAM PERKALIAN 2 MATRIX');
WRITELN;
WRITELN('UKURAN Matrix A');
WRITE('Baris : '); READLN(X);
WRITE('kolom : '); READLN(Y);