:
http://mm.peniks.ru . , . | https://tnt-porno.ru/topic   


- , . IBM PC Basic. Windows IBM PC.

data, ­ . :

'

cls

( ) print :

$, dn, ms, gd read nm$, dn, ins, gd

nm$; dn; ms; gd print nm$; dn; ms; gd

end

: , 18, 10, 1980 data , 18,10,1980

:

:

18 10 1980



data . :

: , 1, 12, 1974 data , 1,12,1974

­ data 1000. :

10 '

20 cls

( :) 30 print :

n$, dn, ms, gd 40 read nm$, dn, ms, gd

nm$; dn; ms; gd 50 print nm$; dn; ms; gd


60 end

: , , 18,10,1980 1000 data , 18,10,1980

restore ( ):

1) test:

restore test

- test;

2) 1000:

restore 1000

- , 1000- ;

3) :

restore - .

, . , ­.

- . . : , =, 2 + 1 .. .

- , . ­ , $. : s$, p$, sl$, pr$.

- , . ­ :

n%, m%, nl%, m3% -

, , xl, y5 -

#, b#, al#, b8# -

­ , :

:





26

6

1949



22

5

1946



25

10

1973



1

12

1974

­ data:

:







26

6

1949



22

5

1946



25

10

1973



1

12

1974

 

 

dni: '

data , 26, 6, 1949

data , 22,5, 1946

data , 25, 10, 1973

data , 1, 12, 1974

data , 0, 0, 0







!

1. data

.

2.

data
- , .

, . ­ data, .

, :

'



ls

( ) print

dni restore dni

렠 do

(, d, , g) read nn$, d, m,

g




= if nn$ = exit then do


(, d, m, g) print nn$, d, m, g

렠 loop

end

. - ­ , .



­ dim. dim . , , . .

:

20 -

dim nm$(20), d(20), m(20)

210 1010

dim fm$(2,10), tb(10,10)

, . :

nm$(4) =

d(4) = 10

fm$(l,10) =

tb(3,4) = 3*4

dim ­. ­ . ­ , ­ dim.

n

­:

n = 5 ' n = 5

dim tb(n,n) , ' tb[1:n, 1:n]

­ n´n.





1 2 3 4 5

2 4 6 8 10

3 6 9 12 15

4 8 12 16 20

5 10 15 20 25

tb(n, n) c n = 5:

'

=5 n=5

tb[1:n, 1:n] dim tb(n,n)

ls



k = 1 렠 for k = 1 to n

1

= 1 렠 for l = 1 to


tb[k,l]:

= k*l tb(k,l) = k*l


tb[k,l] print tb(k,l);

렠 next 1

_ࠠ print

렠 next k

end

­ 55. 88 10 10 n =5 n = 8 n = 10.

: , , , .. .

­ :

;

.

- , ­ . , .

- . ­ .

:

         ;

         ;

         .

- , . , ­ .



- , ­ . , , .

- , ­ ­. .

­ . , ­ :





125-14-70



222-01-02



102-99-00

- . . ­ , ­ :

:



= ? <>

: <>



data:

tel: ' :

data , 125-14-80

data , 222-01 -02

data , 102-99-00

data ,

:



껠 '



ls

( ) print

(=, NN) input =, NN$

- tel restore tel

렠 do



(, ) read im$, nm$



= NN  if im$ = NN$ then


(:,) print :,nm$

[ ] exit do



=  elseif im$ = then


( ) print

[ ] exit do

堠 end if

렠 loop

end

, ­ - , . .

­ , - , .

, , .

­ .

. , :











180





160





190

<


, ­ :





_ = ? <min>

_ = ? <max>

<> <>





data:

dan: '

data , , 180

data , , 160

data , , 190

data , , 0

­ , .



黠 '

ls

( ) print

(_ =>, min) input _ =>, mn

(_ =<, ) input _ =<, m

- dan restore dan

n: = 0 n = 0

렠 do

(, , r) read fm$,im$,r

= if fm$ = then exit do

min £ r r £ max  if mn<= r and r <= mx then

(, ) print fm$, im$

n: = n+1 n = n+1

堠 end if

렠 loop

n = 0  if n = 0 then



print

end

. ­ , .



 

1. ?

2. , ?

3. ?

4. ?

5. ?

6. ?

3

1. , ­ data.

2. , : , , , data.

3. , , data :

) ;

) ;

) .

4. , , data.

5. , , data:

) ;

) ;

) .

6. ­ , data.

7. , data.