YAYASAN KEJUANGAN PANGLIMA SUDIRMAN
UPN “VETERAN” JAWA TIMUR
FAKULTAS TEKNIK SIPIL & PERENCANAAN
DAFTAR PRESENSI KEHADIRAN
PRAKTIKUM PEMROGRAMAN KOMPUTER
JURUSAN TEKNIK SIPIL
HARI : SELASA
J A M : 12.00 – 13.00 WIB
|
NO.
|
NAMA
|
NPM.
|
TANDA TANGAN
|
|
01
|
|
9753010159
|
|
|
02
|
|
166
|
|
|
03
|
|
211
|
|
|
04
|
|
151
|
|
|
05
|
|
185
|
|
|
06
|
|
155
|
|
|
07
|
|
214
|
|
|
08
|
|
153
|
|
|
09
|
|
179
|
|
|
10
|
|
209
|
|
SURABAYA, …………………1998
KA.SIE.LAB.,
KOMPUTER
YAYASAN KEJUANGAN PANGLIMA SUDIRMAN
UPN “VETERAN” JAWA TIMUR
FAKULTAS TEKNIK SIPIL & PERENCANAAN
DAFTAR PRESENSI KEHADIRAN
PRAKTIKUM PEMROGRAMAN KOMPUTER
JURUSAN TEKNIK SIPIL
HARI : SELASA
J A M : 13.00 – 14.00 WIB
|
NO.
|
NAMA
|
NPM.
|
TANDA TANGAN
|
|
01
|
|
9653010136
|
|
|
02
|
|
9753010215
|
|
|
03
|
|
187
|
|
|
04
|
|
175
|
|
|
05
|
|
164
|
|
|
06
|
|
167
|
|
|
07
|
|
193
|
|
|
08
|
|
205
|
|
|
09
|
|
181
|
|
|
10
|
|
203
|
|
SURABAYA, …………………1998
KA.SIE.LAB.,
KOMPUTER
YAYASAN KEJUANGAN PANGLIMA SUDIRMAN
UPN “VETERAN” JAWA TIMUR
FAKULTAS TEKNIK SIPIL & PERENCANAAN
1. PRAKTIKUM BERLANGSUNG SESUAI JADWAL YANG ADA,
APABILA ADA HALANGAN AKAN DIBERI TAHU LEWAT PAPAN PENGUMUMAN LAB.KOMPUTER.
2. PESERTA PRAKTIKUM TIDAK DIIJINKAN TERLAMBAT
LEBIH DARI 15 MENIT, LEWAT DARI WAKTU ITU DIANGGAP ABSEN
3. PESERTA PRAKTIKUM TIDAK DIPERBOLEHKAN MEMBAWA
MAKANAN DAN MINUMAN KE DALAM RUANG KOMPUTER.
4. PESERTA PRAKTIKUM TIDAK DIPERBOLEHKAN MEROKOK SELAMA MENGIKUTI PRAKTIKUM.
5. PESERTA PRAKTIKUM DILARANG MEMBUAT GADUH ATAU BERTERIAK DI DALAM RUANG LAB.
6. PESERTA PRAKTIKUM HARUS MEMAKAI SEPATU DAN TIDAK
DIPERKENANKAN MEMAKAI SANDAL SELAMA MENGIKUTI PRAKTIKUM.
KA.SIE.LAB.,
KOMPUTER
BAHAN PRAKTIKUM
PEMROGRAMAN KOMPUTER Q-BASIC
MATERI : DISK OPERATING SYSTEM (DOS)
DOS YANG DIPAKAI PADA PRAKTIKUM ANDA ADALAH DOS VERSI 6.22 ( MS-DOS 6.22)
LANGKAH YANG HARUS DIKERJAKAN :
1. MINTALAH 2 BUAH DISKET ( 1 BESAR DAN 1 KECIL) PADA PENGAWAS PRAKTIKUM ANDA, BERI LABEL NAMA ANDA PADA DISKET AGAR TIDAK HILANG.
2. FORMAT DISKET KECIL ANDA DENGAN CARA A :> FORMAT B: DAN SEBELUM ITU MASUKKAN DISKET DOS (PINJAM PADA PENGAWAS) PADA DRIVE A DAN KUNCILAH.
3. KOPIKAN ISI DARI DISKET A KE DALAM DISKET DI DRIVE B DENGAN CARA SBB.:
a. A:> COPY *.BAS B:
b. A:> COPY *.COM B:
c. A:> COPY *.* B:
4. SETELAH ITU LAKUKAN PERINTAH HAPUS (DELETE) DENGAN CARA SBB.:
PINDAHKAN DRIVE AKTIF PADA B DENGAN CARA A:> B: DAN TEKAN ENTER
d. B:> DEL *.BAS B:
e. B:> DEL *.COM B:
f. B:> DEL *.* B:
5. SETELAH ITU JALANKAN PERINTAH BERIKUT DAN TULIS APA GUNANYA PERINTAH ITU :
A. CLS
B. CHKDSK <NAMA DRIVE>
C. TYPE <NAMA FILE>
D. PROMPT
E. BUAT FILE AUTOEXEC.BAT (TANYA PENGAWAS ANDA)
——-000000——
PEMROGRAMAN KOMPUTER Q-BASIC
FAKULTAS TEKNIK SIPIL DAN PERENCANAAN
MENENTUKAN JARI-JARI LINGKARAN
REM PROGRAM JARI-JARI LINGKARAN
REM UPN VETERAN JATIM
‘——————————————————
CLS
LET D = 20
LET R = D / 2
LET PHI = 22 / 7
LET LUAS= PHI * R^2
PRINT”JARI-JARI = “; R
PRINT”LUASNYA = “;LUAS
END
MENENTUKAN KELILING LINGKARAN
REM PROGRAM KELILING LINGKARAN
REM OLEH ( ISI NAMA ANDA )
‘——————————————————-
CLS
LET R = 15
LET PHI = 22 / 7
LET KEL = 2 * PHI * R
PRINT”KELILING LINGKARAN = “; KEL
PRINT” DENGAN JARI-JARI = “; R
END
GERAK LURUS BERATURAN
REM PROGRAM FISIKA GLB
REM OLEH …………………(NAMA)
‘——————————————-
LET VO = 400
LET T = 15
LET S = VO * T
PRINT” JARAK DITEMPUH = “;S
PRINT”SETELAH WAKTU = “;T; “DETIK”
END
GERAK LURUS BERUBAH BERATURAN
REM PROGRAM FISIKA GLBB
REM OLEH …………………….. (NAMA ANDA)
‘———————————————
CLS
LET VO = 350
LET VT = 550
LET T = 10
LET A = (VT – VO) / T
LET S = VO * T + ( 0.5 * A * T^2 )
PRINT”PERCEPATANNYA = “;A
PRINT”JARAK YANG DITEMPUH = “; S
PRINT”SETELAH WAKTU = “;T; “DETIK”
END
MENENTUKAN LUAS & KELILING PERSEGI PANJANG
REM PROGRAM LUAS & KELILING
REM OLEH ……………………………
‘————————————————-
LET P = 25
LET L = 15
LET LUAS = P * L
LET KEL = 2 * P + ( 2 * L )
PRINT”LUAS PERSEGI PANJANG = “; LUAS
PRINT”KELILING PERSEGI = “; KEL
END
PERSAMAAN VAN der WALLS
REM PROGRAM VAN der WALLS
REM OLEH *******************
‘——————————————–
LET R = 0.082
LET MOL = 0.25
LET VOL = 2
READ T
LET P = ( MOL * R * T ) / VOL
PRINT”TEKANAN YANG TERJADI= “; P
PRINT”PADA SUHU = “; T
DATA 300
END
MENGHITUNG MOLARITAS LARUTAN
REM PROGRAM MOLARITAS LARUTAN
REM OLEH HENDRATA WIBISANA
‘—————————————————-
CLS
LET VOL = 3
LET MR = 180
READ MASSA
LET MOLAR = ( MASSA / MR ) / VOL
PRINT”MOLARITAS LARUTAN = “; MOLAR
PRINT”PADA VOLUME = “;VOL; “LITER”
END
DATA 25
MENGHITUNG JUMLAH MOLEKUL
REM PROGRAM BILANGAN AVOGADRO
REM OLEH DEN MAS HENDRATA
‘——————————————————-
CLS
LET MR = 84
LET AVO = 6.02E+23
DATA 4.5
READ MASSA
LET MOL = MASSA / MR
LET MOLEKUL = MOL * AVO
PRINT”JUMLAH MOLEKUL = “; MOLEKUL
PRINT”JUMLAH MOL = “; MOL
END
SIFAT KOLIGATIF LARUTAN
REM PROGRAM KENAIKAN TITIK DIDIH
REM OLEH HENDRATA WIBISANA
‘——————————————————–
CLS
LET KD = 0.82
LET MASSA = 40
LET MR = 90
READ GRAM
LET MOLAL = (MASSA / MR) * (1000/GRAM)
LET DTD = KD * MOLAL
PRINT”MOLALITAS LARUTAN = “;MOLAL
PRINT”KENAIKAN TITIK DIDIH = “;DTD
DATA 500
END
PERSAMAAN EKSPONEN
REM PROGRAM EKSPONENSIAL
REM OLEH …………………….. (NAMA)
‘—————————————————
CLS
LET A = 5
LET B = 15
LET C = ( A * B )/ ( A + B )
LET D = EXP(C )
LET E = D / EXP(B )
PRINT “NILAI D = “; D
PRINT”NILAI E = “; E
END
FUNGSI LOGARITMIK DAN BILANGAN e
REM PROGRAM LOGARITMIK
REM OLEH ……………………..
‘—————————————–
CLS
LET A = 150
LET B = 4500
LET C = LOG(A) * LOG(B)
LET D = LOG(C ) / ( LOG(B) – LOG(A) )
PRINT”NILAI C = “; C
PRINT”NILAI D = “; D
END
FUNGSI GONIOMETRI
REM PROGRAM GONIOMETRI
REM UPN VETERAN JATIM
‘=========================
CLS
LET A = 500
LET B = 5000
LET C = 50000
LET D = SIN(A) + SIN(B)
LET E = D * SIN(C) / ( SIN(A) * SIN(B) )
PRINT”NILAI D = “;D
PRINT”NILAI E = “;E
END
MENGHITUNG SIN, COS, TANGEN
REM PROGRAM SIN, COS, TANGEN
REM OLEH YULIA FRANSISKA
‘———————————————–
CLS
LET A = 600
LET B = 800
LET C = 1000
PRINT”NILAI SINUS A = “; SIN(A)
PRINT”NILAI COSINUS B = “;COS(B)
PRINT”NILAI TANGEN C = “; TAN(C)
LET D = COS(A) + SIN(B)
PRINT”NILAI COS(A) + SIN(B) = “; D
END
MENGHITUNG GERAK PELURU
REM PROGRAM GERAK PELURU
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET VO = 400
LET T = 15
LET VT = 550
LET A = (VT – VO )/ T
LET S =
END
MENGHITUNG KECEPATAN & DEBIT AIR
REM PROGRAM DEBIT AIR
REM OLEH HENDRATA WIBISANA
‘============================
CLS
LET G = 10
LET H = 125
LET A = 0.25
LET V = SQR( 2 * G * H )
LET R = A * V
PRINT”KECEPATAN ALIR = “;V
PRINT”DEBIT AIR = “;R
END
PENERAPAN HUKUM BOYLE
REM PROGRAM HUKUM BOYLE
REM OLEH DEN MAS HENDRATA
‘===========================
CLS
LET V1 = 3
LET V2 = 6
LET P1 = 2.5
LET P2 = (P1 * VI ) / V2
PRINT”TEKANAN AKHIR = “;P2
PRINT”TEKANAN AWAL = “;P1
END
PENERAPAN HUKUM BOYLE-GAY LUSSAC
REM PROGRAM BOYLE – GAY LUSSAC
REM OLEH MARINI HENDRIATI
‘——————————————-
CLS
LET T1 = 315
LET V1 = 4.5
LET P1 = 1
LET P2 = 2.5
LET V2 = 8.5
LET T2 = ((P2 * V2 ) / (P1 * V1 )) * T1
PRINT”TEMPERATUR AWAL = “;T1
PRINT”TEMPERATUR AKHIR = “;T2
END
PENERAPAN EFFEK DOPPLER
Buatlah suatu program dengan bentuk seperti latihan sebelumnya
Dari rumus fisika tentang bunyi, yaitu efek Doppler.
Diketahui frekuensi sumber bunyi sebesar 85 Hz, frekuensi pendengar
Yang sedang berjalan 65 Hz, kecepatan suara di udara = 345 m/det, maka hitunglah kecepatan suara sumber bunyi.
Hasil setelah program dijalankan :
Frekuensi pendengar = 65 Hz
Frekuensi sumber bunyi = 85 Hz
Kecepatan suara sumber bunyi = ……. M/ det
PEMROGRAMAN KOMPUTER
Q-BASIC
BAGIAN II :
1. MENAMPILKAN BILANGAN GENAP 1 SAMPAI 200
REM PROGRAM BILANGAN GENAP
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 2
30 : PRINT X ;
X = X + 2
IF X > 200 THEN 50
GOTO 30
50 : END
Pada baris 30 : PRINT ; data akan dicetak secara horisontal, apabila kita menginginkan data dicetak secara vertikal maka tanda ( ; ) dibelakang PRINT harus dihilangkan.
Buatlah suatu program seperti di atas yang mana apabila dijalankan akan menampilkan bilangan Genap 100 sampai 300 secara horisontal.
Catatan : pakailah statement IF…..THEN dan GOTO
2. MENAMPILKAN BILANGAN GANJIL 1 SAMPAI 100
REM PROGRAM BILANGAN GANJIL
REM MADE IN SURABAYA
‘————————————————-
CLS
LET X = 1
30
RINT X ;
LET X = X + 2
IF X > 100 THEN 50
GOTO 30
50 : END
Buatlah suatu program untuk menampilkan deretan Bilangan Ganjil dari 500 sampai 1000 secara Horizontal dengan statement IF ….. THEN dan GOTO. Struktur program sama dengan di atas.
3. PROGRAM VARIASI ANGKA I
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 2
30 : PRINT X ;
LET X = X + X
IF X > 100 THEN 50
GOTO 30
50 : END
END
HASIL YANG DIPEROLEH ADALAH DERETAN :
2 4 8 16 ….. 100
SEKARANG COBALAH MEMBUAT SUATU PROGRAM YANG AKAN MENGHASILKAN TAMPILAN DERETAN :
3 6 12 24 ….. 100
4. PROGRAM VARIASI ANGKA II
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘————————————————
CLS
LET X = 4
30 : PRINT X ;
LET X = X + 4
IF X > 100 THEN 50
GOTO 30
50 : END
END
5. PROGRAM VARIASI ANGKA III
REM PROGRAM VARIASI ANGKA
REM MADE IN HENDRATA
‘———————————————–
CLS
LET X = 1
30 : PRINT X ;
LET X = X + X
IF X > 100 THEN 50
GOTO 30
50 : END
END
6. MENAMPILKAN BILANGAN GANJIL 200 SAMPAI 100
REM PROGRAM BILANGAN GANJIL
REM OLEH HENDRATA WIBISANA
‘————————————————
CLS
LET X = 199
30 : PRINT X ;
LET X = X – 2
IF X < 100 THEN 50
GOTO 30
50 : END
END
7. MENAMPILKAN BILANGAN YANG DAPAT DIBAGI 5 DARI 100 SAMPAI 300
REM PROGRAM SUSUNAN BILANGAN
REM MADE IN HENDRATA
‘===============================
CLS
LET X = 100
30 : PRINT X ;
LET X = X + 5
IF X > 300 THEN 50
GOTO 30
50 : END
END
PROGRAM TERSEBUT AKAN MENCETAK DERETAN BILANGAN KELIPATAN LIMA ATAU DERETAN YANG HABIS DIBAGI LIMA TANPA SISA ATAU PECAHAN.
8. PROGRAM VARIASI ANGKA IV
REM PROGRAM VARIASI ANGKA
REM OLEH ………………………..
‘———————————————
CLS
LET X = 1
30
RINT X ;
LET X = X + 1
IF X > 5 THEN 50
GOTO 30
50 : END
END
9. PROGRAM VARIASI ANGKA V
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 1
30 : PRINT X ;
LET X = X + 1
IF X > 5 THEN 50
GOTO 30
50 : C = C +1
LET X = 1
IF C > 5 THEN 100
GOTO 30
100 : END
END
10. PROGRAM VARIASI ANGKA VI
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 5
LET C = 1
30 : PRINT X ;
LET X = X – 1
IF X < 1 THEN 50
GOTO 30
50 : C = C + 1
LET X = 5
IF C > 5 THEN 100
GOTO 30
100 : END
END
11. PROGRAM VARIASI ANGKA VII
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 1
LET C = 1
30 : PRINT X;
LET C = C + 1
IF C > 5 THEN 50
GOTO 30
50 : X = X + 1
C = 1
IF X > 5 THEN 100
GOTO 30
100 : END
END
12. PROGRAM VARIASI BINTANG
REM PROGRAM VARIASI BINTANG
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET A$ = “*”
LET C = 1
LET X = 1
30 : PRINT A$ ;
LET C = C +1
IF C > 5 THEN 50
GOTO 30
50 : X = X +1
C = 1
IF X > 5 THEN 100
GOTO 30
100 : END
END
13. PROGRAM VARIASI BINTANG II
REM PROGRAM VARIASI BINTANG
REM OLEH HENDRATA WIBISANA
‘============================
CLS
LET A$ = “*”
LET X = 0
LET C = 1
30 : PRINT A$ ;
LET X = X + 1
IF X = C THEN 50
GOTO 30
50 : C = C + 1
LET X = 1
IF C > 5 THEN 100
GOTO 30
100 : END
END
14. PROGRAM VARIASI ANGKA VIII
REM PROGRAM VARIASI ANGKA
REM OLEH HENDRATA WIBISANA
‘———————————————–
CLS
LET X = 1
LET C = 1
30 : PRINT X ;
IF X = C THEN 50
LET C = C + 1
GOTO 30
50 : X = X + 1
LET C = 1
IF X > 5 THEN 100
GOTO 30
100 : END
END
15. PROGRAM FAKTORIAL DENGAN READ-DATA
REM PROGRAM FAKTORIAL
REM MADE IN HENDRATA W.
‘—————————————–
CLS
READ A
LET X = 1
LET C = X
30 : LET X = X * C
LET C = C + 1
IF C > A THEN 50
GOTO 30
50 : PRINT”HASIL FAKTORIAL = “; X
PRINT”DENGAN BIL.FAKTORIAL = “;A
DATA 8
END
16. PROGRAM FAKTORIAL DENGAN INPUT
REM PROGRAM FAKTORIAL II
REM MADE IN HENDRATA W.
‘—————————————–
CLS
INPUT”BIL.FAKTORIAL = “; A
LET X = 1
LET C = X
30 : LET X = X * C
LET C = C + 1
IF C > A THEN 50
GOTO 30
50 : PRINT”HASIL FAKTORIAL = “; X
PRINT”DENGAN BIL.FAKTORIAL = “;A
END
17. MENGHITUNG NILAI KOMBINASI
REM PROGRAM KOMBINASI
REM OLEH ……………………….
‘———————————————-
CLS
INPUT”BIL.FAKTORIAL = ”;A
INPUT”BIL.KOMBINASI = “;C
LET X = A
LET K = A – C
30 : LET A= A * X
LET X = X – 1
IF X < 1 THEN 50
GOTO 30
50 : FAK = A
LET P = K
70 : LET K = K * P
LET P = P – 1
IF P < 1 THEN 100
GOTO 70
100 : KUR = K
LET Z = C
150 : LET C = C * Z
LET Z = Z – 1
IF Z < 1 THEN 200
GOTO 150
200 :
KOMBI = FAK / ( KUR * C )
PRINT”NILAI KOMBINASI = “;
PRINT KOMBI
END
18. MENGHITUNG NILAI PERMUTASI
REM PROGRAM NILAI PERMUTASI
REM OLEH ………………………(NAMA)
‘==============================
CLS
INPUT”BIL.FAKTORIAL = ”;A
INPUT”BIL.PERMUTASI = “;P
LET X = A
LET K = A – P
30 : LET A= A * X
LET X = X – 1
IF X < 1 THEN 50
GOTO 30
50 : FAK = A
LET Z = K
70 : LET K = K * Z
LET Z = Z – 1
IF Z < 1 THEN 100
GOTO 70
100 : PERMUT = FAK / K
PRINT”NILAI PERMUTASI = “;
PRINT PERMUT
END
Non schoolae sed vitae discimus
Selamat Belajar
u