. |
. :
- ;
- ;
- ;
- ;
- , .. , ;
- "" ;
- ;
- ;
- ;
- ;
- .
Turbo Basic, Quick Basic, Turbo Pascal, Turbo C.
, Windows-:
Borland Delphi 3.0
- Borland Delphi () Borland Pascal, . .
- Microsoft Visual Basic Windows- . .
- Borland C++ DOS Windows .
, S A=(a1, a2,..., an).
(BASIC Beginners All-purpose Symbolic Instruction Code ) 1965 . . . , . C Basic BASIC, : Basic , . , . : QuickBasic (QBasic) 4.5 DOS Visual Basic 3.0-6.0 Windows. QuickBasic 4.5 Microsoft , , , 90- . QuickBasic . . , . QBasic . QBasic . . | INPUT "N = "; N: DIM A(N) FOR I = 1 TO N PRINT "A("; I; ") ="; INPUT A(I) NEXT I S = 0 FOR I = 1 TO N S = S + A(I) NEXT I PRINT " ="; S END Quick Basic | |
|
|
Program Summa; Type Mas = Array [1.. 100] of Real; Var A: Mas; i, n: Integer; S: Real; BEGIN Write('n = '); ReadLn(n); For i: = 1 to n do begin Write('A[', i, '] = '); ReadLn(A[i]); end; S: = 0; For i: = 1 to n do S: = S + A[i]; WriteLn('S = ', S:8:2); END. | 1970 . . , . , , , . , . , . , Turbo Pascal, . Turbo Pascal, Borland ( Inprise), , , , . |
1972 . , UNIX. , , 90% UNIX. , , , . , . | # include <stdio.h> # include <conio.h> main() { float a[100], s; int i, n; clrscr(); printf("n="); scanf("%i", &n); for (i = 1; i <= n; i++) { printf("a[%i]=", i); scanf("%f", &a[i]);} s=0; for (i = 1; i <= n; i++) s = s + a[i]; printf("s = % f \ n", s); return 0; } | |