Thursday 17 June 2010

Pascal - Program akar & pangkat dua

{Riyan Hidayat Samosir} {http://bekabe.blogspot.com}
Uses WinCrt;
Var
a,b,c:integer;
Pangkat_a,Pangkat_b,HPangkat_ab,akar,H_akar:Real;
Begin
Write('Nilai a: ');ReadLn(a);
Write('Nilai b: ');ReadLn(b);
Write('Nilai c: ');ReadLn(c);
WriteLn;
WriteLn(' ----------');
WriteLn('------------------------------------------------------------------');
WriteLn(' ----------');
WriteLn;
Pangkat_a:=SQR(a);
Pangkat_b:=SQR(b);
HPangkat_ab:=Pangkat_a+Pangkat_b;
akar:=2*(a*b)-(c*c);
H_akar:=SQRT(akar);
WriteLn(' ',a,'x',a,' + ',b,'x',b,' = ',Pangkat_a:2:0,' + ',Pangkat_b:2:0,' = ',HPangkat_ab:2:0);
WriteLn(' --------------');
WriteLn('\ /''''''''''''''''''''''''''''',' \ /''''''''''''''''''''''',' \ /''''''''''');
WriteLn(' \/ 2(',a,'x',b,') - (',c,'x',c,')',' = \/ 2(',a*b,') - (', c*c,') = ','\/',akar:2:0,' = ',H_akar:2:0);
WriteLn;
WriteLn;
WriteLn(' ----------');
WriteLn('------------------------------------------------------------------');
WriteLn(' ----------');
WriteLn;
WriteLn('============');
WriteLn('Hasil = ',Hpangkat_ab/H_akar:2:0);
WriteLn('============');
End.

Tuesday 8 June 2010

Pascal - Program Penjualan

{Nama : Riyan Hidayat Samosir}
{NIM : C0955201009}
{Jurusan : S1 TI}
{Kelompok : 1}
Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
Ulang:Char;
TotalPembayaran:Array[1..10] of Real;
Bayar:Real;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('Pulpen','Buku','Tipe-X',
'Pensil','Penggaris','Spidol','Gunting','Lem','Stopmap','CD');
HargaSatuan:Array [1..10] Of Integer=(1000,2000,1500,
700,500,2000,3000,1000,500,2500);
Begin
DataKei:=0;
Bayar:=0;
Repeat
ClrScr;
DataKei:=DataKei+1;
WriteLn('---------------------------------------------------');
WriteLn('| Kode barang: 1 , Nama Barang = Pulpen; 1000 |');
WriteLn('| Kode barang: 2 , Nama Barang = Buku; 2000 |');
WriteLn('| Kode barang: 3 , Nama Barang = Tipe-X; 1500 |');
WriteLn('| Kode barang: 4 , Nama Barang = Pensil; 700 |');
WriteLn('| Kode barang: 5 , Nama Barang = Penggaris; 500 |');
WriteLn('| Kode barang: 6 , Nama Barang = Spidol; 2000 |');
WriteLn('| Kode barang: 7 , Nama Barang = Gunting; 3000 |');
WriteLn('| Kode barang: 8 , Nama Barang = Lem; 1000 |');
WriteLn('| Kode barang: 9 , Nama Barang = Stopmap; 500 |');
WriteLn('| Kode barang: 10 , Nama Barang = CD; 2500 |');
WriteLn('---------------------------------------------------');
Write('Tentukan kode barang: ');ReadLn(NomorBarang[DataKei]);
If NomorBarang[DataKei]=1 Then
WriteLn('Nama Barang: ',NamaBarang[1]);
If NomorBarang[DataKei]=2 Then
WriteLn('Nama Barang: ',NamaBarang[2]);
If NomorBarang[DataKei]=3 Then
WriteLn('Nama Barang: ',NamaBarang[3]);
If NomorBarang[DataKei]=4 Then
WriteLn('Nama Barang: ',NamaBarang[4]);
If NomorBarang[DataKei]=5 Then
WriteLn('Nama Barang: ',NamaBarang[5]);
If NomorBarang[DataKei]=6 Then
WriteLn('Nama Barang: ',NamaBarang[6]);
If NomorBarang[DataKei]=7 Then
WriteLn('Nama Barang: ',NamaBarang[7]);
If NomorBarang[DataKei]=8 Then
WriteLn('Nama Barang: ',NamaBarang[8]);
If NomorBarang[DataKei]=9 Then
WriteLn('Nama Barang: ',NamaBarang[9]);
If NomorBarang[DataKei]=10 Then
WriteLn('Nama Barang: ',NamaBarang[10]);
WriteLn('Harga satuan = Rp.',HargaSatuan[NomorBarang[DataKei]]);
Write('Jumlah beli = ');ReadLn(JumlahBeli[DataKei]);
TotalPembayaran[DataKei]:=HargaSatuan[NomorBarang[DataKei]] * JumlahBeli[DataKei];
WriteLn;
Write('Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(Ulang);
Until UpCase(Ulang)<>'Y';

Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+TotalPembayaran[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn('Total belanja ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,TotalPembayaran[DataKei]:2:0);
WriteLn('------------------------------------- +');
WriteLn('Total semua : Rp.',Bayar:2:0);
WriteLn('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-');
WriteLn;
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(' Kode Barang - Nama Barang - Harga /1an - Jumlah Beli - Total');
WriteLn('::-----------------------------------------------------------------------::');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',NomorBarang[DataKei],' - ',NamaBarang[NomorBarang[DataKei]],' - Rp.',
HargaSatuan[NomorBarang[DataKei]],' - ',JumlahBeli[DataKei],' - ','Rp.',TotalPembayaran[DataKei]:2:0);
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(':: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
End;
End.