CONTOH if - then - else

ALGORITMA PENENTUAN HARI :

1. Tentukan hari
2. Tentukan kode hari
3. Masukkan kode hari
4. Jika angka 1= hari senin
5. Jika angka 2 = hari selasa
6. Jika angka 3 = hari rabu
7. Jika angka 4 = hari kamis
8. Jika angka 5 = hari jum’at
9. Jika angka 6 = hari sabtu
10. Jika angka 7 = hari minggu
11. Hasil


GAMBAR FLOWCHAT NYA : 































UJI TURBO PASCAL :

program penentuan_hari;
uses winCrt;
var
   kode: byte;

begin
       ClrScr;
       write('masukkan kode hari[1..7]:');
       readln(kode);

writeln;

if kode=1 then
writeln('hari senin')
else
if kode=2 then
writeln('hari selasa')
else
if kode=3 then
writeln('hari rabu')
else
if kode=4 then
writeln('hari kamis')
else
if kode=5 then
writeln('hari jumat')
else
if kode=6 then
writeln('hari sabtu')
else
if kode=7 then
writeln('hari minggu');
readln;
end.

PROSES PENULISAN PROGRAM :






















Jika berhasil akan muncul, gambar di bawah ini :
















jika memasukkan data akan menghasilkan :

Komentar

Posting Komentar

Postingan populer dari blog ini

Belajar Pythagoras

Gambar
Link Media pembelajaran: https://drive.google.com/drive/folders/1jQGStZZuKHpPw3X0oVCPP083_zEDF7kK?hl=id Sejarah di Balik Teorema Pythagoras Layaknya Hukum Newton yang ditemukan oleh Sir Isaac Newton, atau Hukum Archimedes yang ditemukan oleh Archimedes, kebanyakan dari kamu mungkin mengira kalau Teorema Pythagoras juga ditemukan oleh Bapak Bilangan satu ini, deh. Nyatanya,  Pythagoras bukanlah penemu pertama dari teorema ini , loh! Loh, kok? Kenapa bisa ya, bukan orang yang menemukan, tapi namanyalah yang digunakan untuk teorema ini? Mari kita simak sejarahnya,  guys ! Sebenarnya,  Teorema Pythagoras sudah digunakan sejak lama , yaitu sekitar abad ke 1900 – 1600 SM oleh bangsa Mesir, Babilonia, dan Cina Kuno. Mereka sudah memiliki pemahaman mengenai relasi (hubungan) antara sisi-sisi segitiga siku-siku,  jauh sebelum Pythagoras lahir . Salah satu bukti sejarahnya, yakni penemuan  tablet milik peradaban bangsa Babilonia . Pada tablet tersebut, tertulis banyak  kombinasi 3 angka yang mem
Baca selengkapnya

Contoh Program Function

Gambar
Program Menentukan Bilangan Terkecil Program Fungsi; uses wincrt; function kecil (A,B : integer): integer; begin if A kecil := A else kecil := B; end; var A,B: integer; begin clrscr; write('Nilai Bilangan 1 = '); readln(A); write('Nilai Bilangan 2 = '); readln(B); writeln; write('Bilangan Terkecil = ', kecil (A,B):5); readln; end. HASIL PROGRAM  
Baca selengkapnya

MEMBUAT SUDUT 45 DERAJAT DARI GARIS 180 DERAJAT DENGAN JANGKA

Gambar
Buatlah garis lurus 180 derajat membuat sudut 90 derajat Ambil sembarang titik A sebagai pusat pada garis lurus Buatlah busur lingkaran melalui titik pusat sehingga mendapatkan titik B dan C Dari dua buah titik B dan C sebagai pusat dan jari-jarinya tetap sama, buatlah busur lingkaran yang saling berpotongan di suatu titik D Kemudian hubungkan titik A dengan busur lingkarang yg saling berpotongan D, maka besar sudut adalah 90 derajat  3. Membagi sudut dari sudut 90 derajat Dan lukislah garis bagi dari sudut 90derajat, dengan cara membuat busur lingkaran dari titik A sehingga memotong garis AB di E dan AC di F Dari dua buah titik E dan F sebagai pusat dan jari-jarinya tetap sama, buatlah busur lingkaran yang saling berpotongan di suatu titik G Kemudian hubungkan titik A dan G, yang akan membagi dua sudut yang sama, sehingga membentuk sudut 45 derajat, 1/2×90=45 FLOWCHAT NYA :
Baca selengkapnya