subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Объем памяти дискеты равен 720 килобайт.
Вариантов масса. первое что приходит на ум взято из "похождения бравого солдата швейка" если не ошибаюсь. там в свою очередь этот способ упоминался как шифрование данных при передаче приказов в войне с наполеоном. суть - командующие перед выступлением договаривались какую книгу использовать(например войну и мир, естественно одного и того издания(конечно же войну и мир при наполеоне еше никто не написал, возьми другую, сча даже лень придумывать)). когда командующие уже разъехались по местам дисколации им высылали шифры, состоящие сплошь из цифр. а цифры в свою очередь это номера страниц и слов в той книге, про которую изначально договорились. таким образом, даже если гонца перехватят, враги получат только набор цифр, не зная книги ключа не возможно понять смысл шифра.