Program bintang pascal belah ketupat

kali ini mimin akan post masih tentang pascal yakni tentang membuat bintang jadi belah ketupat langsung simak scriptnya di bawah ini..


script pada pascal

Program Belah_Ketupat;
uses wincrt;
var
N,i,j,k : integer;
begin
writeln('=PROGRAM BELAH KETUPAT=');
writeln('Nama = royek.blogspot.com ');

write ('Masukkan Batas : ');readln(N);
writeln;
begin
for i := 1 to N do
begin
for k := (N-1) downto i do
begin
write ('  ');
end;
for j:= 1 to i do
begin
write('*',' ');
end;
begin
for j:=(i-1) downto 1 do
write('*',' ');                                                              
end;
writeln('');
end;
begin
for i := (N-1) downto 1 do
begin
for k := (N-1) downto i do
begin
write('  ');
end;
for j := i downto 1 do
begin
write ('*',' ');
end;
begin
for j := 1 to (i-1) do
write('* ');
end;
writeln('  ');
end;
end;
end;
end.



output dari script diatas

masukan sembarang angka contoh di atas saya masukan angka 6.
sekian postingan saya semoga bermanfaat. :)

JANGAN LUPA TONTON DAN LIKE VIDEO LUCU INI

konversi angka ke teks pada pascal

kali ini saya akan sedikit berbagi pengetahuan yang telah saya dapat dari perkuliahan hari ini sengaja saya share ulang barang kali ada agan yang membutuhkan materi KONVERSI ANGKA KE TEKS PADA PASCAL... okey langsung simak di bawah..

program KonversiAngkaketeks ;
uses wincrt;

ini sintaksnya

var
angka : integer;
begin
write('masukan angka = ');readln(angka);

case angka of

1 : write ('satu') ;
2 : write ('dua')   ;
3 : write ('tiga') ;
4 : write ('empat')  ;

else
writeln('angka dimasukan salah');
end;
end.

hasil outputnya seperti ini

sekian postingan dari saya semoga bermanfaat kalo ada waktu luang saya akan post kembali ... wasalam wr.wb