Важная информация
Показано с 1 по 8 из 8

Тема: Массивы и не только)

  1. #1 Массивы и не только) 
    Новичок
    Регистрация
    27.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    I) Осуществить систематический сдвиг всех элементов одномерного числового массива на 1 номер вперёд, а первый элемент сделать равным единице
    II) В заданном слове каждую букву б заменить буквосочетанием ку (тема: работа с символьными данными)
    III) Напишите программу движения прямоугольника по горизонтали (Графический режим работы в QBASIC)
    IV) а тут задание в файле word, если просто его написать тут, мало что понятно будет) ссылка [Ссылки могут видеть только зарегистрированные пользователи. ]

    Буду рада любой помощи)))
    Ответить с цитированием  
     

  2. #2  
    Новичок
    Регистрация
    13.01.2011
    Сообщений
    13
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    I.
    - делаем цикл по i от N до 1 (или до 0 если в QB массивы нумеруются с 0), где N - номер последнего эл-та массива;
    - в цикле заменяем (присваиванием) i-й элемент на i-1-й;
    - по окончании цикла присваиваем первому эл-ту 1.
    Последний раз редактировалось Wanderer; 28.01.2011 в 16:42.
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    II.
    Код :
    DIM Word$, I% 'Объевляем переменную для хранения строки, и индекса
    INPUT Word$ 'вводим слово
    DO
        I% = INSTR(Word$, "б") 'Пытаемся найти букву "б" в слове
        IF I% = 0 THEN EXIT DO 'Если не нашли, то выходим
        Word$ = LEFT$(Word$, I% - 1) + "ку" + RIGHT$(Word$, LEN(Word$) - I%)
        'Иначе меняем одну букву б на ку. (склеиваем часть строки слева, до б, потом добавляем ку, и дописываем строку справа, после б)
    LOOP
    PRINT Word$
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вот третие

    Код qbasic:
    SCREEN 1
    CLS
    FOR i=1 TO 300
    LINE (i, 10) - (i+10, 30), 2, B 'Рисуем прямоугольник
    FOR j=1 TO 10000  'ждём
    NEXT j
    LINE (i, 10) - (i+10, 30), 0, B 'стираем его
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    27.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    по 1 заданию можно код? никак не разберусь с ним
    4 не нужно, я решила уже
    Ответить с цитированием  
     

  6. #6  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код qbasic:
    DIM A(N)
    FOR I=N TO 2
    A(I)=A(I-1)
    NEXT i
    A(1)=1
    Но тут вначале надо массив ввести. Это сам процесс обработки.
    Последний раз редактировалось Kakos_nonos; 28.01.2011 в 22:39.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    27.01.2011
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Kakos_nonos Посмотреть сообщение
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(N)
    FOR I=N TO 2
    A(I)=A(I-1)
    NEXT i
    A(1)=1
    Но тут вначале надо массив ввести. Это сам процесс обработки.
    Не могли бы вы дать полный код и объяснить что и откуда брали? Хочу понять суть решения задачи.
    Ответить с цитированием  
     

  8. #8  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вот полный код:
    Код qbasic:
    INPUT "Введите количество элементов", n
    DIM a(n)
    FOR i = 1 TO n
    INPUT "Введите число", a(i)
    NEXT i
    FOR i = n TO 2 STEP -1
    a(i) = a(i - 1)
     
    NEXT i
    a(1) = 1
    FOR i = 1 TO n
    PRINT a(i)
    NEXT i

    Объясняю:

    Код qbasic:
    INPUT "Введите количество элементов", n
    DIM a(n)
    Вводим количество элементов в массиве и создаём такой массив

    Код qbasic:
    FOR i = 1 TO n
    INPUT "Введите число", a(i)
    NEXT i
    Цикл загоняет по одному значению в массив
    Код qbasic:
    FOR i = n TO 2 STEP -1
    a(i) = a(i - 1)
    NEXT i
    Присваеваем номеру i массива значение номера i-1
    тоесть например пятый элемент массива будет равен четвёртому
    Код qbasic:
    a(1) = 1
    Первый элемент равен одному
    Код qbasic:
    FOR i = 1 TO n
    PRINT a(i)
    NEXT i
    Выводим значения

    Вот вроде бы всё. Если что не понятно, спрашивайте
    Последний раз редактировалось Kakos_nonos; 02.02.2011 в 16:42. Причина: добавил подсветку синтаксиса
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 11.11.2012, 12:32
  2. Ответов: 3
    Последнее сообщение: 20.04.2012, 13:27
  3. массивы
    от И.Крапивин в разделе QBasic
    Ответов: 4
    Последнее сообщение: 22.11.2011, 21:32
  4. Массивы
    от alf в разделе QBasic
    Ответов: 6
    Последнее сообщение: 30.11.2010, 18:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •