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

Тема: Помогите пожалуйста решить задачку и объяснить

  1. #1 Помогите пожалуйста решить задачку и объяснить 
    Новичок
    Регистрация
    02.04.2012
    Сообщений
    2
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Ввести одномерный массив целых чисел размера M. Удалить из массива повторяющиеся элементы, массив сжать
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ну вот программка:
    Код :
    INPUT "vvedite razmer M ", M
    DIM A(M)
    FOR I = 1 TO M
        PRINT "Vvedite znachenie"; I; " ";
        INPUT A(I)
    NEXT
     
    FOR I = 1 TO M
        ZN = A(I)
        FOR J = 1 TO M
            IF ZN = A(J) AND J <> I THEN
                IF ZN <> 99999 THEN A(J) = 99999
            END IF
        NEXT
    NEXT
     
    DO
        IND = 0
        FOR I = 1 TO M
            IF A(I) = 99999 THEN
                FOR J = I TO M - 1
                    A(J) = A(J + 1)
                NEXT
                A(M) = 0
                IND = IND + 1
            END IF
        NEXT
    LOOP WHILE IND <> 0
     
    FOR I = 1 TO M
        PRINT A(I),
    NEXT
    первоначально программа просит ввести размерность массива, и определяет массив A.
    Далее поэлементно вводится массив в цикле FOR-NEXT
    Далее в двойном цикле FOR-NEXT, последовательно выбираются элементы массива (внешний цикл) и сравниваются со всеми последующими элементами массива (внутренний цикл), в случае совпадения элементы заменяются на значение 99999
    В следующем цикле DO-LOOP, массив сканируется на значения 99999 и если такое значение найдено, последуещие элементы массива сдвигаются на его место.
    Последний цикл FOR-NEXT, выводит массив на экран...

    Уже видно несколько моментов которые можно улучшить, но что то лениво... Да и эта программа правильно работает. Кроме того не исключено, что она работает правильно в моем понимании, а в задании имелось ввиду слегка другое...
    Последний раз редактировалось Dimon012; 03.04.2012 в 18:50.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  2. помогите решить задачи пожалуйста
    от vetal в разделе Turbo Pascal
    Ответов: 6
    Последнее сообщение: 28.04.2012, 20:36
  3. Помогите пожалуйста решить задачу!
    от maiorovleo в разделе QBasic
    Ответов: 1
    Последнее сообщение: 28.04.2012, 14:26
  4. Ответов: 0
    Последнее сообщение: 21.12.2011, 17:47
  5. Помогите пожалуйста решить задачи на QBasic
    от Дмитрий 1993 в разделе QBasic
    Ответов: 9
    Последнее сообщение: 23.11.2011, 18:53
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •