Ф О Р Т Р А Н /16.07.73/ РRОGRАМ МАIN DОUВLЕ РRЕСISIОN Х,У Х=1.D0 2 У=1.0D0 3 Х=Х-У 4 РRINТ 10,У,Х 10 FОRМАТ (1Х,2D50.40) 5 SТОР ЕND ТАБЛИЦА ОТНОСИТЕЛЬНЫХ АДРЕСОВ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 000 :00001:00003:00005:00010 00016 *ЕХЕСUТЕ 1.0000000000000000000000000000000000000000+000 0.0000000000000000000000000000000000000000+000
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
winterfishwinterfish
no subject
Date: 2009-11-12 02:34 pm (UTC)Ф О Р Т Р А Н /16.07.73/ РRОGRАМ МАIN DОUВLЕ РRЕСISIОN Х,У Х=1.D0 2 У=1.0D0 3 Х=Х-У 4 РRINТ 10,У,Х 10 FОRМАТ (1Х,2D50.40) 5 SТОР ЕND ТАБЛИЦА ОТНОСИТЕЛЬНЫХ АДРЕСОВ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 000 :00001:00003:00005:00010 00016 *ЕХЕСUТЕ 1.0000000000000000000000000000000000000000+000 0.0000000000000000000000000000000000000000+000ИПМ, ИПМ…