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

Тема: Помогите написать пару программ

  1. #1  
    Новичок
    Регистрация
    29.11.2010
    Сообщений
    22
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите пожалуйста! Оч прошу.
    Изображения
    • Тип файла: jpg 1.jpg (44.1 Кб, Просмотров: 7)
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Предлагаю такое решение:

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 20
    [Ссылки могут видеть только зарегистрированные пользователи. ] U(N)
    U(1) = 1
    U(2) = 2
    FOR I = 1 TO N
    IF I > 2 THEN U(I) = U(I - 1) + U(I - 2)
    [Ссылки могут видеть только зарегистрированные пользователи. ] "U("; I; ")="; U(I);
    IF I > 1 THEN
    Vn = U(I - 1) / U(I)
    [Ссылки могут видеть только зарегистрированные пользователи. ] "V("; I; ")="; Vn;
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    NEXT I
    Ответить с цитированием  
     

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

  4. #4  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    По массиву? Это те последние два задания - что на картинке внизу? Массив произвольный?
    Дружба-магия-радость!
    Ответить с цитированием  
     

  5. #5  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    У меня такое ощущение что на картинке с заданием чего-то не хватает?
    Ответить с цитированием  
     

  6. #6  
    Новичок
    Регистрация
    29.11.2010
    Сообщений
    22
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Абадябер
    По массиву? Это те последние два задания - что на картинке внизу? Массив произвольный?
    Да, это последние 2
    Ответить с цитированием  
     

  7. #7  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Я взял произвольный массив, и забил его случайными числами, ибо было непонятно, какой нужен. Чуть что - всегда можно заменить его на другой, лишь немного изменив программу. Сортировку сдул с похожей программы на C - вроде работает. После выполнения массив упорядочен по убыванию. Надеюсь, если потребуется вывести массив на экран, вы с этим справитесь ;)

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] Arr(1000) [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] I [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] Count [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR I = 1 TO 1000
        Arr(I) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100)
    NEXT
     
    Count = 0
    FOR I = 1 TO 1000
        IF Arr(I) = 0 THEN Count = Count + 1
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Всего"; Count; "нулей"
    [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] J, K, X [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    FOR I = 1 TO 1000
        K = I: X = Arr(I)
        FOR J = I + 1 TO 1000
            IF Arr(J) > X THEN
                K = J: X = Arr(J)
            [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        NEXT
        Arr(K) = Arr(I): Arr(I) = X
    NEXT
    Дружба-магия-радость!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  2. Ответов: 1
    Последнее сообщение: 25.05.2012, 06:45
  3. Ответов: 0
    Последнее сообщение: 10.01.2012, 19:18
  4. Ответов: 2
    Последнее сообщение: 26.05.2011, 17:44
  5. Ответов: 3
    Последнее сообщение: 29.11.2010, 02:08
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •