2659241265

I. Języki programowania

Ewolucja języków programowania

Program w języku FORTRAN I.

DIMENSION DTA(900)

SUM = 0.0 READ 10, N 10 F0RMATCI3)

DO 20 I = 1, N READ 30, DTA(I)

30 F0RMATCF1O.6)

IF (DTA(I)) 25, 20, 20 25 DTA(I) = -DTA(I)

20 CONTINUE

DO 40 I = 1, N SUM = SUM + DTA(I)

40 CONTINUE

AVG = SUM/FLOAT(N)

PRINT 50, AVG 50 FORMAT(1H, F10.6)

STOP

W listopadzie 1954 roku została ogłoszona pierwsza specyfkacja języka FORTRAN, nazwa jest akronimem słów the IBM Mathematical FORmula TRANslating system. Można zauważyć, że program ten jest dużo czytelniejszy od poprzedniego.

dr Artur Bartoszewski - WYKŁAD: Podstawy informatyki; Studia Podyplomowe INFORMATYKA, Edycja

► 11