Doing Ngampus (Dokumen Penting Pas Ngampus): November 2014

#Program_Komputer | Proram Perkalian Dua Buah Matrik

Program Perkalian_Dua_Buah_Matrik;
Uses dos, crt;
Type
Larik=array[1..25, 1..25] of real;
Var
I,J,K:byte;
M,N,L:byte;
A,B,C:Larik;
Ch:char;
Begin
Clrscr;
Writeln('Program Perkalian Dua Buah Matrik');
Writeln;
Writeln('Nama : Wiwit Safitri');
Writeln('NIM : ACA 113 033');
Writeln('Program Studi : Pendidikan Matematika');
Writeln('Mata Kuliah : Program Komputer');
Writeln('Dosen Pengampu: Drs. Elyasib Y Lada, M.Pd');
Writeln;
write('Tuliskan banyaknya elemen baris matrik pertama (M)=');
readln(M);
Writeln;
write('Tuliskan banyak elemen kolom matrik pertama/baris matrik kedua(N)=');
readln(N);
writeln;
write('Tuliskan banyak elemen kolom matrik kedua (L)=');
readln(L);
writeln;
Writeln;
writeln('Matrik yang pertama:');
For I:=1 To M Do
Begin
For J:=1 To N Do
Begin
Write('Nilai[',I,',',J,']=');
Readln(A[I,J]);
End;
Writeln;
End;
writeln('Matrik yang kedua');
For I:=1 To N Do
Begin
For J:=1 To L Do
Begin
Write('Nilai[',I,',',J,']=');
Readln(B[I,J]);
End;
Writeln;
End;
For I:=1 To M Do
Begin
For J:=1 To N Do
Begin
C[I,J]:=0;
For K:=1 To L Do
C[I,J]:=C[I,J]+A[I,K]*B[K,J];
End;
End;
{mencetak hasil perkalian}
clrscr;
writeln('Hasil dari perkalian matrik:');
writeln;
For I:=1 To M Do
Begin
For J:=1 To L Do
writeln(C[I,J]:10:0);
Writeln;
Ch:=readkey;
End;
End.

#Program_Komputer | Program Menghitung Luas Tabung Tertutup

Program Menghitung_Luas_Tabung_Tertutup;
Uses dos, crt;
Var
Ch:Char;
Luas,pi,radius,tinggi:real;
Begin
clrscr;
writeln('Program ini di buat oleh:');
writeln('Nama : Wiwit Safitri');
writeln('NIM : ACA 113 033');
writeln('Program study : Pendidikan Matematika');
writeln('Mata Kuliah : Program Komputer');
writeln('Dosen Pengajar : Drs. Elyasib Y Lada, M.Pd');
writeln;
writeln('Menghitung Luas Tabung Tertutup');
write('Tuliskan radiusnya = ');
readln(radius);
write('Tuliskan tingginya = ');
readln(tinggi);
Luas:=2*22/7*radius*(radius+tinggi);
writeln('Luas tabung tertutup adalah = ',luas:5:2,' cm2');
Ch:=readkey;
End.

#Program_Komputer | Program Menghitung Luas persegi panjang

Program Menghitung_luas_persegi_panjang ;
USES DOS, CRT;
Var
Ch:char ;
luas,panjang,lebar:real ;
Begin
clrscr;
writeln('Program ini dibuat oleh Wiwit Safitri');
Writeln('Luas persegi panjang');
Write('Tuliskan panjangnya = ');
Readln(panjang);
Write('Tuliskan lebarnya = ');
Readln(lebar) ;
luas:= panjang*lebar;
Writeln('luas persegi panjang tersebut adalah = ',luas:5:2,'cm2') ;
Ch:=readkey;
End.

#Program_Komputer | Program Menghitung Luas Lingkaran

Program Menghitung_Luas_Lingkaran;
Uses dos, crt;
Var
L,r:real;
ch:char;
Begin
clrscr;
writeln('Menghitung Luas Lingkaran');
writeln;
write('Masukkan nilai jari-jari lingkaran (cm) = ');
readln(r);
L:=22/7*sqr(r);
writeln('Luas Lingkaran = ',L:10:2,' cm2');
Ch:=readkey;
End.

#Program_Komputer | Program Menghitung Luas Jajar Genjang

Program Menghitung_Luas_Jajar_Genjang;
Uses dos, crt;
Var
L,a,t:real;
ch:char;
Begin
clrscr;
writeln('Program ini dibuat oleh: Wiwit Safitri');
write('Masukkan panjang alas = ');
readln(a);
write('Masukkan tinggi = ');
readln(t);
L:=a*t;
writeln('Luas jajar genjang =',L:5:2,' Cm2');
Ch:=readkey;
End.

#Program_Komputer | Program Menghitung Akar Real Polinom Kuadrat

