TUGAS 5
NISFUL LAILY 111221106
DELPHI 7

procedure TForm1.fortodoClick(Sender: TObject);
var
 i,j:integer; b:string;
 begin
  b:=' ';j:=2;
  for i:=1 to 10 do
  begin
   b:=b+inttostr (j)+' ';
   j:=j+2;
  end;
  label1.Caption:=b;
end;

procedure TForm1.fordowntodoClick(Sender: TObject);
var
i,j:integer; b:string;
begin
b:=' ';j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr (i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i,j:integer; b:string;
begin
i:=1; b:=' ';
while i<10 do
begin
b:=b+inttostr(i)+' ';
i:=i+1;
end;
label3.Caption:=b;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.repeatuntilClick(Sender: TObject);
var
i,j:integer; b:string;
begin
i:=1; b:=' ';
repeat
  b:=b+inttostr(i)+' ';
  i:=i+1;
until i>10;
label7.Caption:=b;
end;

procedure TForm1.pangkatClick(Sender: TObject);
var
  bil,hasil,pangkat,a:integer;
begin
  bil:=strtoint(edit1.Text);
  hasil:=bil;
  pangkat:=strtoint(edit2.Text);
  if edit2.Text='0' then edit3.Text:='1' else
  if edit2.Text='1' then edit3.Text:=edit1.Text else
  begin
    for a:=2 to pangkat do
      hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);
  end;

end;

end.

tugas 4 : Prosedure Kombinasi

                                                      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

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.