Selasa, 25 Oktober 2016

Cara Membuat Program Segitiga Menggunakan Pascal


Cara Membuat Segitiga Pascal

Ok kalini kita akan membuat program segitiga pada pascal langsung saja kita buka pascal
lalu kita masukan perintah seperti dalam tabel
Program Segitiga;
uses crt;
var
i,j,k,bil:integer;

Begin

clrscr;
write('================');
write('Membuat Segitiga');
write('================');
writeln('Masukan Angka Untuk Membuat Segitiga :'); readln(bil);
for i:=1 to bil do
{perulangan dari 1 Sampai Jumlah angka yang dimasukan}
end;

for j:=bil downto i do
{perulangan untuk jarak/spasi}
begin 
write(' ');
end;
for k:=1 to i+i-1
{perulangan untuk membuat segitiga}
begin
write('*')
end;
Writeln;
end;
readln;
End.


Lalu Compile (Ctrl+F9)
Jika sudah Di Compile lalu Run (Alt+F9)

Terima Kasih 

Terima Kritik dan Saran !!!

Tidak ada komentar:

Posting Komentar