Реферат: Основы ПЭВМ

K = K + 1

S(K) = I

END IF

IF B$(I) = "." THEN

T = T + 1

C(T) = I

END IF

NEXT I

IF C(1) > S(1) THEN

C$(1) = MID$(A$, 1, S(1))

ELSE

C$(1) = MID$(A$, C(1), S(1) - C(1))

END IF

FOR I = 2 TO K

IF C(I) > S(I) THEN

C$(I) = MID$(A$, S(I - 1), S(I) - S(I - 1))

ELSE

C$(I) = MID$(A$, C(I), S(I) - C(I))

END IF

NEXT I

FOR I = 1 TO K

D(I) = LEN(C$(I))

NEXT I

FOR I = 1 TO K

FOR J = 1 TO D(I)

R$(I, J) = MID$(C$(I), J, 1)

NEXT J

NEXT I

FOR I = 1 TO K