|
Calculus
Computer Lab
|
|
|
xxxxxxxxxxxxxxxxxx |
program demo7
c This program prints "aloha", then 2 spaces, then "poi",
c then sqrt(2) to 3 decimal places beginning in column 30,
c then a line feed, then sqrt(2) to 15 decimal places
c beginning in column 20, then 3 spaces, then the integer 2001.
double precision x
integer n
x = sqrt(2D0)
n = 2001
write (*,5) "aloha", "poi", x, x, n
5 format (a,2x,a,t30,f5.3,/,t20,f18.15,3x,i4)
end
|