Задачи по Qbasic

[Wilmor]

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

 

[MrSmit]

для 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

примерно так остальное вы уж как-нибудь сами напишите ;-)