Задачи по Qbasic

Тема в разделе "Visual Basic", создана пользователем Wilmor, 3 мар 2008.

  1. Wilmor

    Wilmor Гость

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

    MrSmit Гость

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

    Например 3:
    Код (Text):
    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
    примерно так :) остальное вы уж как-нибудь сами напишите ;-)
     
Загрузка...

Поделиться этой страницей