Algoritma Dan Pemrograman 2a - Vclass2

NAMA : FAJRINA ISNAENI KELAS : 1KA20 NPM : 10108761 ALGORITMA & PEMROGRAMAN 2A [KUIS VCLASS KEDUA]

1. PROGRAM KE1QUIZ2; USES CRT; VAR N : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN NILAI: ');READLN(N); IF N > 0 THEN WRITELN('NILAI POSITIF') ELSE WRITELN('SORRY,ITS JUST FOR NILAI POSITIF'); READLN; END.

2. PROGRAM KE2QUIZ2; USES CRT; VAR N : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN NILAI: ');READLN(N); IF N >= 0 THEN WRITELN('NILAI POSITIF') ELSE WRITELN('NILAI NEGATIF'); READLN; END.

3. PROGRAM KE3QUIZ2; USES CRT; VAR N : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN NILAI: ');READLN(N); IF N > 0 THEN WRITELN('NILAI POSITIF') ELSE IF N < 0 THEN WRITELN('NILAI NEGATIF') ELSE WRITELN('NILAI NOL'); READLN; END.

4. Program KE4QUIZ2; Uses crt; Var A,B,C:integer; Begin clrscr; Writeln(':::Program Mengurutkan Bilangan:::'); Writeln('==============================='); Writeln; Write('Masukkan Nilai : ');readln(A); Write('Masukkan Nilai : ');readln(B); Write('Masukkan Nilai : ');readln(C); Writeln; Writeln(':::::::::::::::::::'); if (A<=B) and (A<=C) then if (B<=C) then Writeln(A,' ',B,' ',C) else Writeln(A,' ',C,' ',B) else if (B<=A) and (B<=C) then if (A<=C) then Writeln(B,' ',A,' ',C) else Writeln(B,' ',C,' ',A) else if (C<=A) and (C<=B) then if (A<=B) then Writeln(C,' ',A,' ',B)

else Writeln(C,' ',B,' ',A); Writeln(':::::::::::::::::::'); readln; End.

5. PROGRAM KE4QUIZ2; Uses crt; Var A,B,C:integer; Begin clrscr; Writeln(':::Program Mengurutkan Bilangan:::'); Writeln('==============================='); Writeln; Write('Masukkan Nilai : ');readln(A); Write('Masukkan Nilai : ');readln(B); Write('Masukkan Nilai : ');readln(C); Writeln; Writeln(':::::::::::::::::::'); if (A
else Writeln(C,' ',B,' ',A) ELSE IF (A=B) AND (B=C) THEN IF A=C THEN WRITELN('SAMA'); Writeln(':::::::::::::::::::'); readln; End.

6. PROGRAM KE6QUIZ2; USES CRT; VAR N : INTEGER; BEGIN CLRSCR; WRITE('MASUKAN ANGKA: ');READLN(N); IF N = 1 THEN WRITELN('SATU') ELSE IF N = 2 THEN WRITELN('DUA') ELSE IF N = 3 THEN WRITELN('TIGA') ELSE IF N = 4 THEN WRITELN('EMPAT') ELSE IF N = 5 THEN WRITELN('LIMA') ELSE IF N = 6 THEN WRITELN('ENAM') ELSE IF N = 7 THEN WRITELN('TUJUH') ELSE IF N = 8 THEN WRITELN('DELAPAN') ELSE IF N = 9 THEN WRITELN('SEMBILAN') ELSE IF N = 0 THEN WRITELN('NOL')

ELSE WRITELN('HANYA UNTUK BILANGAN 0 S/D 9'); READLN; END.

7. PROGRAM KE7QUIZ2; USES CRT; CONST N = ‘@@@@@@@@@@@@@@@@@@@@@@'; VAR PILIH: BYTE; USIA , TAHUN : INTEGER; BONUS1 , BONUS2 , BONUS3 , BONUS4 , BONUS5 : REAL; BEGIN CLRSCR; WRITELN(N); WRITELN('BONUS'); WRITELN(N); WRITELN('PILIH GOLONGAN PEGAWAI'); WRITELN('1. STAFF'); WRITELN('2. NON STAFF'); WRITE('PILIH MENU (1/2) : '); READLN(PILIH); CASE PILIH OF 1: BEGIN CLRSCR; WRITELN(N); WRITELN('STAFF'); WRITELN(N); WRITELN; WRITE('BERAPA USIA ANDA: ');READLN(USIA); WRITE('BERAPA LAMA ANDA BEKERJA: ');READLN(TAHUN); BONUS1 := 1000000;

BONUS2 := 500000; BONUS3 := 300000; IF (USIA rel="nofollow">= 50) AND (TAHUN >= 5) THEN WRITELN('BONUS : ',BONUS1:0:0) ELSE IF (TAHUN < 5) THEN WRITELN('BONUS : ', BONUS2:0:0) ELSE IF (USIA < 50) THEN WRITELN('BONUS : ',BONUS3:0:0); READLN; END; 2: BEGIN CLRSCR; WRITELN(N); WRITELN('NON STAFF'); WRITELN(N); WRITE('BERAPA USIA ANDA: ');READLN(USIA); WRITE('BERAPA LAMA ANDA BEKERJA: ');READLN(TAHUN); BONUS4 := 400000; BONUS5 := 250000; IF (USIA > 50) AND (TAHUN > 5) THEN WRITELN('BONUS : ',BONUS4:0:0) ELSE IF (USIA < 50) THEN WRITELN('BONUS : ',BONUS5:0:0); READLN; END; END; END.