Program Menghitung_Akar_Real_Polinom_Kuadrat;
Uses dos, crt;
Var
ch:char;
a,b,c,d,akar1,akar2:real;
Begin
Clrscr;
Write('Masukkan koefisien a = ');
Readln(a);
Write('Masukkan koefisien b = ');
Readln(b);
Write('Masukkan koefisien c = ');
Readln(c);
d:=sqr(b)-(4*a*c);
If d>0 Then
Begin
akar1:=(-b+sqrt(d)/(2*a));
akar2:=(+b+sqrt(d)/(2*a));
Writeln;
Writeln('Akar-akar real dari polinom adalah : ');
Writeln('x1=',akar1:10:5);
Writeln('x2=',akar2:10:5);
End;
Write('Tekan sembarang untuk melanjutkan!');
ch:=readkey;
End.

#Program_Komputer | Program Pilihan

PROGRAM CASE OF

Program Caseof;
Uses Crt;
Var
P:char;
V1,V2,V3,L4,L5,V6,L7,L8,L9,L10,S,r,t,a,b:real;
Begin
Clrscr;
Write('Program pilihan : ');
Writeln('A:Volume Kubus');
Writeln(' B:Volume Kerucut');
Writeln(' C:Volume Tabung');
writeln(' D:Luas Kulit Kerucut');
writeln(' E:Luas Bola');
writeln(' F:Volume Bola');
writeln(' G:Luas Lingkaran');
Writeln(' H:Luas Trapesium');
writeln(' I:Luas jajar genjang');
writeln(' J:Luas segitiga');
Writeln;
Writeln('Silakan tuliskan pilihan anda!');
writeln;
P:=readkey;
Case P of
'A':begin
writeln('Menghitung Volume Kubus');
write('Tuliskan panjang sisinya = ');
readln(s);
V1:=S*S*S;
Writeln('Volume Kubus adalah = ',V1:5:2,' cm3');
P:=readkey;
End;
'B':begin
writeln('Menghitung Volume Kerucut');
write('Tuliskan tingginya = ');
readln(t);
write('Tuliskan jari-jari alasnya = ');
readln(r);
V2:=Pi*r*r*t/3;
Writeln('Volume Kerucut adalah = ',V2:5:2,' cm3');
P:=readkey;
End;
'C':begin
writeln('Menghitung Volume Tabung');
write('Tuliskan tingginya = ');
readln(t);
write('tuliskan jari-jari alasnya = ');
readln(r);
V3:=3.14*r*r*t;
Writeln('Volume tabung adalah = ',V3:5:2,' cm3');
P:=readkey;
End;
'D':begin
writeln('Menghitung Luas Kulit Kerucut');
write('Tuliskan tingginya = ');
readln(t);
write('Tuliskan jari-jari alasnya = ');
readln(r);
L4:=3.14*r*sqrt(sqr(t)+sqr(r));
Writeln('Luas Kulit Kerucut adalah = ',L4:5:2,' cm2');
P:=readkey;
End;
'E':begin
writeln('Menghitung Luas Bola');
write('Tuliskan jari-jarinya = ');
readln(r);
L5:=4*3.14*sqr(r);
Writeln('Luas Bola adalah = ',L5:5:2,' cm2');
P:=readkey;
End;
'F':begin
writeln('Menghitung Volume Bola');
write('tuliskan jari-jarinya = ');
readln(r);
V6:=4*3.14*r*r*r;
Writeln('Volume Bola adalah = ',V6:5:2,' cm3');
P:=readkey;
End;
'G':begin
writeln('Menghitung Luas Lingkaran');
write('Tuliskan jari-jarinya = ');
readln(r);
L7:=3.14*sqr(r);
Writeln('Luas Lingkaran adalah = ',L7:5:2,' cm2');
P:=readkey;
End;
'H':begin
writeln('Menghitung Luas Trapesium');
write('Tuliskan panjang sisi atas = ');
readln(a);
write('Tuliskan panjang sisi bawah = ');
readln(b);
write('Tuliskan tingginya = ');
readln(t);
L8:=1/2*(a+b)*t;
Writeln('Luas Trapesium adalah = ',L8:5:2,' cm2');
P:=readkey;
End;
'I':begin
writeln('Menghitung Luas Jajar genjang');
write('Tuliskan panjang alasnya = ');
readln(a);
write('Tuliskan tingginya = ');
readln(t);
L9:=a*t;
Writeln('Luas Jajar genjang adalah = ',L9:5:2,' cm2');
P:=readkey;
End;
'J':begin
writeln('Menghitung Luas Segitiga');
write('Tuliskan panjang alasnya = ');
readln(a);
write('Tuliskan tingginya = ');
readln(t);
L10:=1/2*a*t;
Writeln('Luas segitiga adalah = ',L10:5:2,' cm2');
P:=readkey;
End;
End;
End.

Minggu, 23 November 2014