tugas 4 : Prosedure Kombinasi

Nisful Laily 0 komentar

                                                      Tampilan output program kombinasi

Program KOMBINASI;
uses wincrt;
var f1,f2,f3:longint;
n,r,delta:integer;
c: real;
Procedure facto( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
{======================PROGRAM UTAMA=======================}
Begin
clrscr;
gotoxy(18,3);
write('Cara menghitung nilai kombinasi dari suatu angka');
gotoxy(19,4);
writeln('Nilai r harus lebih kecil/sama dengan n');
writeln;gotoxy(28,6);
write(' Masukkan nilai n :',' ');readln(n);
writeln;gotoxy(28,8);
write(' Masukkan nilai r :',' ');readln(r);
facto(n,f1);
facto(r,f2);
delta:=(n-r);
facto(delta,f3);
c:= f1/(f2*f3);gotoxy(30,10);
write('Hasilnya :',' ',c:2:0);
readln;
end.

struktur data program uang krmbalian

Nisful Laily 0 komentar


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

if kembali div 100000 > 0 then begin
writeln(kembali div 100000, ' lembar seratus ribuan ');
kembali := kembali mod 100000;
end;

if kembali div 50000 > 0 then begin
writeln(kembali div 50000, ' lembar lima puluh ribuan ’);
kembali := kembali mod 50000;
end;

if kembali div 20000 > 0 then begin
writeln(kembali div 20000, ' lembar dua puluh ribuan’);
kembali := kembali mod 20000;
end;

if kembali div 10000 > 0 then begin
writeln(kembali div 10000, ' lembar sepuluh ribuan’);
kembali := kembali mod 10000;
end;

if kembali div 5000 > 0 then begin
writeln(kembali div 5000, ' lembar lima ribuan’);
kembali := kembali mod 5000;
end;

if kembali div 1000 > 0 then begin
writeln(kembali div 1000, ' lembar seribuan’);
kembali := kembali mod 1000;
end;

if kembali div 500 > 0 then begin
writeln(kembali div 500, ' keping lima ratusan’);
kembali := kembali mod 500;
end;

if kembali div 100 > 0 then begin
writeln(kembali div 100, ' keping seratusan’);
kembali := kembali mod 100;
end;

end.

 

stuktur data 1

Nisful Laily 1 komentar


JAWABAN TUGAS 1 - PERKALIAN MATRIX

program identitas_matrik;
uses WinCrt;
var
matrix: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
      matrix[x,y]:=0;
      if x+y=6 then matrix[x,y]:=1;
      write (matrix[x,y]:3);
    end;
   writeln;
  end;
end.
TAMPILAN OUTPUT DARI SCRIPT DI ATAS

JAWABAN TUGAS 2-MATRIX IDENTITAS(REVERSE)
program identitas_matrik;
uses WinCrt;
var
m: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
      m[x,y]:=0;
      if x+y=6 then m[x,y]:=1;
      write (m[x,y]:3);
    end;
   writeln;
  end;
end.

TAMPILAN OUTPUT DARI SCRIPT DI ATAS


Langganan: Postingan (Atom)