selamat malam teman- teman semua......
okey ....kali ini kita akan membahas tentang Cara Membuat Persegi M X N dengan Pascal ,,,,seperti pada postingan sebelumnya 
" algoritma pemograman - cara membuat piramida angka dengan pascal "
kali ini pengerjaannya pun hampir sama,,,yah kalau di lihat,,tinggal kita ubah beberapa bagian saja,,,,,
perhatikan gambar di bawah.... :
untuk memudahkan telah saya sediakan datanya untuk di copy :
program bintang_kedua;
uses crt;
var
        a,b,P,L:byte;
begin
clrscr;
        write ('masukkan panjang = '); readln (P);
        write ('masukkan lebar = '); readln (L);
        for a := 1 to L do
        begin
        for b := 1 to P do
        write ('*'); writeln;
        end;
        readln;
end.
cukup sekian dari saya,,,jika bermanfaat silahkan tinggalkan komentar anda.... :)
terimakasih....

Comments
Post a Comment