Hi
I have done (b) for coding see below, could someone assist with
(a) (b) (d)
#!/usr/local/bin/perl -w
my $num_rows;
my $i;
my $r;
$num_rows = <STDIN>;
for ($r = 1; $r <= $num_rows; $r++)
{
for ($i=1; $i<= $r; $i++) {print (" \n");}
for ($i = $num_rows + 1 - $r;$i>=1; $i--){ print (" * ");}
}# end for
print (" \n");
solution:
-------------
5
* * * * *
* * * *
* * *
* *
*
Thanks
Bruce
--- Begin Message ---
I have written following coding to produce a triangle pattern(see below);
I now want to produce following paterns I can't figer this out
(a) (b) (c) (d) diamond
* * * * * * * * * * * *
* * * * * * * * * * * * *
* * * * * * * * * * * * *
* * * * * * * * * * * * *
* * * * * * * * * * *
* * *
*
______________________________________________
#!/usr/local/bin/perl -w
my $num_rows;
my $i;
my $r;
$num_rows = <STDIN>;
for ($r = 1; $r <= $num_rows; $r++)
{
# indent by printing num_rows - r spaces
for ($i = 1; $i <= $num_rows - $r; $i++) {print (" \n");}
# print r asterisks
for ($i=1; $i<= $r; $i++) { print (" *");}
# drop cursor to a new line
print "\n";
}
# end for
-------------------------------------
unxsup:/home/bruce$ perl triangle.pl
5
*
* *
* * *
* * * *
* * * * *
Cheer
Bruce
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--- End Message ---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
