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

Program Pascal Array 2 Dimensi

Program Array 1 Dimensi

Saya kali ini akan memposting cara membuat program pascal array satu dimensi

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

Program arrayduadimensi;
uses crt;
var
matrik1,matrik2:array[1..2,1..2] of byte;
hkurang,htambah:array[1..2,1..2] of integer;
b,k:byte;
procedure inputmatrik;
begin
writeln('Input Isi Matrik 1 ');
for b:= 1 to 2 begin
for k:= 1 to 2 begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = '); readln(matrik1[b,k]);
end;
end;
writeln('Input Isi Matrik 2 ');
for b:= 1 to 2 begin
for k:= 1 to 2 begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = '); readln(matrik2[b,k]);
end;
end;
end;
procedure tambahmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
htambah[b,k]:=matrik1[b,k]+matrik2[b,k];
end;
end;
end;
procedure kurangmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
hkurang[b,k]:=matrik1[b,k]+matrik2[b,k];
end;
end;
end;
procedur cetakmatrik;
begin
clrscr;
writeln('Isi Matrik 1 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin

write(matrik1[b,k]:4);

end;

writeln;

end;

write('tekan enter untuk melihat isi matrik 2');

readln;

writeln;

write('Isi Matrik 2');

for b:= 1 to 2 do begin
for k:= 1 to 2 do begin

write(matrik2[b,k]:4);

end;

writeln;

end;

write('tekan enter untuk melihat hasil penjumlahan');

readln;

writeln;

write('Isi Matrik 2');

for b:= 1 to 2 do begin
for k:= 1 to 2 do begin

write(htambah[b,k]:4);

end;

writeln;

end;

write('tekan enter untuk melihat hasil pengurangan');

readln;

writeln;

write('Isi Matrik 2');

for b:= 1 to 2 do begin
for k:= 1 to 2 do begin

write(hkurang[b,k]:4);

end;

writeln;

end;

writeln('tekan enter untuk keluar');

readln;

end;

{Program Utama}

begin

inputmatrik;

tambahmatrik;

kurangmatrik;

cetakmatrik;

end.

Kurang lebih seperti itu kodingannya, dibawah ini adalah outputnya:

Program Pascal Array 1 Dimensi

Program Array 1 Dimensi

Saya kali ini akan memposting cara membuat program pascal array satu dimensi

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

Program array1dimensi;

uses crt;

var nilai: arraay[1..38]of real;

a,b:integer;

begin

clrscr;

write('Masukan Nomer Absen: '); readln(b);

for a=1 to b do

begin

write('Absen ke -',a,':'); readln(nilai[a]);

end;

readln;

writeln('Absen ke 2 adalah',nilai[a]);

readln;

end.

Kurang lebih nya seperti itu kodingannya, dibawah ini adalah outputnya:

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