Jefrianto Jevan - Blogger

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....

hallo teman-teman...... kali in akan saya sampaikan cara untuk membuat Piramida Segitiga angka dengan Pascal..... oke kita langsung saja,,,caranya cukup mudah,,silahkan lihat gambar di bawah ini : untuk memudahkan,,silahkan copy datanya : program segitiga_angka; uses crt; var     j,k,n : byte; begin clrscr;         write ('masukkan angka yg anda inginkan='); readln(n);         for j := 1 to n do         begin         for k:= 1 to j do         write ('0'); writeln;         end;         readln; end. oke,,,,cukup sekian dari saya,,jika bermanfaat silahkan posting komentar anda,,,,  :)  trimakasih.