, . , . .
. . ( ), . . - . , .
- , .
. , , .
. . . . . - , .
.
- . . , . . . () - . - . , . . . , , . , -, . -: .
|
|
, , .. , . .
. () . , , .
, . . :
;
;
;
.
. , , .
:
;
;
;
, .
, . "", .
. .
, .
- . :
: , , ;
- ;
"GOTO".
.
, . - , , .
50- . , FORTRAN () FORmula TRANslator ( ), 1954 . IBM , , .. . , .
|
|
ALGOL () Algorithmic Language , . , , IBM. , . , .
, , . BASIC () Beginner's All-purpose Symbolic Instruction Code , . 1965 . . , , . 300 .
, . -, , , .
, . FOR NEXT .
: .
100 DIM T (100) - ,
200 READ N - N,
300 FOR I = 1 TO N - I =1 N,
400 READ T (I) - T (I),
500 NEXT I - I,
600 GOSUB 1100 -
700 PRINT S
800 GOTO 2000
900 DATA 4
1000 DATA 23, 34, 7, 9
1100 REM S = (1...N)
1200 LET S = 0
1300 FOR I = 1 TO N
1400 IF NOT ODD(T(I)) THEN GOTO 1600
1500 LET S = S + T(I)
1600 NEXT I
1700 RETURN
2000 END.
COBOL () Common Business Oriented Language , 1960 . . , , . , , . , . , , .. , .
Pascal (), , 1960 . . , .
: 30 . .
, :
PROGRAM (input, output);
var a, b, s: integer;
begin read (a, b);
s: = a + b;
write (s);
|
|
end.
, ISO 7185. , Borland Pascal Turbo Pascal.
70- . Bell Telephone Laboratories (). . . UNIX. , , .
- , - . . , , . , , , .
. , .
, , , , , , . .
80- - -. . - ++ Java. Java .
- , . Visual Basic, Delphi, Visual C ++.
, - . PROLOG (Programming in Logic - ) - . . 1973 . : , , ; ; .
, 5- .
1 . , , 1 . . ( , ) . , , . , . , , , . , . , , , , . , .
|
|