Tugas1 & 2

Program Tugas_1;

Uses Crt;

Var
P ,PB , NP , Y : INTEGER;
X : SHORTINT;
Pangkat : Integer;


Begin
Clrscr;
        Writeln('KALKULATOR      ');
        Writeln('Pilihan         ');
        Writeln('1.Perpangkatan  ');
        Writeln('2.Perkalian     ');
        Writeln('3.Pembagian     ');
        Writeln('4.Penjumlahan   ');
        Writeln('5.Pengurangan   ');
        Writeln('6.Keluar        ');
        Writeln('Masukkan Pilihan anda 1-6 : ');readln(P);

        Writeln('Perpangkatan');
        Writeln('============');
        Writeln('Nilai yang Dipangkatkan : ');readln(NP);
        Writeln('Pangkat Berapa          : ');readln(PB);

        X:=1;
        For Y := 1 to PB do
        begin
        X:=X*NP;
        end;
        Pangkat := X;
        Write('Hasilnya adalah : ',Pangkat);
        Repeat until Keypressed
        end.



Program Tugas_2;

Uses Crt;

Var
BB,HE,Bayar,
Untung,BK,
Dapat,Modal,X,Y :Integer ;

Begin
        Clrscr;
        Writeln('MOMOGI');
        Writeln('------');
        Writeln;
        Write('Berapa Banyak Momogi Ynag Di beli : ');Readln(BB);
        HE:=500; {Harga Per Buah}
        Bayar:=BB*HE;

        Write('Uang Yg dibayar Pembeli: Rp. ',Bayar);
        Writeln;
        Modal :=375;    {Modal Tiap 1 Buah Momogi / Lusin}
        X:=HE*500;
        Y:=HE*Modal;
        Untung:=X-Y;
        Write('Untung Yg Didapat Penjual : Rp. ',Untung);
        Writeln;
        Writeln('Tekan Enter Untuk Melanjutkan ');
        readln;
        Writeln('            PROMO MOMOGI            ');
        Writeln('------------------------------------');
        Writeln('TUKAR BUNGKUSNYA DAPAT MOMOGI GRATIS');
        Writeln('------------------------------------');
        Writeln;
        Write('Masukkan Jumlah Bungkus Kosong Yg Ingin Ditukar : ');
        Readln(BK);
        writeln;
        Dapat:=(BK DIV 6)*2;
        Write('Total Momogi Gratis Yang anda Dapat : ',Dapat,'Buah');
        Repeat Until Keypressed;



End.