1 / 10

SELEKSI

This guide explores the use of IF statements, CASE structures, and nested conditional logic in programming. We examine various scenarios where multiple conditions are evaluated, leading to different outcomes based on the score or input operator. The implementation of structured programming helps streamline decision-making processes in code. Code examples include simple arithmetic operations and grading systems based on score thresholds. Learn how to effectively leverage IF statements and CASE constructs for clearer and more efficient coding practices.

joshua-hernandez
Télécharger la présentation

SELEKSI

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. SELEKSI IF & CASE

  2. if dengan 1 statement IF denganbanyak statement If skor > 8 then Begin Nilai := ‘A’; Lulus :=True; Bonus := 50000; End; If skor > 8 then Nilai:=‘A’

  3. If-then-else dengan 1 statement If banyak statement dan else 1statement If skor > 8 then Begin Nilai := ‘A’; Lulus := True; Bonus :=40000; End Else nilai :=‘B’; If skor > 8 nilai:=‘A’ Elsenilai:=‘B’;

  4. If dengan 1statement – else banyak statement If-then-else banyak statement If skor > 8 then Begin Nilai := ‘A’; Lulus :=True; Bonus := 50000; End Else begin Nilai := ‘B’; Lulus := false; Bonus :=0; End; If skor > 8 then nilai := ‘A’; Else begin Nilai := ‘B’; Bonus := 40000; End;

  5. If-then-else if If bersarang If skor > 8 then if tugas :=true then if prosentaseabsen > 80 then Nilai:=‘A’; If (skor>8) and tugas:=true and (prosentaseabsen > 80) then nilai ‘A’; If skor > 8 then nilai := ‘A’ Else if skor > 6 then nilai :=‘B’ Else if skor > 4 then nilai :=‘C’else if skor > 2 then nilai :=‘D’ Else nilai:=‘E’;

  6. SELEKSI CASE CASE biasanyadigunakanuntukmemilihdiantaralebihdari 2 pilihan. Case dipakaiuntukmenggantikanstruktur if-else-if dimanakondisinyamengacupadavariabel yang sama. Misalnya…

  7. Case 1 statement Case nilai of 8 : write(‘bagussekali’); 6 : write(‘bagus’); 4 : write(‘jelek’); Else write(‘jeleksekali’); End; If nilai = 8 then status :=‘bagussekali’; Else if nilai = 6 then status:=‘bagus’ Else if nilai = 4 then status:=‘jelek’ Else status:=‘jeleksekali’;

  8. Case banyak statement Case nilai of 8 : Begin Write(‘bagussekali’); write(‘pertahankan’); End; 6 : Begin Write(‘bagus’); write(‘tingkatkan’); End; 4 : Begin Write(‘jelek’); write(‘perbaiki’); End; Else Begin Write(‘jeleksekali’); write(‘perbaikilagi’); End;

  9. Case nilai of 8 : write(‘bagussekali’); 6 : write(‘bagus’); 4 : write(‘jelek’); Else write(‘jeleksekali’); End; CONTOH 1 Program operasi1; Uses wincrt; Varinvalid_operator : boolean; Operator : char; A1, A2, Hasil: real; Begin Invalid_operator:=false; Write(‘masukkan angka1= ‘);Readln(AI); Write(‘masukkan angka2= ‘);Readln(A2); Write(‘masukkan OPERATOR= ‘); Readln(operator); If operator = ‘*’ then Hasil:= angka1*angka2 Else If operator = ‘/’ then Hasil:= angka1/angka2 Else If operator = ‘+’ then Hasil:= angka1+angka2 Else If operator = ‘-’ then Hasil:= angka1-angka2 Else invalid_operator : =TRUE; If invalid_operator then (writeln (‘operator salah’) Else Writeln(angka1:4:2, ‘ ‘ ,operator, ‘ ‘ ,angka2:4:2, ‘ adalah ’ ,hasil:5:2) End.

  10. Program operasi2; Uses wincrt; Varinvalid_operator : boolean; Operator : char; A1, A2, Hasil: real; Begin Invalid_operator:=false; Write(‘masukkan angka1= ‘);Readln(AI); Write(‘masukkan angka2= ‘);Readln(A2); Write(‘masukkan OPERATOR= ‘); Readln(operator); Case operator of ‘*’ : hasil:= angka1 * angka2; ‘/’ : hasil:= angka1 / angka2; ‘+’ : hasil:= angka1 + angka2; ‘-’ : hasil:= angka1 - angka2; Else invalid_operator := True End; If invalid_operator then (writeln (‘operator salah’) Else Writeln(angka1:4:2, ‘ ‘ ,operator, ‘ ‘ ,angka2:4:2, ‘ adalah ’ ,hasil:5:2) End.

More Related