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

Тема: Помогите пожалуйста решить задачи по qbasik))) очень прошу)))

  1. #1 Помогите пожалуйста решить задачи по qbasik))) очень прошу))) 
    Новичок
    Регистрация
    21.05.2012
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    1. В квадратной матрице найти сумму элементов по столбцам. Определить max и min суммы. соответствующие столбцы поменять местами.
    2. На координатной плоскости заданы 100 точек. Все они соединены отрезками друг с другом. Найти наибольший отрезок, указать координаты точек.
    3. В предложении найти слово самой короткой длины и распечатать его обратном порядке.
    Если можно задачи с пояснениями...) Заранее благодарю!)
    Ответить с цитированием  
     

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

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Первое вроде где-то уже было сделано. Надо поискать.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код qbasic:
    INPUT "Введите n", n 'Вводим ширину квадрата
    DIM a(n, n)              'Объявляем массив
    DIM summ(n)
    FOR i = 1 TO n
    summ(i) = 1
    FOR j = 1 TO n        
    a(i, j) = RND * 100  'Заполняем массив случаными числами
    summ(i) = summ(i) + a(i, j) 'Вычисляем сумму
    NEXT j
    NEXT i
    mns = 1
    mxs = 1
    FOR i = 2 TO n
    IF summ(i) > summ(mxs) THEN mxs = i 'Ищим максимальную сумму
    NEXT i
    FOR i = 2 TO n
    IF summ(i) < summ(mns) THEN mns = i 'Ищим минимальную сумму
    NEXT i
    FOR i = 1 TO n     'Меняем столбцы
    temp = a(mxs, i)
    a(mxs, i) = a(mns, i)
    a(mns, i) = temp
    NEXT i
    Я правда не разобрался с выводом чисел в виде таблицы - плохо бейсик знаю, но, может быть, это сделает кто-то другой, кто это знает.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    margaret (21.05.2012)

  6. #5  
    Новичок
    Регистрация
    21.05.2012
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    А вторую не подскажите?
    Последний раз редактировалось margaret; 21.05.2012 в 23:44.
    Ответить с цитированием  
     

  7. #6  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Щас сделаю.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  8. #7  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код qbasic:
    RANDOMIZE TIMER
    SCREEN 1
    LINE (0, 100)-(320, 100), 1
    LINE (160, 0)-(160, 200), 1
    DIM x(100)
    DIM y(100)
    FOR i = 1 TO 100
    x(i) = RND * 320
    y(i) = RND * 200
    PSET (x(i), y(i))
    NEXT i
    m1 = 1
    m2 = 1
     
    FOR i = 1 TO 100
    FOR j = i TO 100
     
    IF ABS(SQR(x(i) ^ 2 + y(i) ^ 2) - SQR(x(j) ^ 2 + y(j) ^ 2)) > ABS(SQR(x(m1) ^ 2 + y(m1) ^ 2) - SQR(x(m2) ^ 2 + y(m2) ^ 2)) THEN
    m1 = i
    m2 = j
    END IF
    NEXT j
    NEXT i
     
    CIRCLE (x(m1), y(m1)), 3, 1
    CIRCLE (x(m2), y(m2)), 3, 1
    LINE (x(m1), y(m1))-(x(m2), y(m2)), 2
    WHILE INKEY$ = ""
    WEND
    PRINT "A("; x(m1) - 160; ","; y(m1) - 100; ")"
    PRINT "B("; x(m2) - 160; ","; y(m2) - 100; ")"
    Вторая
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

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

Похожие темы

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