Program Pascal Membuat List Channel TV

Program Pascal Membuat List Channel TV

Saya kali ini akan memposting cara membuat program pascal channel tv

Gimana si cara membuatnya ?, langsung saja lihat di bawah ini!

Program TV;
uses crt;
var
channel:integer;
begin clrscr;
writeln('Masukan Channel ke- '); readln(channel);
case channel of
1: begin writeln('1 = DAAI TV'); end;
2: begin writeln('2 = TVRI'); end;
3: begin writeln('3 = NET TV'); end;
4: begin writeln('4 = TRANS TV'); end;
5: begin writeln('5 = MNCTV'); end;
6: begin writeln('6 = RCTI TV'); end;
7: begin writeln('7 = SCTV'); end;
8: begin writeln('8 = ANTV'); end;
9: begin writeln('9 = TRANS7'); end;
0: begin writeln('0 = GLOBAL TV'); end;
else begin
writeln('Nomor Channel Tidak Tersedia');
end;
end;
readln;
end.

Kurang lebih seperti itu kodingannya, dibawah ini adalah outputnya:

Sekian postingan kali ini mohon maaf bila ada kesalahan saya juga masih belajar