diff options
| author | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
|---|---|---|
| committer | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
| commit | b3eca771ea610cbe7320fedfcd6e9de19b8bae2a (patch) | |
| tree | e8d880d45a8d64a8613b1ea1582a4dce9b614cbb /DEBI.FOR | |
| parent | initial commit (diff) | |
| download | ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.gz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.bz2 ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.lz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.xz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.zst ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.zip | |
Diffstat (limited to 'DEBI.FOR')
| -rw-r--r-- | DEBI.FOR | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/DEBI.FOR b/DEBI.FOR new file mode 100644 index 0000000..9431c82 --- /dev/null +++ b/DEBI.FOR @@ -0,0 +1,15 @@ + SUBROUTINE DEBI(A,B) +C +C PRETVARJA POZITIVNO CELO STEVILO REAL Z OSNOVO 10 (A - VKLJUCNO 128.) +C V BINARNO (B - 10000000.). BREZ OPOZORIL. SE IZDELATI. +C + C=AMOD(A,2.) + A=AINT(A/2.) + B=C + DO 10 I=1,1000 + IF(A.EQ.0) RETURN + C=AMOD(A,2.) + A=AINT(A/2.) +10 B=B+C*(10**I) + RETURN + END |