STRUKTUR CASE OF ELSE

Jun 10, 2009 5 Comments by Sahabat

Struktur CASE-OF…ELSE merupakan pengembangan dari struktur CASE-OF dan juga merupakan pengembangan dari standar Pascal. Pada struktur CASE-OF bila tidak ada kondisi yang terpenuhi berarti tidak ada statemen di dalam lingkungan CASE-OF yang diproses. Dengan struktur CASE-OF…ELSE, bila tidak ada kondisi yang terpenuhi, maka statemen yang akan diproses dalam lingkungan CASE-OF adalah statemen yang ada di ELSE.
Contoh program:
uses wincrt;
var
Pilihan:byte;
R,L,T,Luas:real;
Begin
R:=0;
L:=0;
T:=0;
ClrScr;
GotoXY(10,2);Writeln(‘–> PILIHAN < --');
GotoXY(10,4);Writeln('1.Menghitung Luas Lingkaran');
GotoXY(10,6);Writeln('2.Menghitung Luas Segitiga');
GotoXY(10,8);Writeln('3.Menghitung Luas Bujur Sangkar');
GotoXY(10,20);Write('Pilih Nomer(1-3)?');Read(pilihan);
ClrScr;
case Pilihan of
1:Begin
Write ('Jari-jari lingkaran?');Readln(R);
Luas:=Pi*R*R;
Writeln('Luas Lingkaran=',Luas:9:2);
End;
2:Begin
Write('Panjang sisi alas?');Readln(L);
Write('Tinggi Segitiga?');Readln(T);
Luas:=0.5*L*T;
Writeln;
Writeln('Luas segitiga=',Luas:9:2);
End;
3:Begin
write('Panjang bujur sangkar?');Readln(T);
Write('Lebar bujur sangkar?');Readln(L);
Luas:=T*L;
Writeln;
Writeln('Luas bujur sangkar=',Luas:9:2);
End;
Else
Begin
Writeln('Pilihannya hanya 1,2,atau3');
Writeln('Anda tadi pilih nomer berapa?......Sembarangan aja milih!!!!!!!');
End;
End;
End.
Hasil eksekusi program adalah:
-->PILIHAN<–
Menghitung Luas Lingkaran
Menghitung Luas Segitiga
Menghitung Luas Bujur-Sangkar

Pilih Nomer (1-3)? 9
Anda tadi pilih nomer berapa?……Sembarangan aja milih!!!!!!!

Kata Kunci

case of pascal, pengertian case of, case of pada pascal, pascal case of, case pascal, struktur case, pemakaian case pada pascal, program pascal case of, case of dalam pascal, struktur case of.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

5 Responses to “STRUKTUR CASE OF ELSE”

  1. ullah says:

    thanks banget yagh buat contoh program pascalx,, awalnya sich sempat bingung ttg proog. pascal…..

  2. hardi says:

    om kalo contoh case of didalam cse of gmana ya
    bingung nih belum pecah2 juga

  3. andri says:

    Apakah type data pada case hanya ‘byte’, dan untuk tipe data yang lain bagaimana penerapannya pada case misal string/integer?

    tolong bantuannya untuk membuat program buku telpon. jadi jika program dijalankan akan meminta no telp, trus hasilnya adalah nama dan keterangan lainnya.

    thank’s

  4. tupay says:

    maksudnya

    GotoXY(10,2);
    dst itu apa mas?

  5. Egga says:

    makasih gan, barusan ane dapet tugas ini hahahaha
    hatur nuhun

Leave a Reply