Tugas 4

PERTEMUAN TANGGAL 2 MEI 2012

SEMESTER 2D

TUGAS 4

Buat Program untuk Perpangkatan pada Delphi 7

 

procedure TForm1.fortodoClick(Sender: TObject);

var

 i,j:integer; b:string;

 begin

  b:=' ';j:=2;

  for i:=1 to 10 do

  begin

   b:=b+inttostr (j)+' ';

   j:=j+2;

  end;

  label1.Caption:=b;

end;

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;

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);

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);