Tugas Pa Achsan

1. PROGRAM SUHU uses crt; var c,f,r : real; begin clrscr; GOTOXY(25,1); writeln('+++++++++++++++++++++'); GOTOXY(25,2); writeln('++ PROGRAM SUHU ++'); gotoxy(25,3); writeln('+++++++++++++++++++++'); writeln; write ('SUHU = ');readln (c); f := 1.8 * c + 32; r := c *(5/9); writeln; write ( c:0:2,' Celcius = ', f:0:2, ' Fahrenheit = ', r:0:2, ' Reamur'); readln; end.

OUTPUTNYA :

2. PROGRAM LUAS, KELILING, DAN JARI-JARI LINGKARAN USES CRT ; VAR R, Y , Z : REAL; BEGIN CLRSCR; TEXTCOLOR(YELLOW); TEXTBACKGROUND(MAGENTA); GOTOXY(23,1); WRITELN('*************************************'); GOTOXY(23,2); WRITELN(' Program Luas & Keliling Lingkaran '); GOTOXY(23,3); WRITELN('*************************************'); WRITELN; TEXTCOLOR(YELLOW); TEXTBACKGROUND(BLACK); WRITELN; WRITELN; WRITE('JARI - JARI LINGKARAN = '); READLN(R); Y := 3.14 * (R*R); Z := 2 * (3.14 * R); WRITELN; WRITELN('Maka Luas = ', Y:0:0, ' dan Keliling = ', Z:0:0); TEXTCOLOR(GREEN); READLN; END.

Outputnya :

3. PROGRAM LUAS KELILING SEGITIGA USES CRT; VAR K, L

: REAL ;

BEGIN CLRSCR; TEXTCOLOR(YELLOW); TEXTBACKGROUND(MAGENTA); GOTOXY(25,3); WRITELN('***** PROGRAM SEGITIGA ******'); GOTOXY(1,9); TEXTCOLOR(YELLOW); TEXTBACKGROUND(BLACK); WRITELN( 'SISI ke 1 SEGITIGA = 5 cm'); WRITELN( 'SISI ke 2 SEGITIGA = 7 cm'); WRITELN( 'SISI ke 3 SEGITIGA = 9 cm'); L := 5 * 7 / 2; K := 5+7+9; WRITELN; WRITELN( 'Maka Luas = ',L:0:2, ' dan Keliling = ', K:0:2); READLN; END.

OUTPUTNYA :

4. PROGRAM COSINUS, SINUS, TANGEN PROGRAM ARITMATIKA; USES CRT; VAR X : REAL; BEGIN CLRSCR; WINDOW(20,40,20,20); TEXTBACKGROUND(RED); TEXTCOLOR(YELLOW); GOTOXY(30,10);

WRITE('MASUKKAN NILAI DARI x ='); READLN(X); WRITELN ('-SINUS =',SIN(X):9:3); WRITELN ('-COSINUS =',COS(X):9:3); WRITELN ('-TANGEN =',ARCTAN(X):9:3); READLN; END.

OUTPUTNYA :

5. PROGRAM AKAR KUADRAT uses crt; var x :integer; begin clrscr; TEXTCOLOR(WHITE); TEXTBACKGROUND(CYAN); GOTOXY(25,1); writeln('*****************************'); gotoxy(25,2); writeln(' PROGRAM AKAR dan PANGKAT '); GOTOXY(25,3); writeln('*****************************'); GOTOXY(1,6); TEXTCOLOR(WHITE); TEXTBACKGROUND(BLACK); WRITE('N I L A I = '); readln(x); WRITELN; WRITELN('Nilai ', x, ' dipangkatkan menjadi = ', SQR(x):2, ' dan memiliki akar = ', SQRT(x):9:0); readln; end.

OUTPUTNYA :

6. PROGRAM NILAI BULAT DAN PECAHAN PROGRAM PECAHAN; USES CRT; VAR X : REAL; BEGIN CLRSCR; WRITE('MASUKAN NILAI X ='); READLN(X); WRITELN('NILAI = ',INT(X):5:3); WRITELN('NILAI =',FRAC(X):5:3); READLN; END.

OUTPUTNYA :

7. PROGRAM NAMA DAN NPM PROGRAM Layar2; USES CRT; BEGIN CLRSCR; WINDOW(20,40,20,20); TEXTBACKGROUND(RED); TEXTCOLOR(BLACK); GOTOXY(30,10);

WRITELN('N A M A : F E B R I A N T I'); GOTOXY(30,11); WRITELN('N P M : 1 2 1 0 8 1 9 2');

readln; END.

OUTPUTNYA :

8. PROGRAM ‘STMIK GUNADARMA’ PROGRAM JENDELA2; USES CRT; BEGIN CLRSCR; WINDOW(65,65,65,65); TEXTBACKGROUND(YELLOW); TEXTCOLOR(WHITE); GOTOXY(65,1); WRITELN('STMIK GUNADARMA'); READLN; END.

OUTPUTNYA :