Jump to content

Archimedean spiral: Difference between revisions

→‎{{header|ALGOL W}}: Round insted of truncate
m (→‎{{header|ALGOL W}}: cite coirrect soure of the translation!)
(→‎{{header|ALGOL W}}: Round insted of truncate)
Line 169:
real r;
r := a + b * t;
x := entierround(r * cos(t) + w);
y := entierround(r * sin(t) + h);
if x <= 0 or y <= 0 then begin end
else if x >= 280 then begin end
Line 194:
{{out}}
<pre>
****** **************
******** ********
**** ** ****
**** ******
**** ****
**** ****
**** ************** ****
**** ****** ************ **
**** **** ****** ** **
**** **** **** ****
**** **** **** ** **
**** **** ** ** **
** **** ******** ** **
** ** ****** **** **** ****
**** **** ** ** **** ** ** **
** ** ** ** **** ** **
** ** **** ** ** **
** **** ** **** ** **
** **** ** ****** ** ****
** ** ** **** **
** ** **** ** **
**** ** ** **** ****
** ** **** **** **
** ** ****** ** **** ****
**** **** ************** **
** ** ** **
**** **** ****
** **** ****
**** **** ******
** ******** ******
** ******** ********
** **********
**
****
******
******
********
** ********
</pre>
 
3,043

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.