Case..of..else pada pascal

Posted: 24 November 2011 in Uncategorized

Uses crt;

Label bentuk, 10, 100, 200, 300, 400, 500;

Var

Menu : integr;

Alas, tinggi, sisi, jari, luas: real ;

Lagi:char;

Begin

10 : clrscr;

Writeln (‘>>menghitung<<’);

Writeln (‘1. Luas lingkaran’);

Writeln (‘2. Luas segitiga’);

Writeln (‘3. Luas bujusangkar’);

Write (‘pilihan anda (1-3):’);

Readln(menu);

Goto bentuk;

Bentuk : case menu of

1 : goto 100;

2 : goto 200;

3 : goto 300;

Else

End;

100 : write (‘r=’); readln (jari);

Luas := 3.14*jari*jari;

Writeln (‘Luas=’, luas :8:0);

Goto 400;

200 : write (‘a=’); readln (alas);

Write (‘t=’); readln(tinggi);

Luas := 0.5*alas*tinggi;

Writeln (‘luas=’), luas:8:0);

Goto 400;

300 : write (‘s=’); readln (sisi);

Luas := sisi*sisi;

Writeln (‘luas=’, luas:8:0);

Goto 400;

400 : readln ;

Clrscr; write (‘mau lagi? (y/t):’);

Readln (lagi);

If (lagi=’y’) then goto 10 else goto 500;

500 : end.

Keterangan : label digunakan sebagai penetapan awal line number yang akan dituju, statement goto gunanya untuk menuju line number yang ada. Case..of..else gunanya untuk membaca program yang kita buat hampir sama dengan if..then..else bedanya kalu case..of..else untuk membaca bnyak perintah sedangkan if..then..else hanya satu kali.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s