19 Januari 2014

Cara membuat deret kupu kupu dengan pascal

By Wiwit keni 1/19/2014 Leave a Comment
Kali ini saya pengen berbagi tentang progam kupu kupu menggunakan bahasa pemrogaman pascal. bagi yang belum memiliki progamnya silahkan donload DISINI.

Dibawah ini adalah Source code kupu kupu dengan pascal :
uses crt;
var
 n,y,x:integer;
begin
 clrscr;
 write('Masukan Jumlah angka : ');
 readln(n);
 for y:=1 to n do
  begin
  for x:=1 to n do
  begin
  if ((y<=x) and (x<=n div 2+1)) or ((y<=n-x+1) and (x>=n div 2+1))
  or ((y>=n-x+1) and (x<=n div 2+1)) or ((y>=x) and (x>=n div 2+1)) then
  write(' ')
  else
  write('*');
  end;
  writeln;
 end;
 readln;
end.

Jika tidak ada kesalahan maka outpunya akan seperti ini:

kupu












Jika kurang jelas terhadap logikanya bisa tinggalkan komentar
If You Enjoyed This, Take 5 Seconds To Share It

0 komentar:

Posting Komentar