Pemilihan Kondisi dan Penentuan Keputusan pada Turbo Pascal.

Malam Semuanya !!​

Kali ini aku bakal bahas tentang Pemilihan Kondisi dan Penentuan Keputusan pada Turbo Pascal. Yuk langsung aja disimak ya !

Pemilihan dalam program Pascal dilakukan apabila anda menjumpaisatu kondisi tertentu, unutk mendapatkan hasilnya harus melalui tahap1 tahap2, tahap3, dan seterusnya. Sebagai contoh, anda akan memasak telur, jika telur ayam dalam kulkas. Akan tetapi, jika tidak ada telur ayam, maka anda tidak akan memasak telur.​

Hampir setiap program mengandung pemilihan kondisi. Dengan memilih suatu kondisi, Suatu program dapat menentukan/memutuskan tindakan apa yang harus dikerjakan, bergantung dari hasil kondisi yang diseleksi. Untuk dapat melakukan pemilihan kondisi dan menentukan keputusan pada Pascal, anda dapt menggunakan.​

1. If......Then

Spoiler

Bentuk umum penulisan pemilihan menggunakan struktur If.....Then adalah sebagai berikut.

Jika kondisi yang diseleksi If terpenuhi, maka pernyataan setelah Then akan di proses. contoh :

Code:

program if_then;
uses 
         wincrt;
{*menggunakan perintah if-then*}
var
     nilai: integer;
begin
          write ('masukan nilai (1-2)');
          read (nilai);
          if nilai=1
              then write ('angka yang diketik adalah 1');
          if nilai=2
             then write ('angka yang diketik adalah 2');
end.

Setelah semua program tersebut anda tulis, jalankan program , dan hasilnya akan seperti ini
[attachment=2728]

2. If....Then.....Else

Spoiler

Bentuk penulisan pemilihan menggunakan struktur If......Then......Else adalah sebagai berikut.

Pernyataan 1 akan diproses apabila kondisi terpenuhi, sedangkan Pernyataan 2 akan di proses apabila kondisi Pernyataan2 tidak terpenuh. Contoh:

Code:

program if_then_else;
uses
          wincrt;
{*menggunakan perintah if-then-else*}
var
     nilai:integer;
begin
        write('masukan angka(1-2):');
        read(nilai);
        if nilai=1 then
            write('angka yang diketikan adalah 1');
        else
            write('angka yang diketikan bukan 1');
end.

setelah program dijalankan maka haslnya adalah sebagai berikut:
[attachment=2729]

3. Case.......Of

Spoiler

Bentuk umum penulisan pemilihan menggunakan Case.....of adalah sebai berikut.

Perhatikan contoh brikut:

Code:

program case_of;
uses
      wincrt;
{*menggunakan case-of*}
var
   nilai:integer;
begin
   writeln('masukan nilai (1-3):');
   read(nilai);
   case nilai of
            1:write('anda mengetikan angka 1');
            2:write('anda mengetikan angka 2');
            3:write('anda mengetikan angka 3');
    end;
end. 

Setelah sudah menuliskan program diatas dan jalankan maka hasilnya seperti ini.
[attachment=2730]

4. Case....Of.....Else

Spoiler

Case....Of.....Else merupakan pengembangan dari Case....of dan juga merupakan pengembangan dari standart Pascal. Pada Case...of bila tidak ada kondisi yang terpenuhi, maka tidak ada peryataan yang akan di proses. Sedangkan pada Case....Of.....Else apabila terdapat kondisi yang tidak terpenuhi, maka pernyataan pada else yang akan di proses. Berikut bentuk umum dari Case....Of.....Else.

contoh programnya :

Code:

program case_of_else;
uses
     wincrt;
var
  nilai:integer;
begin
  writeln('masukan nilai(1-3):');
  read(nilai);
   case nilai of
            1:write('anda mengetikan angka 1');
            2:write('anda mengetikan angka 2');
            3:write('anda mengetikan angka 3');
    else
            write('anda tidak mengetik angka 1-3 !!!!!');
    end;
end. 

dan hasilnya seperti ini
[attachment=2732]

Sampai disini dulu ya tutornya kali ini :goodjob:

Spoiler

Liat juga yang ini ya

Semoga bermanfaat ya :goodjob:

[attachment=2733]​

 

wah makasih ya double +rep nya :kagum:

Kalau boleh mending mulai dari yang ini dulu aja, soalnya kalau belajarnya lompat jadi susah :goodjob:

 

AAuuuuwww.. Lihatnya aja dah GALAU.. nih yg Paham ama VB net pasti mudah...

 

Threadnya bermanfaat, walau saya memang belum paham. :ketawa:
+Rep. :goodjob:

 

knp kak ?
[hr]

kalau mau liat biar gak pusing dari sini :goodjob:
[hr]

Ya walaupun gak paham kalau meraba dikit pasti bisa lah dikit-dikit

Btw makasih ya +rep nya

 

Code:

writeln(apaitu(1001, 1331));

function apaitu(a: integer; b: integer): integer;
begin
count := count + 1;
if (a > b) then apaitu := apaitu(b, a)
else if (a = 0) then apaitu := b
else apaitu := apaitu (b mod a, a)
end;

hayo... hasilnya apa itu???
:kagum:

 

hayo.....hasilnya apa itu

bingung aku Om dengan program mu:tidaak1:

 

zzzzzzzz.......
itu algoritma dasar, dipelajari untuk persiapan Olympiade Komputer tingkat SMA.

 

yakin?

Spoiler

aku dapat nya 1, tapi belum coba di Pascal...

 

1
[hr]
ada sanggahan?
:kagum:

Spoiler

Code:

?Apaitu(1001,1331)
8 | 0 | 11
8 | 11 | 330
8 | 330 | 1001
8 | 1001 | 1331
11
?Apaitu(1011,1331)
17 | 0 | 1
17 | 1 | 4
17 | 4 | 5
17 | 5 | 9
17 | 9 | 14
17 | 14 | 51
17 | 51 | 320
17 | 320 | 1011
17 | 1011 | 1331
1

:ketawa::ketawa::ketawa::ketawa:
Anda Benar!!!

 

Hihihi, aku belajarnya belum nyampe function om, maklum masih newbie