Kahfi

  • Uploaded by: wisnu
  • 0
  • 0
  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Kahfi as PDF for free.

More details

  • Words: 778
  • Pages: 7
TUGAS V-CLASS AP2 KE-2 Nama NPM Kelas

: KAHFI ROHMAN : 11108098 : 1KA20

UNIVERSITAS GUNADARMA

Kuis ke- 2 Kondisional

1 : Program yang membaca nilai integer dan menuliskan nilainya jika positif. USES CRT; VAR a : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN NILAI INTEGER : ');READLN(a); IF a > 0 THEN WRITELN(a,' merupakan bilangan positif') ELSE WRITELN(a,' bukan bilangan positif'); READLN; END. 2 : Program yang membaca nilai integer dan menuliskan ‘Nilai a positif’ jika a >= 0 dan ‘Nilai a negatif’ jika a < 0. USES CRT; VAR a : INTEGER; BEGIN CLRSCR; WRITE('MASUKAN BILANGAN BULAT : ');READLN(a); IF (a >= 0) THEN WRITELN('Nilai ',a,' adalah positif') ELSE IF (a < 0) THEN WRITELN('Nilai ',a,' adalah negatif'); READLN; END.

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. USES CRT; VAR a : INTEGER; BEGIN CLRSCR; WRITE('MASUKKAN BILANGAN : ');READLN(a); IF (a > 0) THEN WRITELN('Nilai ',a,' adalah positif') ELSE IF (a < 0) THEN

WRITELN('Nilai ',a,' adalah negatif') ELSE IF (a = 0) THEN WRITELN('Nilai Nol'); READLN; END.

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. Uses crt; Var A,B,C:integer; Begin clrscr; Writeln(':::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 : Idem no 4. Bagaimana jika ketiga bilangan yang dibaca adalah sama ? Uses crt; Var A,B,C:integer; Begin clrscr; Writeln(':::Mengurutkan Bilangan:::'); Writeln('==============================='); Writeln; Write('Masukkan Nilai : ');readln(A); Write('Masukkan Nilai : ');readln(B); Write('Masukkan Nilai : ');readln(C); Writeln; Writeln(':::::::::::::::::::'); if (A
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 Jika dimasukan harga selain 0 s/d 9 maka tulis di layar ‘BILANGAN SELAIN 0 s/d 9’ USES CRT; VAR a : INTEGER; BEGIN CLRSCR; WRITELN('Masukkan salah satu angka dari 1-9 : ');READLN(a); IF a = 1 THEN WRITELN('SATU') ELSE IF a = 2 THEN WRITELN('DUA') ELSE IF a = 3 THEN WRITELN('TIGA') ELSE IF a = 4 THEN WRITELN('EMPAT') ELSE

IF a = 5 THEN WRITELN('LIMA') ELSE IF a = 6 THEN WRITELN('ENAM') ELSE IF a = 7 THEN WRITELN('TUJUH') ELSE IF a = 8 THEN WRITELN('DELAPAN') ELSE IF a = 9 THEN WRITELN('SEMBILAN')

ELSE WRITELN('BILANGAN SELAIN 1-9'); READLN; END. 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 A,B,C,D,E,F : INTEGER; BEGIN CLRSCR; WRITELN('MENU'); WRITELN('1. GOLONGAN KARYAWAN'); WRITELN('2. BATAL'); WRITE('MASUKKAN PILIHAN : ');READLN(A); CASE A OF 1: BEGIN WRITELN; WRITELN('STAFF ATAU NON STAFF : '); WRITELN('1. STAFF'); WRITELN('2. NON STAFF'); WRITE('MASUKKAN PILIHAN ANDA : ');READLN(B); CASE B OF 1: BEGIN WRITE('UMUR ANDA : ');READLN(C); WRITE('LAMA BEKERJA : ');READLN(D); IF (C rel="nofollow">=50) AND (D>=5) THEN WRITELN('ANDA MENDAPAT BONUS 1.000.000') ELSE

IF (C<50) THEN WRITELN('ANDA MENDAPAT BONUS 300.000') ELSE IF (D<5) THEN WRITELN('ANDA MENDAPAT BONUS 500.000'); READLN; END; 2: BEGIN WRITE('UMUR ANDA : ');READLN(E); WRITE('LAMA BEKERJA : ');READLN(F); IF (F>=5) THEN WRITELN('ANDA MENDAPAT BONUS 400.000') ELSE IF (E<50) THEN WRITELN('ANDA MENDAPAT BONUS 250.000'); READLN; END; 2: END; END; END; END.

Related Documents

Kahfi
May 2020 8
Kahfi Agama.docx
May 2020 5
Ashabul Kahfi
June 2020 12
Ashabul Kahfi
June 2020 6
Surah Al Kahfi
August 2019 16

More Documents from ""