Skip to main content

Cara Membuat Persegi m x n dengan Pascal

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

Popular posts from this blog

Sekilas Sekolah Tinggi Ilmu Statistik

SEKOLAH TINGGI ILMU STATISTIK Hallo,slamat pagi/siang/malam semuanya,kali ini saya akan membahas tentang sekolah saya, tempat saya menimba ilmu Sedikit perkenalan ya... Sekolah Tinggi Ilmu Statistik atau biasa di singkat STIS (di baca es-te-i-es) karena saking banyaknya mereka yang tidak tau tentang sekolah ini yah,bacanya juga harus diajarin,,,haha,,maaf maaf kembali ke topik , Adalah sebuah perguruan tinggi kedinasan yang ada satu-satu nya di Republik Indonesia dan berada langsung dibawah naungan Badan Pusat Statistik Republik Indonesia (BPS-RI) Lembaga Nonkementrian yang bersifat Independen yang bertanggung jawab langsung kepada Presiden (Jabatan kepala BPS-RI setinggkat Mentri) . STIS berlokasi di Daerah Khusus Ibukota Jakarta lebih tepatnya di Jakarta Timur, dan kalau dipikir-pikir,STIS merupakan salah satu atau bahkan satu-satunya sekolah kedinasan yang berada di pusat kota (kalau salah silahkan dikoreksi). Kalau teman-teman ingin kuliah, saya sarankan untuk be...

Cara Menentukan Bilangan Fibonacci dalam Algoritma

Cara Menentukan Bilangan Fibonacci dalam Algoritma selamat malam semuanya,,,   Dalam postingan kali ini akan saya sampaikan tentang  Cara Menentukan Bilangan Fibonacci dalam Algoritma,,  okey akan saya jelaskan,,    Bilangan FIBONACCI adalah suatu deret bilangan bulat positif ( integer ) tak berhingga  yang secara berurutan adalah didefinisikan sebagai berikut ini : 1   1   2   3   5   8   13   21   34   58   89  . . . dst      Jika diamati deret bilangan FIBONACCI di atas, maka dapat dipahami bahwa nilai bilangan FIBONACCI suku ke-n dalam deret tersebut dapat dihitung dengan menjumlahkan dua bilangan terdekat pada urutan sebelumnya.     Secara umum nilai bilangan FIBONACCI suku-n dapat dihitung dengan  menjumlahkan nilai-nilai bilangan FIBONACCI suku-(n-1) dan ke-(n-2).   Flowchart :...

Mengawali Tahun Baru Dengan Skripsi #Part2

yap,mari kita lanjutan tulisan  Mengawali Tahun Baru Dengan Skripsi #Part1          Selama 2 minggu liburan, saya mencoba memanfaatkannya sebaik mungkin. Tepatnya hari sabtu 23 Januari 2017 saya memulai untuk mencoba menuliskan bagian bab 1 skripsi dimana penulisan dimulai dari latarbelakang penelitian, karena panjangnya latarbelakang dan susahnya mencari data sebagai pendukung, saya sampai ketiduran mengerjakannya (dan tentu saja penulisan latarbelakang itu masih belum selesai).            Malam kira-kira jam 8 saya dibangunkan dengan ada email dan chat whatsapp. email yang masuk berasal dari bagian Jurusan Statistik yang berisikan tentang Topik seluruh mahasiswa STIS tingkat 4 tahun 2017//2018 (angkatan 56) dan disertai dengan instruksi untuk membuat laporan jika ditemukan adanya kesamaan topik dengan teman seangkatan maupun dengan angkatan angkatan yang telah lulus sebbelumnya. Belum sempat saya mengecek lampiran...