Mohamad Furqon_12108205_1ka20

http://mohamad-furqon.web.id/

MOHAMAD FURQON 12108205 1KA20

UNIVERSITAS GUNADARMA

http://mohamad-furqon.web.id/

1. Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit dan Reamur.

USES CRT; VAR C,R,F : REAL; BEGIN CLRSCR; WINDOW(5,6,25,78); TEXTBACKGRAOUND(BLUE); TEXTCOLOR(YELLOW); SOND(220); WRITE (‘ MASUKKAN NILAI C = ‘); READLN (C); R := C *(5/9); WRITELN(‘ REAMUR = ‘,R); F := C + 273; WRITELN(‘FAHRENHAIT = ‘,F); NOSOUND; READLN; END. Output :

http://mohamad-furqon.web.id/

2. Luas dan Keliling lingkaran, dengan jari-jari diketahui.

USES CRT; VAR C,R,F : REAL; BEGIN CLRSCR; WINDOW(5,6,25,78); TEXTBACKGRAOUND(BLUE); TEXTCOLOR(YELLOW); SOND(220); WRITE (‘ MASUKKAN NILAI C = ‘); READLN (C); R := C *(5/9); WRITELN(‘ REAMUR = ‘,R); F := C + 273; WRITELN(‘FAHRENHAIT = ‘,F); NOSOUND; READLN; END. Output :

http://mohamad-furqon.web.id/

3. Menghitung Luas dan Keliling segitiga sembarang yang

sisinya. USES CRT; VAR A,B,C,K,L : REAL; BEGIN CLRSCR; WINDOW(5,5,40,80); TEXTBACKGROUND(YELLOW); TEXTCOLOR(BLUE); A := 6; B := 7; C := 8; K := A + B + C; GOTOXY (15,15); WRITELN(‘KELILING = ‘,K); L := (A+B)/2 GOTOXY (20,16); WRITELN(‘LUAS = ‘,L); READLN; END.

Output :

diketahui ke tiga

http://mohamad-furqon.web.id/

4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput. USES CRT; VAR X : REAL; BEGIN CLRSCR; WINDOW(5,5,40,80); TEXTBACKGROUND(WHITE); TEXTCOLOR(BLUE); SOUND(70); WRITE(‘BESAR SUDUT = ‘); READLN(X); WRITELN(‘SIN = ‘,SIN(X)); WRITELN(‘COS= ‘,COS(X)); WRITELN(‘TAN = ‘,ARCTAN(X)); NOSOUND; READLN; END.

Output :

http://mohamad-furqon.web.id/

5. Mencari akar dan kuadrat dari suatu nilai.

USES CRT; VAR X : REAL; BEGIN CLRSCR; WINDOW(5,5,40,80); TEXTBACKGROUND(WHITE); TEXTCOLOR(BLUE); SOUND(80); WRITE(‘MASUKKAN NILAI = ‘); READLN(X); GOTOXY(11,27); WRITELN(‘AKAR = ‘,SQRT(X):9:3); GOTOXY(20,38); WRITELN(‘PANGKAT = ‘,SQR(X):9:3); NOSOUND; READLN; END. Output :

http://mohamad-furqon.web.id/

6. Mencari nilai bulat dan pecahan dari suatu nilai yang

dimasuk kan melalui keyboard (diinput). Nilai pecahan tersebut dibulatkan sampai 3 angka dibelakang koma. USES CRT; VAR X : REAL; BEGIN CLRSCR; WINDOW(5,9,35,80); TEXTBACKGROUND(YELLOW); TEXTCOLOR(RED); SOUND(80); WRITE(‘MASUKKAN NILAI = ‘); READLN(X); GOTOXY(17,24); WRITELN(‘PECAHAN= ‘,FRAC(X):5:3); GOTOXY(18,21); WRITELN(‘BILANGAN BULAT = ‘,INT(X):5:3); NOSOUND; READLN; END. Output :

http://mohamad-furqon.web.id/

7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada tengah- tengah

layar. USES CRT; BEGIN CLRSCR; WINDOW(5,8,31,80); TEXTBACKGROUND(WHITE); TEXTCOLOR(BLUE); SOUND(85); GOTOXY(33,10); WRITELN (‘NAMA : M. FURQON ‘); GOTOXY(33,11); WRITELN (‘NPM : 12108205’); NOSOUND; READLN; END. Output :

http://mohamad-furqon.web.id/

8. Tampilkan tulisan 'STMIK GUNADARMA' di dalam window pada

atas dengan ukuran window sama dengan tulisan tersebut. USES CRT; BEGIN CLRSCR; WINDOW(1,2,60,80); TEXTBACKGROUND(GREEN); TEXTCOLOR(BLUE); SOUND(60); GOTOXY(65,1); WRITELN ('STMIK GUNADARMA'); NOSOUND; READLN; END. Output :

pojok

kanan