Tugas 3 (struktur data)

Program Kombinasi_Nisa;

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;

     Writeln;

End.

print prtscr

Tugas Struktur Data (2)

Pertemuan Ke 3 Tanggal 7 Maret 2012

SEMESTER 2D

Tugas 2:

- Buat Program Menampilkan Rincian Uang.

PROGRAM RINCIAN_TRANSAKSI_NASRUL_NISA;

USES WINCRT;

VAR

NAMA,O:STRING;

A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z:LONGINT;

BEGIN

REPEAT;

CLRSCR;

WRITELN('SELAMAT DATANG');

WRITELN;

WRITE('MASUKKAN NAMA                    : '); READLN(NAMA);

WRITE('HABIS BERAPA                     : '); READLN(A);

WRITE('JUMLAH TERIMA UANG               : '); READLN(B);

C:=B-A;

IF C<0 THEN WRITELN('RINCIAN KURANG                   : ',C);

D :=C  MOD 100000;

P :=C  DIV 100000;

E :=D  MOD 50000;

Q :=D  DIV 50000;

F :=E  MOD 20000;

R :=E  DIV 20000;

G :=F  MOD 10000;

S :=F  DIV 10000;

H :=G  MOD 5000;

T :=G  DIV 5000;

I :=H  MOD 2000;

U :=H  DIV 2000;

J :=I  MOD 1000;

V :=I  DIV 1000;

K :=J  MOD 500;

W :=J  DIV 500;

L :=K  MOD 200;

X :=K  DIV 200;

M :=L  MOD 100;

Y :=L  DIV 100;

N :=M  MOD 50;

Z :=M  DIV 50;

IF P>0  THEN WRITELN('LEMBAR                   RP. 100.000,- = ',P);

IF Q>0  THEN WRITELN('LEMBAR                   RP.  50.000,- = ',Q);

IF R>0  THEN WRITELN('LEMBAR                   RP.  20.000,- = ',R);

IF S>0  THEN WRITELN('LEMBAR                   RP.  10.000,- = ',S);

IF T>0  THEN WRITELN('LEMBAR                   RP.   5.000,- = ',T);

IF U>0  THEN WRITELN('LEMBAR                   RP.   2.000,- = ',U);

IF V>0  THEN WRITELN('LEMBAR/LOGAM             RP.   1.000,- = ',V);

IF W>0  THEN WRITELN('LOGAM                    RP.     500,- = ',W);

IF X>0  THEN WRITELN('LOGAM                    RP.     200,- = ',X);

IF Y>0  THEN WRITELN('LOGAM                    RP.     100,- = ',Y);

IF Z>0  THEN WRITELN('LOGAM                    RP.      50,- = ',Z);

WRITELN;

WRITELN('SISA UANG                        : ',C:7);

IF Z<=1 THEN Z:=50;

   BEGIN

   WRITELN('PEMBULATAN                       : ',Z:7);

   C:=C-Z;

   WRITELN('TOTAL SISA UANG                  : ',C:7);

   END;

WRITELN;

WRITELN('KET : <100 DI BULATKAN');

WRITELN;

   IF C<0 THEN

      BEGIN

      WRITELN('MAAF UANG ANDA KURANG ',C);

      WRITELN('SEGERA DILUNASI / BARANG ANDA TIDAK DAPAT DIBAWA PULANG');

      END;

WRITELN;

WRITELN('TERIMA KASIH ATAS KUNJUNGANNYA');

WRITELN('---( ',NAMA,' )---');

WRITELN;

WRITELN;

WRITE ('COBA LAGI? (Y/N) : '); READLN (O);

UNTIL (O='N') OR (O='n');

END.

Hasil Prt Scr (Print Screen) :



Tugas Struktur Data (1)

Jawaban -1 ("Perkallian Matrik")

program Perkalian_Matrix;
uses wincrt;
var
   a,b,c : array [1..5,1..5] of integer;
   i,j,k,n,m,p : integer;
begin
     clrscr;
     writeln('Selamat datang di program matriks..!!');
     writeln('Masukkan ukuran matrik Minim ordo 5 x 5 ');
     writeln('Ukuran matrix A');
     write('Baris : '); readln(n);
     write('Kolom : '); readln(m);
     writeln;
     writeln('Ukuran matrix B');
     writeln('Baris : ',m);
     write('Kolom : '); readln(p);
     for i:=1 to n do
     for j:=1 to m do
     begin
          write('Elemen A[',i,',',j,'] : ');
          readln(a[i,j]);
     end;
     writeln;
     for i:=1 to m do
     for j:=1 to p do
     begin
          write('Elemen B[',i,',',j,'] : ');
          readln(b[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to p do
     for k:=1 to m do
     c[i,j] := c[i,j] + a[i,k]*b[k,j];
     writeln('----------------------------------------');
     writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
     Writeln;
     for i:=1 to n do
     begin
          for j:=1 to p do
          write(c[i,j]:4);
     writeln;
     end;
     writeln;
     readln;
end.

Tampilan output :

Jawaban -2 ("Reverse" - Matrik Identitas)

program identitas;

uses wincrt;

var

  a,b,c:array [1..10,1..10] of integer;

  x,y,kol,bar:integer;

  begin

    for x:= 1 to 5 do

 begin for y:=1 to 5 do

 begin

 c[x,y]:=0;

 if x+y=6 then c[x,y]:=1;

 write(c[x,y]:4);

 end;

 writeln;

 end;

 end.

Tampilan Output :