ST Data - Sript Rincian harga dan kembalian

Script rincian harga & kembalian:

program moddiv_ramadhan_111221114;

Script rincian harga & kembalian:

uses WinCrt; 

const

ch:array [1..10] of longint=(100,200,500,1000,2000,5000,10000,20000,50000,100000);

var

a,b,c,d,e,f:string;

i,j,x,y,l:shortint;

tpr,cost,pay,cback,cch:longint;

it:array[1..10] of string;

pr:array[1..10] of longint;

qty:array[1..10] of shortint;

begin

 repeat

  clrscr;

  y:=0; i:=0; tpr:=0; cost:=0; l:=47;

   gotoxy (2,1); for x:=1 to l do write (#61);

   gotoxy (2,3); for x:=1 to l do write (#61);

   gotoxy (2,5); for x:=1 to l do write (#61);

   gotoxy (56,1); for x:=1 to 21 do write (#61);

   gotoxy (56,3); for x:=1 to 21 do write (#61);

   gotoxy (56,2); write ('    STRUKTUR DATA    ');

  

   gotoxy (22,2); write (#83#45#77#65#82#84);

   gotoxy (8,4); write (#73#116#101#109);

   gotoxy (22,4); write (#80#114#105#99#101);

   gotoxy (33,4); write (#81#116#121);

   gotoxy (42,4); write (#84#111#116#97#108);

   repeat

   i:=i+1;

   gotoxy (4,5+i); readln (it[i]);

   gotoxy (56,2); write (#78#85);

    if it[i]<>'' then

    begin

      gotoxy (22,5+i); readln (pr[i]);

      gotoxy (34,5+i); readln (qty[i]);

      tpr:=pr[i]*qty[i];

      gotoxy (42,5+i); writeln (tpr);

      cost:=cost+tpr;

    end;

   until it[i]='';

   gotoxy (58,2); write (#82#32#82);

   gotoxy (2,6+i-1); for x:=1 to l do write (#45);

   gotoxy (65,2); write (#32#45#32#49#49#49);

   gotoxy (4,6+i); write (#84#79#84#65#76);

   gotoxy (61,2); write (#65#70);

   gotoxy (42,6+i); write (cost);

   gotoxy (4,7+i); write (#66#65#89#65#82);

   gotoxy (63,2); write (#70#73);

   gotoxy (42,7+i); readln (pay);

   gotoxy (71,2); write (#50#50#49#49#49#48);

                         

   cback:=pay-cost;

   

   gotoxy (4,8+i); write (#75#69#77#66#65#76#73);

   gotoxy (42,8+i); write (cback);

   gotoxy (2,9+i); for x:=1 to l do write (#45);

   a:=#32#85#97#110#103;

   b:=#32#75#111#105#110#32#32;

   c:=#32#76#101#109#98#97#114;

   d:=#32#82#112#46#32;

   e:=#32#80#101#114#109#101#110;

   if cback>0 then

   begin

     gotoxy (4,10+i); write (#82#105#110#99#105#97#110#32#58);

     for j:=10 downto 0 do

     begin

       cch:=cback div ch[j];

       if cch>0 then

       begin

        y:=y+1;

       

        if ch[j]=100 then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,b,a,d,ch[j],#32#32#47#32,cch,e);

        end;

        if (ch[j]=200) or (ch[j]=500) then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,b,a,d,ch[j]);

        end;

        if ch[j]>500 then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,c,a,d,ch[j]);

        end;

        cback:=cback mod ch[j];

       end;

     end;

   end;

   if cback<0 then

   begin

   gotoxy (17,17); write ('Uang Anda Kurang!');

   end;

  

  gotoxy (57,20); write ('Try Again? (Y/N) : '); readln (f);

 until (f='n') or (f='N'); 

end.

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

      writeln('Ukuran matrix A');

      write('Baris : '); readln(n);

      write('Kolom : '); readln(m);

      writeln;

      writeln('Ukuran matrix B');

      writeln('Baris : ',m);

      write('Kolom : '); readln(p);

      writeln('----------------------------------------');

      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.

Jawaban Tugas (2) - MATRIKS IDENTITAS (Reverse)

  

program identitas_matrik;

uses WinCrt;

var

mat: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

      mat[x,y]:=0;

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

      write (mat[x,y]:3);

    end;

   writeln;

  end;

end.