QBasic помогите пожайлуста

Тема в разделе "Другие", создана пользователем Guest_, 15 дек 2004.

Статус темы:
Закрыта.
  1. Guest_

    Guest_ Гость

    Мне задали 2 задачи на дом, но я не могу их решить! Я просто тему плохо понял
    1.Составить программу чтобы выводила
    8 8 8 8
    6 6 6
    4 4
    2


    2.Написать программу которая по введенному номеру единицы измерения
    (1-килограмм,2 - милиграмм, 3-грамм,4-тонна,5-центнер) и массе М выдавала бы соответствующее значение массы в граммах.


    ВОТ И ВСЕ!!

    p.s. Все на QBasic
    p.p.s. СПАСИБО!!!!
     
  2. Mumrik

    Mumrik Гость

    В первом вопросе все делается простейшими циклами!
     
  3. Guest_Andrew_*

    Guest_Andrew_* Гость

    Помогите с задачей по Qbasic : необходимо упорядочить строки по возрастанию max элементов в них. Написать функцию нахождения max элемента в столбце и процедуру перестановки столбцов
     
  4. Guest_Andrew_*

    Guest_Andrew_* Гость

    мой маил nww2002@mail.ru
     
  5. Proger J.

    Proger J. Lotus team
    Lotus team

    Регистрация:
    15 мар 2006
    Сообщения:
    48
    Симпатии:
    0
    Dim s as string
    Dim ms(1 to 4) as string

    For i=1 To 4
    s=""
    For j=1 To 5-i
    Select Case i
    Case 1:s=s+" 8"
    Case 2:s=s+" 6"
    Case 3:s=s+" 4"
    Case 4:s=s+" 2"
    End Select
    Next
    ms(i)=s
    Next

    В массиве ms нужный тебе результат.
     
Загрузка...
Похожие Темы - QBasic помогите пожайлуста
  1. zolotco
    Ответов:
    0
    Просмотров:
    986
  2. talon
    Ответов:
    0
    Просмотров:
    1.285
  3. Irisha07
    Ответов:
    0
    Просмотров:
    1.298
  4. artem4486
    Ответов:
    0
    Просмотров:
    17
  5. limbra
    Ответов:
    3
    Просмотров:
    68
Статус темы:
Закрыта.

Поделиться этой страницей