contoh select case pada PASCAL

ini adalah contoh program yang menggunakan select case.yang apabila si super user ingin membuat menu terlebihdahulu di tampilna utamanya, nah mari kita lihat gan disini .yoo mariii :D

Uses crt;

Var

x,b,alas,tinggi:integer;

NM,KLS,NPM:string;

Luas:real

Begin

Clrscr;

Writeln(‘MENU’);

Writeln;

Writeln(‘1. Biodata’);

Writeln(‘2. Hobi’);

Witeln(‘Luas Segitiga’);

Write (‘Masukan pilihan anda : ‘);readln(x);

Case (x) of

1: begin

Writeln(‘BIODATA’);

Writeln;

Write(‘NAMA  : ‘);readln(NM);

Write(‘KELAS : ‘);readln(KLS);

Write(‘NPM : ‘);readln(NPM);

Writeln(‘Nama : ‘,NM);

Writeln(Kelas : ‘,KLS);

Writeln(NPM : ’,NPM);

Readln;
end;

2:begin

Writeln(‘HOBI’)

Writeln;

Writeln(‘1. Sepak Bola’);

Writeln(‘2. Basket’);

Writeln(‘3.Sepeda’);

Write(‘Pilihan anda : ‘); readln(b);

If b =1 then

Writeln(‘Sepak Bola’);

If b =2 then

Writeln (‘Basket’);

If c = 3 then

Writeln(‘sepeda’);

Readln;
end;

3:begin

Writeln(‘LUAS SEGITIGA’);

Writeln;

Write(‘alas’);readln(alas);

Write(‘Tinggi’);readln(tinggi);

Luas := 0.5*a*t;

Writeln(‘Luas segitiga :’, Luas);

Readln;

End;

End;

End.