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

Тема: Написать в turbo basic)

  1. #1 Написать в turbo basic) 
    Новичок
    Регистрация
    21.05.2018
    Сообщений
    6
    Сказал(а) спасибо
    1
    Поблагодарили 2 раз(а) в 2 сообщениях
    Задана вещественная матрица A(nxn). Построить вектор L={L,L2...Ln} по правилу: если i-я строка матрицы А образует неубывающую последовательность, то Li присвоить значение 1,в противном случае Li присвоить 0.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,822
    Сказал(а) спасибо
    1,808
    Поблагодарили 933 раз(а) в 795 сообщениях
    Записей в блоге
    1
    На Turbo Basic 1.1:

    Basic Code:
    1. OPTION BASE 1
    2. DEFINT A-Z
    3. SCREEN 0
    4. CLS
    5.  
    6. n = 4        '  Stolbcov
    7. m = n        '  Strok
    8. RANDOMIZE TIMER
    9. DIM A#(n, m), L(m)
    10.  
    11. FOR iy = 1 TO m
    12.    FOR ix = 1 TO n
    13.       A#(ix, iy) = RND * 10
    14.    NEXT
    15. NEXT
    16.  
    17. PRINT "A() ="
    18. FOR iy = 1 TO m
    19.    FOR ix = 1 TO n
    20.       PRINT USING "##.##"; A#(ix, iy);
    21.    NEXT: PRINT
    22. NEXT: PRINT
    23.  
    24. FOR i = 1 TO m
    25.    Neub = 1
    26.    FOR ix = 1 TO n - 1
    27.       IF A#(ix + 1, i) < A#(ix, i) THEN Neub = 0: EXIT FOR
    28.    NEXT
    29.    L(i) = Neub
    30. NEXT
    31.  
    32. PRINT "L() ="
    33. FOR i = 1 TO m
    34.    PRINT L(i);
    35. NEXT
    Последний раз редактировалось >Quiet Snow<; 23.05.2018 в 06:34.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. 2 пользователя(ей) сказали cпасибо:

    Free Admin (23.05.2018), Mrpashaaa (29.05.2018)

  4. #3  
    Новичок
    Регистрация
    21.05.2018
    Сообщений
    6
    Сказал(а) спасибо
    1
    Поблагодарили 2 раз(а) в 2 сообщениях
    Спасибо большое за помощь)
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 4
    Последнее сообщение: 15.02.2017, 09:04
  2. Нужно написать програмный код на Visual Basic
    от sevych в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 18.01.2017, 20:32
  3. Написать программу на Visual Basic 6.0
    от Ekaterina102 в разделе Visual Basic
    Ответов: 2
    Последнее сообщение: 08.04.2016, 11:16
  4. Две задачи в TC(Turbo C или же Turbo C++)
    от Bewusteloos в разделе C/C++
    Ответов: 1
    Последнее сообщение: 11.02.2013, 23:59
  5. HASM - ассемблер на Turbo Basic
    от Konstantin Shcherba в разделе Assembler
    Ответов: 1
    Последнее сообщение: 13.11.2011, 13:24
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •