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

[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. СПАСИБО!!!!

 

[Mumrik]

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

 

[Guest_Andrew_*]

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

 

[Guest_Andrew_*]

мой маил nww2002@mail.ru

 

[Proger J.]

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 нужный тебе результат.