Baca ini dulu !!!!

Untuk bapak dosen atau teman-teman yang mempunyai kritik dan saran maupun info-info yang menarik silahkan e-mail saya yah........
salam damai selalu

wahyu.saptaaji@gmail.com

wassalamualaikum wr.wb

tugas tampilan rincian uang dan kembalian 2

Script rincian harga & kembalian:

program moddiv_wahyusaptaaji_111221110;

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.

tugas tampilan rincian uang dan kembalian 1

program tampilan rincian uang;
uses wincrt;
var
a,b:longint;
j,c,d,e,f,g,h,i,k:longint;
begin
writeln('---------------wahyusaptaaji----------------+');
writeln('Masukkan Nilai Uang');readln(a);
writeln('+---------------------------------+');
writeln('Masukkan Nilai Harga Barang');readln(b);
writeln('+---------------------------------+');
j:=a-b;
writeln('kembalian=',j);
writeln('rinciannya adalah :!!!!');
c:=j div 50000;
d:=(j mod 50000)div 10000;
e:=(j mod 10000)div 5000;
f:=(j mod 5000)div 2000;
g:=(j mod 2000)div 1000;
h:=(j mod 1000)div 500;
i:=(j mod 500)div 200;
k:=(j mod 200)div 100;
writeln('',c,'.LEMBAR=50000');
writeln('',d,'.LEMBAR=10000');
writeln('',e,'.LEMBAR=5000');
writeln('',f,'.LEMBAR=2000');
writeln('',g,'.LEMBAR=1000');
writeln('',h,'.LEMBAR=500');
writeln('',i,'.LEMBAR=200');
writeln('',k,'.LEMBAR=100');
writeln;
writeln('TERIMAKASIH DAN DATANG KEMBALI');
end.

tugas 2d nomer 1

Program Perkalian_Matriks;

uses wincrt;

var

a,f,k:array[1..10,1..10] of integer;

b,c,i,j,l,z:longint;

m,n,d,e,g,h:byte;

begin

write('banyaknya baris matriks pertama: '); readln(b);

write('banyaknya kolom matriks pertama: '); readln(c);

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write('masukkan baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);

end;

end;

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write(a[d,e]:7);

end;writeln;

end;writeln;

write('berapa banyak baris matriks kedua: '); readln(g);

write('berapa banyak kolom matriks kedua: '); readln(h);

for i:= 1 to g do

begin

for j:=1 to h do

begin

write('masukkan baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);

end;

end;

for i:= 1 to g do

begin

for j:= 1 to h do

begin

write(f[i,j]:7);

end;writeln;

end;writeln;

if c=i then begin

writeln('matrik1*matrik2:');writeln;

for d:= 1 to b do

begin

for l:=1 to h do

begin

for e:= 1 to c do

begin

for j:= l to h do

begin

for i:=e to g do

begin

k[d,j]:=k[d,j]+a[d,e]*f[i,j];

if c=e then

begin

write(k[d,j]:7);

end;

i:=g;

end;

j:=h;

end;

end;

end;

writeln;

end;

end else

begin

writeln('Maaf !!!perkalian tidak dapat dilakukan,');

end;

readln end.

tugas 2d nomer 2

program identitas;

uses

wincrt;

var

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

x,y: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.