Форум программистов > Задачи по Qbasic

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Задачи по Qbasic

Форум программистов > Системное программирование > Visual Basic

Wilmor

3:03:2008, 13:01

Задачи по QBasic

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

MrSmit

18:03:2008, 04:42

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

примерно так

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

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.