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

  • Автор темы Guest_
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest_

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


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


ВОТ И ВСЕ!!

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

Mumrik

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

Guest_Andrew_*

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

Proger J.

Lotus team
15.03.2006
48
0
#5
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 нужный тебе результат.
 
Статус
Закрыто для дальнейших ответов.