. . .

-800
-1000
-1000

1
2
3

 

 


1. , ?




-


2. ?




- (-)


3. , - :




- (-)


4. :


-


5. ?





6. ?





7. , ?





8. Dr. Web - :

-
-
-
-


9. , :




MS Word




  :

Basic (). .

. , Microsoft.

IBM PC , , Microsoft:

1) ( ),

2) (S DOS),

3) (Windows).

, . .

Quick Basic IBM PC MS DOS. IBM PC MS DOS.

Visual Basic Microsoft IBM PC Windows. Windows IBM PC.

, .

10 ' 堠 '

20 ls '

30 nm$ = ' $ =

40 dn$ = ' dn$ =

50 print + nm$ ' + $

60 print '

70 print dn$ ' dn$

80 print '

90 print ໠ '

100 end '

. , . .

:

' 堠 '

ls '

nm$ = ' $ =

dn$ = ' dn$ =

print + nm$ ' + $

print '

print dn$ ' dn$

print '

print ໠ '

end '

:

.

.

QBasic IBM PC - . , , .

, , .

- . , , , .

- . Qbasic , .

- . , , .

- , .

.

, , . , , .

:

- -;

- ;

- ;

- ;

- ;

- ;

- .

- .

print 򻠠 ()

print =; ( =, )

input a=; (=, )

input n ()

locate st, ps (st,ps)

:

𠠠

pset(x,y),c (,),

line(x,y)-(u,v),c (,)-(, v),

line(x,y)-(u,v),c,b (,)-(,),

circle(x,y),r,c (,), r,

circle(x,y),r,c,al,a2 (,), r,,1,2

paint(x,y),c (,),

ls _

screen 0,0 _

screen 1,0 _1

screen 2,0 _2

.

= 0 := 0 = 0

b = + 1 b := a + 1 b = + 1 = 1

= 2*b + 3 := 2b + 3 = 2 b + 3 = 5

d = b/c d := b/c d = -b/c = 0.2

b = b + 1 b := b + 1 b' = b + 1 = 2

b = b + 1 b := b + 1 b" = b' + 1 = 3

.

rnd - 0 1 rnd

int (x) - int (5/3) 1

abs (x) - ࠠ abs (-2) 2

sqr (x) - ࠠ sqr (16) 4

sin (x) - 񠠠 sin (0) 0

cos (x) - 񠠠 cos (0) 1

tan (x) - 񠠠 tan (0) 0

atn (x) - 񠠠 atn (0) 0

exp (x) - ࠠ (0) 1

log (x) - 頠 log (1) 0

, :

: :

if <> then <> <> <>

<> - , , <> - , .