Kuis-vclass Algoritma & Pemrograman 2a

Soal 1. Program yang membaca nilai integer dan menuliskan nilainya jika positif.

PROGRAM KUIS2SOAL1; USES CRT; VAR A : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN NILAI INTEGER : ');READLN(A); IF A > 0 THEN WRITELN('NILAI POSITIF') ELSE WRITELN('HANYA UNTUK NILAI POSITIF'); READLN; END.

Output Program Soal 1

Soal 2. Program yang membaca nilai integer dan menuliskan ‘Nilai a positif’ jika a >= 0 dan ‘Nilai a negatif’ jika a < 0.

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

Output Program Soal 2

Soal 3. Program yang membaca nilai integer dan menuliskan ‘Nilai a positif’ jika a > 0 , ‘Nilai a negatif ‘ jika a < 0, dan ‘Nilai Nol ‘ jika a=0.

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

Output Program Soal 3

Soal 4. Dibaca tiga buah harga a, b dan c, harus dituliskan secara terurut mulai dari yang terkecil sampai dengan yang terbesar. Ketiga bilangan yang dibaca selalu berlainan harganya.

Program Kuis2Soal4; 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.

Output Program Soal 4

Soal 5. Dibaca tiga buah harga a, b dan c, harus dituliskan secara terurut mulai dari yang terkecil sampai dengan yang terbesar. Ketiga bilangan yang dibaca selalu berlainan harganya. Bagaimana jika ketiga bilangan yang dibaca adalah sama ?

Program Kuis2Soal5; 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
Output Program Soal 5.

Soal 6. Dibaca suatu nilai bertipe integer. Jika dimasukan harga 1 maka tulis di layar ‘SATU’ Jika dimasukan harga 2 maka tulis di layar ‘DUA’ Jika dimasukan harga 3 maka tulis di layar ‘TIGA’ ……………\ Jika dimasukan harga 9 maka tulis di layar ‘SEMBILAN’ Jika dimasukan harga 0 maka tulis di layar ‘NOL

PROGRAM KUIS2SOAL6; 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.

Output Program Soal 6.

Soal 7. Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut : Pegawai perusahaan digolongkan menjadi dua golongan, yaitu staf dan non staf. Staf akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staf yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staf yang telah bekerja lebih dari 5 tahun akan mendapat bonus sebesar Rp. 400.000 jika berumur lebih dari 50 tahun sedangkan pegawai non staf yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000. Pegawai staf yang umurnya kurang dari 50 tahun akan mendapat bonus Rp. 300.000

uses crt; var k,l,m:integer; i,j:real; begin clrscr; writeln('=====program gaji====='); writeln('1.staf'); writeln('2.non staf'); write('masukkan pilihan : ');readln(k); case k of 1: begin clrscr; write('lama bekerja : ');readln(i); write('umur : ');readln(j); if (i rel="nofollow">=5) and (j>=50) then write('bonus Rp 1.000.000')else if (i<=5) then write('bonus Rp 500.000')else if (j<=50) then write('bonus Rp 300.000'); readln; end; 2: begin clrscr; write('lama bekerja : ');readln(l); write('umur : ');readln(m); if (l>5) and (m>50) then write('bonus Rp 400.000')else write('bonus Rp 250.000'); readln; end; end; end.

Output Program Soal 7.