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

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 : mencari dengan tekik rekursi adalah dituliskan sebagai berikut ini : Masukan suku bilangan FIBONACCI yang akan dicari (=n). 1. Mulai 2. Baca n 3. Proses be

Sekilas Cerita Tentang Awal Tingkat 4 di STIS

Waktu terasa begitu cepat berlalu, terasa baru kemarin saya mengikuti pendidikan Bela Negara di DODIKLATPUR (Komando Pendidikan Latihan Tempur) di Gunung Bundar, dimana bagi saya itu merupakan moment yang berharga, bisa sedikit mengenal tentang dunia militar yang merupakan cita-cita saya dulu juga bisa bertemu dengan banyak teman-teman baru yang bahkan sampai sekarang kami masih saling mengenal meskipun kadang saya lupa nama mereka hehe.. ya wajarlah tidak mungkin saya bisa menghafal nama dari 500an orang mahasiswa angkatan saya (STIS 56). Btw sudah lama juga saya tidak menulis di blog ini karena sok sibuk hehe,. Kembali topik, ketika saya melihat mahasiswa/i baru STIS (Maba/Miba) selalu terkedang masa -masa ketika itu, dan tak sadar kalau sekarang saya memikul balok 4 dan telah melewati pertengahan semester 7. Setiap pergantian tingkat mahasiswa selalu di acak jadi kita bisa bertemu dengan berbagai macam orang dengan berbagai macam latar bela

Jefrianto Jevan - Blogger

Search This Blog