Price fraction: Difference between revisions

Price fraction (view source)

42 bytes added , 14 years ago

m

→‎[[Price Fraction#ALGOL 68]]: wont work with|ELLA ALGOL 68 - specimen requires formatted transput

Anonymous user

Revision as of 14:21, 17 May 2010 (view source) rosettacode>NevilleDNZ (→‎[[Price Fraction#ALGOL 68]]) ← Older edit		Revision as of 14:28, 17 May 2010 (view source) rosettacode>NevilleDNZ m (→‎[[Price Fraction#ALGOL 68]]: wont work with\|ELLA ALGOL 68 - specimen requires formatted transput) Newer edit →
Line 67: {{works with\|ALGOL 68G\|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-1.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny]}} {{~~works~~wont work with\|ELLA ALGOL 68\|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - specimen requires formatted transput}}▼ ▲{{works with\|ELLA ALGOL 68\|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d]}} <lang algol68>main: ( Line 97 ⟶ 96: OD; printf(($"Value : "~~g(0~~z.2dl,~~2)l~~"Converted to standard : "~~g(0,2)l~~z.2dl$, price, std val)) )</lang> Sample Output: <pre> Value : 0.6838 Converted to standard : 0.7854 </pre> =={{header\|BASIC}}==