Komputer Dasar

PEMROGRAMAN KOMPUTER Q-BASIC

FAKULTAS TEKNIK SIPIL DAN PERENCANAAN

 

 

A.   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

 

B.    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

 

C.   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

 

D.   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

 

E.    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

 

F.    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

 

G.   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

 

H.   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

     

I.       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

 

J.      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

 

K.   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

 

L.    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

 

M.  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

 

N.   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

 

O.   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

 

P.    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

 

Q.   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

 

R.   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

 

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