1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Задачи по Qbasic

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

  1. Wilmor

    Wilmor Гость

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

    MrSmit Гость

    Репутация:
    0
    для 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
    примерно так :) остальное вы уж как-нибудь сами напишите ;-)
     
Загрузка...

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