Задачи по Qbasic

  • Автор темы Wilmor
  • Дата начала
W

Wilmor

#1
Задачи по QBasic :)
1)В воображаемом квадрате заданного размера построить совокупность n*n сопрекасающихся с окружностью окрашеной в случайный цвет.
2)Дан массив целых чисел x(50) и число k, вычеслить сумму элементов массива, превосходящих максимальный элемент среди x(1) ..... x(k) ввести массив, найдите элементы результат.
3)В исходной строке a$ определить и вывесте все символы встречающиеся не мение n-раз.
 
M

MrSmit

#2
для 2 и 3 используйте циклы.

Например 3:
Код:
Dim i As Integer, j As Integer
Dim sMem As String
Dim b As Boolean
For i = 0 To Len(a$)
b = False
For j = 0 To Len(sMem)
If Mid$(a$, i, 1) = Mid$(sMem, j, 1) Then
'такая буква в памяти есть
b = True
Exit For
End If
Next j
If Not b Then
'такой буквы нет, добавляем в память
sMem = sMem & Mid$(a$, i, 1)
End If
Next i
примерно так :) остальное вы уж как-нибудь сами напишите ;-)