Tugas Ke-2

TUGAS ke2 ALGO RITMA & PEMR OG RAMA N 2A NAM A : P utri nur ay u L NPM : 11108534 KELA S : 1 KA 20

1. MENGUBAH DERAJAT CELCIUS KE DERAJAT REAMUR DAN FAHRENHAIT 

USES CRT;



VAR C,R,F : REAL;  BEGIN  CLRSCR;  WINDOW(5,6,25,78);  TEXTBACKGRAOUND(MAGENTA);  TEXTCOLOR(WHITE);  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

2.MENGHITUNG LUAS DAN KELILING LINGKARAN  

USES CRT; VAR R,L,K : REAL;      

BEGIN CLRSCR; WINDOW(10,13,27,80); TEXTBACKGROUND(WHITE); TEXTCOLOR(GREEN); SOUND(115);      

  

WRITE(‘MASUKKAN JARI-JARI = ‘ ); READLN(R); K := 2 * (22/7)*R; WRITE (‘ KELILING = ‘, K); L := (22/7)* R * R; WRITE (‘LUAS = ‘,L);

NOSOUND; READLN; END.

OUTPUT

3. MENGHITUNG LUAS DAN KELILING SEGITIGA  

USES CRT; VAR A,B,C,K,L : REAL;     

BEGIN CLRSCR; WINDOW(5,5,35,70); TEXTBACKGROUND(YELLOW); TEXTCOLOR(BLUE);         

 

A := 3; B := 4; C := 5; K := A + B + C; GOTOXY (13,13); WRITELN(‘KELILING = ‘,K); L := (A+B)/2 GOTOXY (20,16); WRITELN(‘LUAS = ‘,L);

READLN; END.

OUTPUT

4.MENENTUKAN NILAI SIN,COS,DAN TANGEN  

USES CRT VAR X : REAL;      

BEGIN CLRSCR; WINDOW(5,5,35,68); TEXTBACKGROUND(WHITE); TEXTCOLOR(CYAN); SOUND(70);     

  

WRITE(‘BESAR SUDUT = ‘); READLN(X); WRITELN(‘SIN = ‘,SIN(X)); WRITELN(‘COS= ‘,COS(X)); WRITELN(‘TAN = ‘,ARCTAN(X));

NOSOUND; READLN; END.

OUTPUT

5. MENCARI AKAR DAN KUADRAT NILAI  

USES CRT VAR X : REAL;      

BEGIN CLRSCR; WINDOW(5,5,35,68); TEXTBACKGROUND(WHITE); TEXTCOLOR(BLACK); SOUND(70);      

  

WRITE(‘MASUKKAN NILAI = ‘); READLN(X); GOTOXY(11,20); WRITELN(‘AKAR = ‘,SQRT(X):9:3); GOTO XY(13,44); WRITELN(‘PANGKAT = ‘,SQR(X):9:3);

NOSOUND; READLN; END.

OUTPUT

6. MENCARI NILAI BULAT DAN PECAHAN  

USES CRT; VAR X : REAL;      

BEGIN CLRSCR; WINDOW(5,7,32,70); TEXTBACKGROUND(WHITE); TEXTCOLOR(red); SOUND(85);      

  

WRITE(‘MASUKKAN NILAI = ‘); READLN(X); GOTOXY(11,14); WRITELN(‘PECAHAN= ‘,FRAC(X):5:3); GOTOXY(15,20); WRITELN(‘BILANGAN BULAT = ‘,INT(X):5:3);

NOSOUND; READLN; END.

OUTPUT

7. MENAMPILKAN NAMA DAN NPM DI TENGAH LAYAR 

USES CRT;      

  

BEGIN CLRSCR; WINDOW(5,7,32,70); TEXTBACKGROUND(WHITE); TEXTCOLOR(red); SOUND(85);  GOTOXY(30,10);  WRITELN (‘NAMA : ERRISTHYA ‘);  GOTOXY(30,11);  WRITELN (‘NPM : 10108716’); NOSOUND; READLN; END.

OUTPUT

8. MENULIS STMIK GUNADARMA DI POJOK KANAN ATAS LAYAR & UKURAN WINDOW SAMA!! 

USES CRT;      

  

BEGIN CLRSCR; WINDOW(1,2,65,70); TEXTBACKGROUND(GREEN); TEXTCOLOR(red); SOUND(85);  GOTOXY(65,1);  WRITELN (‘STMIK GUNADARMA’); NOSOUND; READLN; END

OUTPUT