Program Pekan dan Hari dengan Pascal

program pekandanhari3;
uses crt;
var pekan:integer;
    hari:integer;
    begin
    clrscr;
    writeln(' pekan','hari');
    writeln('--------------');
    readln;
    for pekan:=1 to 4 do
    begin
    for hari:=1 to 7 do
    begin
    writeln('   ',pekan,'   ',hari);
    end;
    writeln('-------------');
    readln;
    end;
    end.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Senin, 05 Januari 2015