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

Тема: Удаление элементов чисел массива больше заданного числа

  1. #1 Удаление элементов чисел массива больше заданного числа 
    Новичок
    Регистрация
    17.02.2011
    Сообщений
    17
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите с выводом удаленных элементов


    Код :
    CLS
    PRINT TAB(20); "Удаление элементов чисел массива больше заданного числа"
    PRINT
    1 : INPUT "Введите кол-во элементов массива: ", n
    IF n = 0 THEN
    PRINT "Введено  нулевое значение"
    GOTO 1
    ELSEIF n < 0 AND n - INT(n) > 0 THEN
    PRINT "Введено отрицательное дробное число"
    GOTO 1
    ELSEIF n - INT(n) > 0 THEN
    PRINT "Введено отрицательное дробное число"
    GOTO 1
    ELSEIF n < 0 THEN PRINT
    PRINT "Введено отрицательное значение"
    GOTO 1
    END IF
    INPUT "Введите граничное число ", k
    DIM a(n)
    PRINT
    l = 1
    PRINT "Заполнение массива"
    FOR i = 1 TO n
    PRINT "Введите"; l; "элемент массива: ";
    INPUT "", a(i)
    l = l + 1
    NEXT i
    PRINT
    PRINT "Начальный массив:"
    FOR i = 1 TO n
    PRINT a(i);
    NEXT i
    PRINT
    FOR i = 1 TO n
    NEXT
    FOR i = 1 TO n
    IF a(i) <= k THEN m = m + 1: a(m) = a(i)
    NEXT i
    PRINT "Новый массив:"
    FOR i = 1 TO m
    PRINT a(i);
    NEXT i
    PRINT
    FOR i = 1 TO n
    IF a(i) > k THEN p = p + 1: a(p) = a(i)
    NEXT i
    PRINT "Удаленные элементы"
    FOR i = 1 TO p
    PRINT a(i);
    NEXT i
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,535
    Сказал(а) спасибо
    126
    Поблагодарили 432 раз(а) в 293 сообщениях
    Записей в блоге
    6
    А в чём собственно ошибка? У меня вроде бы всё правильно работает.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    17.02.2011
    Сообщений
    17
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вот тестовый вариант:

    Введите кол-во элементов: 6
    Введите граничное число 8
    Заполнение массива
    Введите 1 элемент массива:3
    Введите 2 элемент массива:9
    Введите 3 элемент массива:11
    Введите 4 элемент массива:4
    Введите 5 элемент массива:6
    Введите 6 элемент массива:7

    Начальный массив:
    3 9 11 4 6 7
    Новый массив:
    3 4 6 7
    Удаленные элементы
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,535
    Сказал(а) спасибо
    126
    Поблагодарили 432 раз(а) в 293 сообщениях
    Записей в блоге
    6
    Вот, сделал, работет. Правда сам не знаю, в чём была ошибка, просто менял код, где что не нравилось
    Вложения
    • Тип файла: rar el.rar (483 байт, Просмотров: 6)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    17.02.2011
    Сообщений
    17
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо щас работает!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 3
    Последнее сообщение: 23.12.2011, 00:01
  2. Ответов: 1
    Последнее сообщение: 09.11.2011, 22:38
  3. Ответов: 2
    Последнее сообщение: 13.05.2011, 22:22
  4. Ответов: 7
    Последнее сообщение: 28.04.2011, 00:14
  5. Ответов: 2
    Последнее сообщение: 08.02.2011, 22:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •