Яндекс.Метрика
    Поиск по тегу

    basic


    Найдено: 2 записи

    humour

    Познаём Русский язык. Цистерна первая, полная.

    10  INPUT string$
    20  LET from$ = "жы"
    30  LET to$ = "жи"
    40  GO SUB 1000
    50  LET from$ = "шы"
    60  LET to$ = "ши"
    70  GO SUB 1000
    80  LET from$ = "чя"
    90  LET to$ = "ча"
    100  GO SUB 1000
    110  LET from$ = "щя"
    120  LET to$ = "ща"
    130  GO SUB 1000
    140  LET from$ = "чю"
    150  LET to$ = "чу"
    160  GO SUB 1000
    170  LET from$ = "щю"
    180  LET to$ = "щу"
    190  GO SUB 1000
    200  PRINT string$
    300  STOP
    1000  LET lenstr = LEN string$
    1010  LET lenfrm = LEN from$
    1020  FOR n = 0 TO lenstr
    1030  IF string$(n TO n+lenfrm) = $from THEN LET string$ = string$(TO n) + to$ + string$(n+lenfrm TO)
    1040  NEXT n
    1050  RETURN

    Во второй полной цистерне я научу вас, как писать частицу «не» отдельно от глаголов :)

    humour

    Познаём Русский язык. Цистерна первая, полная.

    10  INPUT string$
    20  LET from$ = "жы"
    30  LET to$ = "жи"
    40  GO SUB 1000
    50  LET from$ = "шы"
    60  LET to$ = "ши"
    70  GO SUB 1000
    80  LET from$ = "чя"
    90  LET to$ = "ча"
    100  GO SUB 1000
    110  LET from$ = "щя"
    120  LET to$ = "ща"
    130  GO SUB 1000
    140  LET from$ = "чю"
    150  LET to$ = "чу"
    160  GO SUB 1000
    170  LET from$ = "щю"
    180  LET to$ = "щу"
    190  GO SUB 1000
    200  PRINT string$
    300  STOP
    1000  LET lenstr = LEN string$
    1010  LET lenfrm = LEN from$
    1020  FOR n = 0 TO lenstr
    1030  IF string$(n TO n+lenfrm) = $from THEN LET string$ = string$(TO n) + to$ + string$(n+lenfrm TO)
    1040  NEXT n
    1050  RETURN

    Во второй полной цистерне я научу вас, как писать частицу «не» отдельно от глаголов :)