Program perulangan Pascal
sebenarnya program ini sudah pernah saya posting sebelumnya, tapi gapapa untuk lebih memperjalas lagi, semoga bermanfaat.
Minggu ke : 2
Nama Program : Program Perulangan
Fungsi :
- Menggunakan statement perulangan pada pascal
Listing program :
uses crt ;
var
a,b,c,d : integer ;
begin
b := 1 ;
write ( ‘masukan tinggi segitiga:’ ) ;
readln (a) ;
while b <= a do
begin
for c := 1 to b do
begin
write ( ‘*’ ) ;
end ;
b := b + 1 ;
writeln (”) ;
end ;
writeln (”) ;
d := a ;
while d >= 1 do
begin
for c := d downto 1 do
begin
write ( ‘*’ ) ;
end ;
d := d – 1 ;
writeln (”) ;
end ;
readln
end.
Output program:

Iklan