+ Ответить в теме
Страница 4 из 4 ПерваяПервая 1 2 3 4
Показано с 61 по 72 из 72

Тема: Q Basic

  1. #61
    Джедай $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет
    Регистрация
    27.08.2006
    Адрес
    Энер
    Сообщений
    3,503
    Поблагодарил(а)
    3,653
    Получено благодарностей: 711 (сообщений: 457).

    По умолчанию

    Цитата Сообщение от Dron247 Посмотреть сообщение
    нет, нет и нет! Язык давно мертв! Его юзают чтоб учить детей програмить и не засорять им моск всякими библиотеками!))))

    З.Ы. вот VB.Net я юзаю, и другим советую, из всех известных мне языков,, дает столко всяких возможностей что аж....*ля)))

    Оффтопик
    корабельный кот.

  2. #62
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Цитата Сообщение от $Eagle$ Посмотреть сообщение
    Оффтопик
    А что можешь сказать про С# (шарп)?

  3. #63
    Джедай $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет $Eagle$ Закрылки на взлет
    Регистрация
    27.08.2006
    Адрес
    Энер
    Сообщений
    3,503
    Поблагодарил(а)
    3,653
    Получено благодарностей: 711 (сообщений: 457).

    По умолчанию

    Цитата Сообщение от Paralax Посмотреть сообщение
    А что можешь сказать про С# (шарп)?

    Оффтопик
    корабельный кот.

  4. #64
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    По умолчанию

    Цитата Сообщение от $Eagle$ Посмотреть сообщение
    Оффтопик
    Тема про Basic, мне лично очень симпатичен C#, и еще хочу с Python разобраться, про умирания современных языков говорить пока рано, QB остался в 80х, прямой его наследник - VB, который жив только как VBScript и MSOffice embeded VB, и VB.Net который только развивается, фишек в нем больше чем в C#, хотя коечто уже атавизмы

    ЗЫ Все к чему, счетчики надо накрутить и пофлэймить.

  5. #65
    Новичок Грустный шут кто это? Аватар для Грустный шут
    Регистрация
    22.12.2008
    Адрес
    НТ
    Возраст
    39
    Сообщений
    33
    Поблагодарил(а)
    0
    Получено благодарностей: 6 (сообщений: 3).

    По умолчанию

    Эту программу ишо изучают? Там в принципе изучать то нечего.... У мну был один листок со списком комманд, а там я уже нарисовал прогу для решения квадратных уравнений, причем без багов и с проверкой, квадратные ли они... Эх... А жаль что у нас в школе толком информатики не было... Я на ней проги писал, чтобы прорешивать задачи из экзаменационных сборников, чтобы просто вводишь числа из книги по порядку, нажимаешь на "ОК" и она тебе выдает список решений или информирует, что их нет... Как давно это было... Лет семь назад, у меня как раз первый комп появился - 486DX, я деже винду не ставил... Потом стал по хелпу паскаль учить.. Так появились мои первые программы, способные к самостоятельному размножению... Как то даже грезил мыслью, соревноваться с кем-нить на кубасике, то есть чтобы несколько человек на спор писали одну прогу но с разными критериями 1) маименьший вес, 2) путевый интерфейс. Но блин уже тогда этот язык программирования настолько морально устарел, и не с кем было тягаться... Эх... Детство, детство...

  6. #66
    Кандидат в умники TaX1[ST] кто это? Аватар для TaX1[ST]
    Регистрация
    10.04.2006
    Адрес
    Village
    Сообщений
    463
    Поблагодарил(а)
    32
    Получено благодарностей: 134 (сообщений: 68).

    По умолчанию

    Помогите решить задачку вот такую


    1.Ввести матрицу А размером 5х5
    2.Образовать одномерный массив С из элементов четных строк матрицы А.
    3.Упорядочить элементы каждого столбца матрицы А в порядке возрастания.
    4. Вычислить сумму С1 из элементов массива С.
    5.Вывести на печать исходную матрицу А, массив С, матрицу А после сортировки и значение С1.

    ...Мастер своего дела...

  7. #67
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    TaX1[ST]

    Код:
    OPTION BASE 1
    DIM a(5, 5)
    DIM c(10)
    RANDOMIZE TIMER
    CLS
     
    'initialize matrix (используем генератор случайных целых с 1 до 100)
    FOR i = 1 TO 5
     FOR j = 1 TO 5
       a(i, j) = INT((RND * 100) + 1)
     NEXT j
    NEXT i
     
    'print matrix
    PRINT "Unsort matrix"
    FOR i = 1 TO 5
     FOR j = 1 TO 5
      PRINT a(i, j),
     NEXT j
     PRINT
    NEXT i
     
    'initialize dimension S
    k = 1
    FOR i = 2 TO 4 STEP 2
     FOR j = 1 TO 5
      s(k) = a(i, j)
      k = k + 1
     NEXT j
    NEXT i
     
    'print dimension S
    PRINT "Dimension S"
    FOR k = 1 TO 10: PRINT s(k); : NEXT: PRINT
     
    'sort matrix a (любимый пузырьковый метод)
    FOR Col = 1 TO 5
     FOR i = 1 TO 5
     Limit = 5
     DO
        Switch = FALSE
        FOR Row = 1 TO (Limit - 1)
          IF a(Col, Row) > a(Col, Row + 1) THEN
           SWAP a(Col, Row), a(Col, Row + 1)
           Switch = Row
          END IF
        NEXT Row
        Limit = Switch
      LOOP WHILE Switch
     NEXT i
    NEXT Col
     
    PRINT "Sort matrix"
    FOR i = 1 TO 5
     FOR j = 1 TO 5
      PRINT a(i, j),
     NEXT j
     PRINT
    NEXT i
     
    'calculate c1 and print
    c1 = 0
    FOR k = 1 TO 10
     c1 = c1 + s(k)
    NEXT
    PRINT "C1 = "; c1

  8. 1 пользователь сказал cпасибо Paralax за это полезное сообщение:

    TaX1[ST] (26.03.2009)

  9. #68
    Почти гений геннадий Набираю обороты геннадий Набираю обороты геннадий Набираю обороты геннадий Набираю обороты геннадий Набираю обороты геннадий Набираю обороты геннадий Набираю обороты Аватар для геннадий
    Регистрация
    02.08.2005
    Сообщений
    1,607
    Поблагодарил(а)
    95
    Получено благодарностей: 437 (сообщений: 283).

    По умолчанию

    О таких задачах уже спрошено многократно, см выше.
    http://forum.bratsk.org/showpost.php...7&postcount=25
    http://forum.bratsk.org/showpost.php...5&postcount=44

    Но твоя — особенная.

    Производные от последовательности случайных чисел - это круто! (Алиса в стране чудес: "Так, становитесь в строгом беспорядке!")

    Массив В будет состоять из ровно 100 элементов (доказывать надо?), и компа не требуется.
    Последний раз редактировалось геннадий; 13.04.2010 в 19:07.

  10. #69
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    По умолчанию

    Цитата Сообщение от LapA. Посмотреть сообщение
    Помогите с задачей...
    1)Сформировать матрицу А(10,10) случайными числами в диапазоне [-100,100]
    2)вычислить производные элементов главной диагонали матрицы А
    3)Вывести на печать элементы столбца матрицы, в которой расположено максимальное значение
    4)Найти кол-во элементов матрицы А, удовлетворяющих условию
    -100<=A(i,j)<=100
    и образовать из этих элементов массив В
    5)Отсортировать элементы каждой строки матрицы А по возрастанию
    6)Вывести на печать массивы А,В и матрицу А после сортировки
    Ничего полезного писать не буду. Спрошу лишь - Вы что, школьники/студенты начальных курсов совсем уже обленились, такие примитивные задачи, которые полюбой есть в методичке, которую полюбой вы должны взять в библиотеке, на форумы выкладывать? Скоро уже пойдут темы типа:" Я сижу в туалете, мне лень вытереть ж*пу, помогите!".

  11. 1 пользователь сказал cпасибо Dron247 за это полезное сообщение:

    Berkut_mk (23.03.2010)

  12. #70
    Юзер mishutka кто это?
    Регистрация
    04.03.2010
    Возраст
    32
    Сообщений
    93
    Поблагодарил(а)
    8
    Получено благодарностей: 6 (сообщений: 5).

    По умолчанию

    пожалуйста помогите решить задачи !!

    1)Ввести матрицу А размером 4х4
    2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
    3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
    4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
    5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.

    часть я уже сделал, а вот как дальше не знаю

    CLS
    REM 1
    DIM A(4, 4)
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    A(I, J) = INT(RND * 100)
    NEXT J
    NEXT I
    PRINT "MASSIV A"
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    PRINT A(I, J);
    NEXT J
    PRINT
    NEXT I
    Последний раз редактировалось mishutka; 11.05.2011 в 19:21.

  13. #71
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    По умолчанию

    Цитата Сообщение от mishutka Посмотреть сообщение
    пожалуйста помогите решить задачи !!

    1)Ввести матрицу А размером 4х4
    2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
    3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
    4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
    5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.

    часть я уже сделал, а вот как дальше не знаю

    CLS
    REM 1
    DIM A(4, 4)
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    A(I, J) = INT(RND * 100)
    NEXT J
    NEXT I
    PRINT "MASSIV A"
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    PRINT A(I, J);
    NEXT J
    PRINT
    NEXT I
    2)Также внутри вложенного цикла, только добавляется IF-THEN где в условии указывается что J > I насколько я помню - это достаточный признак положения над диагональю, и в результате выполнения этого условия должно выполниться S= S + A(I,J)

    3) Создаешь одномерный массив А2 с числом элементов равным 16(4х4 ведь), 16 на случай если все больше В
    тот-же самый вложенный цикл, только в условии сравнивай А(i,j) c B и если верно то А2(N) = A(I,J)

    дальше лень пока, упорядочить столбец - то-же что и строки, токма индексы поменять местами, а строта упорядочивается как одномерник, а А2 - это походу и есть Y

  14. #72
    Юзер mishutka кто это?
    Регистрация
    04.03.2010
    Возраст
    32
    Сообщений
    93
    Поблагодарил(а)
    8
    Получено благодарностей: 6 (сообщений: 5).

    По умолчанию

    Цитата Сообщение от mishutka Посмотреть сообщение
    пожалуйста помогите решить задачи !!

    1)Ввести матрицу А размером 4х4
    2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
    3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
    4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
    5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.

    часть я уже сделал, а вот как дальше не знаю

    CLS
    REM 1
    DIM A(4, 4)
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    A(I, J) = INT(RND * 100)
    NEXT J
    NEXT I
    PRINT "MASSIV A"
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    PRINT A(I, J);
    NEXT J
    PRINT
    NEXT I
    после продолжительной и бурной мозговой деятельности мой мозг выдал следующее

    REM 2
    S = 0 FOR I = 1 TO 4
    FOR J = 1 TO 4
    IF J>I THEN S = S + A(I, J)
    NEXT J
    NEXT I

    наставьте на путь истины, как делать 3 пункт??
    Последний раз редактировалось mishutka; 13.05.2011 в 16:29.

+ Ответить в теме
Страница 4 из 4 ПерваяПервая 1 2 3 4

Информация о теме

Пользователи, просматривающие эту тему

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

     

Похожие темы

  1. Классика эротического кино
    от Lkgios в разделе Эротика
    Ответов: 15
    Последнее сообщение: 24.11.2015, 18:06

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.