Re: Help needed
- From: Gary Scott <garylscott@xxxxxxxxxxxxx>
- Date: Sun, 29 Oct 2006 19:41:43 GMT
as wrote:
don't give the whole thing away!!
On Oct 29, 7:48 pm, "LordOfNoldor" <skaldsandshad...@xxxxxxxxx> wrote:
Louis Krupp yazdi:
Can you write a program to print all of the numbers from 1 to 100?
Start with that, and then add the test to print only the numbers that
are not perfect squares.Also I can write what you said but can't get to write the not square
thing...
program ttt
implicit none
integer:: i
do i=1, 99
if ((i-int(sqrt(real(i)))**2) /= 0) print *, i
end do
print *, 'The end.'
end program ttt
--
Gary Scott
mailto:garylscott@sbcglobal dot net
Fortran Library: http://www.fortranlib.com
Support the Original G95 Project: http://www.g95.org
-OR-
Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html
Why are there two? God only knows.
If you want to do the impossible, don't hire an expert because he knows it can't be done.
-- Henry Ford
.
- References:
- Help needed
- From: LordOfNoldor
- Re: Help needed
- From: Gary Scott
- Re: Help needed
- From: LordOfNoldor
- Re: Help needed
- From: Louis Krupp
- Re: Help needed
- From: LordOfNoldor
- Re: Help needed
- From: as
- Help needed
- Prev by Date: Re: Help needed
- Next by Date: Short records on unformatted reads
- Previous by thread: Re: Help needed
- Next by thread: Re: Help needed
- Index(es):
Relevant Pages
|
|
