로그인하고 있지 않습니다. 편집하면 당신의 IP 주소가 공개적으로 기록됩니다. 계정을 만들고 로그인하면 편집 시 사용자 이름만 보이며, 위키 이용에 여러 가지 편의가 주어집니다.스팸 방지 검사입니다. 이것을 입력하지 마세요!=== FORTRAN === IBM 704는 자기 드럼, 자기 테이프, 천공 카드로부터 자료를 읽거나 저장할 수 있었고, 프린터와 CRT에 정보를 보여줄 수 있었다. 하지만 보통은 천공 카드를 주로 썼고, 실제로 입력 가능한 도구는 천공 카드밖에 없었다. 때문에 천공카드 기반의 언어가 될 수밖에 없었다....지만, 애초에 [[폰 노이만]]이 살아있던 시대에 무엇을 바라는가?... ==== 코드 예제 ==== IBM 704에서는 80열 [[천공 카드]]를 사용한다. 즉, 포트란 코딩 시트(FORTRAN STATEMENT)에 다음과 같이 '''구멍을 내면'''<ref>[[키펀치|천공기]]라고, 이미 그 당시 펀치 카드 작성기가 있었기 때문에 손으로 뚫을 필요는 없다. 하지만 과학자들은 너무 많이 뚫다 보니 두꺼운 종이를 대충 잡아서 때려 뚫으면 맞는 경우도 있었다고 한다.</ref> 각 줄은 하나의 천공카드를 의미한다. 천공카드에 적힌 수 중에서 가장 큰 수를 찾아서 출력하여 준다. 천공카드에 적힐 수는 A(***)이며, 각 카드마다 12개씩, 6개의 열에 숫자를 적을 수 있다. 999개 이상으로 구성된 집합에서는 찾을 수 없다. 이 코드의 경우 천공 카드가 결과지로 역할한다. 천공 카드는 총 80열로 이루어져 있다. 1열부터 5열까지의 숫자는 Statement number이다. 만약 C 부분에 구멍이 뚫려 있다면 Comment card를 의미한다. 요즘 말로 하면 주석이 되겠다. 컴파일러에서 이게 뚫린 카드는 읽지 않는다. 다른 경우 이는 줄 번호를 이야기하거나 아예 쓰여있지 않다. 6열의 숫자는 Continuation. 1부터 9까지, 카드의 번호를 의미한다. 7열부터 72열까지 컴파일러에서 읽는다. 73열부터 80열까지는 컴파일러에서 읽지 않으며, 카드를 먹거나 순서가 바뀌는 경우를 방지하기 위하여 사용한다. 각 줄 앞에 있는 숫자는 두 가지 의미이다. 이 코드가 필요한 사람은 이미 천공카드 사용법을 알고 있을 것이기 때문에 그 사용법은 더 적지 않는다. <ref>http://bitsavers.informatik.uni-stuttgart.de/pdf/ibm/704/24-6661-2_704_Manual_1955.pdf 를 참조하시오</ref> <pre> C PROGRAM FOR FINDING THE LARGEST VALUE C X ATTAINED BY A SET OF NUMBERS DIMENSION A(999) FREQUENCY 30(2,1,10), 5(100) READ 1, N, (A(I), I*1, N) 1 FORMAT (I3/(12F6.2) BIGA = A(1) 5 DO 20 I = 2,N 30 IF (BIGA-A(I)) 10,20,20 10 BIGA = A(I) 20 CONTINUE PRINT 2,N,BIGA 2 FORMAT (22H1 THE LARGEST OF THERE I3, 12H NUMBERS IS F7.2) STOP 77777 </pre> 다음은 서술형 포트란 코딩 시트(천공 카드에 쓰기 전에 쓰는 형태)에 적는 방법대로 적은 것이다. {| class="wikitable" style="text-align:right;" ! colspan="2"| '''C''' For comment !! rowspan="2"| continuation !! rowspan="2"| FORTRAN STATEMENT !! rowspan="2"| 천공카드 장 수 |- ! colspan="2"| STATEMENT NUMBER |- | C|| || || style="text-align:left;"| PROGRAM FOR FINDING THE LARGEST VALUE || 1 |- | C|| || X|| style="text-align:left;"| ATTAINED BY A SET OF NUMBERS || 2 |- | || || || style="text-align:left;"| DIMENSION A(999) || 3 |- | || || ||style="text-align:left;"| FREQUENCY 30(2,1,10), 5(100) || 4 |- | || || || style="text-align:left;"| READ 1, N, (A(I), I*1, N)|| 5 |- | || 1 || || style="text-align:left;"| FORMAT (I3/(12F6.2)|| 6 |- | || || ||style="text-align:left;"| BIGA = A(1)|| 7 |- | || 5 || || style="text-align:left;"| DO 20 I = 2,N || 8 |- | || 30 || ||style="text-align:left;"| IF (BIGA-A(I)) 10,20,20 || 9 |- | || 10 || || style="text-align:left;"| BIGA = A(I) || 10 |- | || 20 || ||style="text-align:left;"| CONTINUE|| 11 |- | || || ||style="text-align:left;"| PRINT 2,N,BIGA || 12 |- | || 2 || || style="text-align:left;"| FORMAT (22H1 THE LARGEST OF THERE I3, 12H NUMBERS IS F7.2) || 13 |- | || || || style="text-align:left;"| STOP 77777 || 14 |- | || || || || |} 요약: 리브레 위키에서의 모든 기여는 크리에이티브 커먼즈 저작자표시-동일조건변경허락 3.0 라이선스로 배포됩니다(자세한 내용에 대해서는 리브레 위키:저작권 문서를 읽어주세요). 만약 여기에 동의하지 않는다면 문서를 저장하지 말아 주세요. 글이 직접 작성되었거나 호환되는 라이선스인지 확인해주세요. 리그베다 위키, 나무위키, 오리위키, 구스위키, 디시위키 및 CCL 미적용 사이트 등에서 글을 가져오실 때는 본인이 문서의 유일한 기여자여야 하고, 만약 본인이 문서의 유일한 기여자라는 증거가 없다면 그 문서는 불시에 삭제될 수 있습니다. 취소 편집 도움말 (새 창에서 열림) | () [] [[]] {{}} {{{}}} · <!-- --> · [[분류:]] · [[파일:]] · [[미디어:]] · #넘겨주기 [[]] · {{ㅊ|}} · <onlyinclude></onlyinclude> · <includeonly></includeonly> · <noinclude></noinclude> · <br /> · <ref></ref> · {{각주}} · {|class="wikitable" · |- · rowspan=""| · colspan=""| · |} {{lang|}} · {{llang||}} · {{인용문|}} · {{인용문2|}} · {{유튜브|}} · {{다음팟|}} · {{니코|}} · {{토막글}} {{삭제|}} · {{특정판삭제|}}(이유를 적지 않을 경우 기각될 가능성이 높습니다. 반드시 이유를 적어주세요.) {{#expr:}} · {{#if:}} · {{#ifeq:}} · {{#iferror:}} · {{#ifexist:}} · {{#switch:}} · {{#time:}} · {{#timel:}} · {{#titleparts:}} __NOTOC__ · __FORCETOC__ · __TOC__ · {{PAGENAME}} · {{SITENAME}} · {{localurl:}} · {{fullurl:}} · {{ns:}} –(대시) ‘’(작은따옴표) “”(큰따옴표) ·(가운뎃점) …(말줄임표) ‽(물음느낌표) 〈〉(홑화살괄호) 《》(겹화살괄호) ± − × ÷ ≈ ≠ ∓ ≤ ≥ ∞ ¬ ¹ ² ³ ⁿ ¼ ½ ¾ § € £ ₩ ¥ ¢ † ‡ • ← → ↔ ‰ °C µ(마이크로) Å °(도) ′(분) ″(초) Α α Β β Γ γ Δ δ Ε ε Ζ ζ Η η Θ θ Ι ι Κ κ Λ λ Μ μ(뮤) Ν ν Ξ ξ Ο ο Π π Ρ ρ Σ σ ς Τ τ Υ υ Φ φ Χ χ Ψ ψ Ω ω · Ά ά Έ έ Ή ή Ί ί Ό ό Ύ ύ Ώ ώ · Ϊ ϊ Ϋ ϋ · ΐ ΰ Æ æ Đ(D with stroke) đ Ð(eth) ð ı Ł ł Ø ø Œ œ ß Þ þ · Á á Ć ć É é Í í Ĺ ĺ Ḿ ḿ Ń ń Ó ó Ŕ ŕ Ś ś Ú ú Ý ý Ź ź · À à È è Ì ì Ǹ ǹ Ò ò Ù ù · İ Ż ż ·  â Ĉ ĉ Ê ê Ĝ ĝ Ĥ ĥ Î î Ĵ ĵ Ô ô Ŝ ŝ Û û · Ä ä Ë ë Ï ï Ö ö Ü ü Ÿ ÿ · ǘ ǜ ǚ ǖ · caron/háček: Ǎ ǎ Č č Ď ď Ě ě Ǐ ǐ Ľ ľ Ň ň Ǒ ǒ Ř ř Š š Ť ť Ǔ ǔ Ž ž · breve: Ă ă Ğ ğ Ŏ ŏ Ŭ ŭ · Ā ā Ē ē Ī ī Ō ō Ū ū · à ã Ñ ñ Õ õ · Å å Ů ů · Ą ą Ę ę · Ç ç Ş ş Ţ ţ · Ő ő Ű ű · Ș ș Ț ț