ACC Store: Maret 2012

Minggu, 25 Maret 2012

Tugas 3 (Struktur Data)

Program Kombinasi_Shagaf;

Uses

WinCrt;

Procedure Fak(Var F,Hasil:Integer);

Var

I:Integer;

T:String;

Begin

Hasil:=1;

For I:=2 to F do

Hasil:=Hasil*I;

End;

Var

R,N,NR,F1,F2,F3:Integer;

C:Real;

Begin

Writeln('Selamat Datang Di Program Kombinasi');

Writeln;

Write('Masukkan N = ');Readln(N);

Write('Masukkan R = ');Readln(R);

NR:=N-R;

Fak(N,F1);

Fak(NR,F2);

Fak(R,F3);

C:=F1/(F2*F3);

Writeln;

Writeln('Maka Kombinasinya Adalah : ',c:9:0);

Writeln;

End.

Hasil Akhir :

Minggu, 11 Maret 2012

Tugas 2 (Struktur Data)

Pertemuan Ke 3 Tanggal 7 Maret 2012

SEMESTER 2D

Tugas II:

Buat Program Menampilkan Rincian Uang.

Jawaban

Program Matrix Identitas Terbalik

Program Matrix_Identitas_Shagaf;

Uses

     Wincrt;
Var
    A,B,C:Array[1..5,1..5] Of Integer;
    X,Y: Integer;

Begin

     For X:= 1 To 5 Do
         Begin
         For Y:= 1 To 5 Do
             Begin
             A[X,Y]:=0;
             If X+Y=6 Then C[X,Y]:=1;
             Write (C[X,Y]:4);
             End;
         Writeln;
         End;
End.

Hasil Akhir (Print Screen):

Jawaban :

Program Perkalian 2 Matrix

Program Perkalian_Matrix_Shagaf;
Uses
    Wincrt;
Var
    A,B,C : Array [1..10,1..10] Of Integer;
    I,J,K,X,Y,Z : Integer;

Begin

Writeln('Selamat Datang Di Program Perkalian Matrik');
Writeln;
Writeln('Matrix A');
Write('Isi Baris : '); Readln(X);
Write('Isi Kolom : '); Readln(Y);
Writeln;
Writeln('Matrix B');
Writeln('Isi Baris : ',Y);
Write('Isi Kolom : '); Readln(Z);
Writeln;

Writeln ('Matrix A');

For I:=1 To X Do
For J:=1 To Y Do
    Begin
    Write('A[',I,',',J,'] : ');Readln(A[I,J]);
    End;

Writeln;

Writeln ('Matrix B');
For I:=1 To Y Do
For J:=1 To Z Do

    Begin
    Write('B[',I,',',J,'] : '); Readln(B[I,J]);
    End;

For I:=1 To X Do

For J:=1 To Z Do
For K:=1 To Y Do
C[I,J] := C[I,J] + A[I,K]*B[K,J];
Writeln;
Writeln('Hasil Matrix A X Matrix B : ');
Writeln;

For I:=1 To X Do
    Begin
    For J:=1 To Z Do
    Write(C[I,J]:5);
    Writeln;
    Writeln;
    End;
End.

Hasil Akhir :