Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
 Задачи по Qbasic, Help |
|
|
 3:03:2008, 13:01
 
|
|
Новенький  Группа: Программист Сообщений: 1 Регистрация: 29:05:2006 Пользователь №: 4 473 Специализация: Visual Basic, Visual C++, ASPLinux. Репутация:  0 
 |
Задачи по QBasic
 1)В воображаемом квадрате заданного размера построить совокупность n*n сопрекасающихся с окружностью окрашеной в случайный цвет. 2)Дан массив целых чисел x(50) и число k, вычеслить сумму элементов массива, превосходящих максимальный элемент среди x(1) ..... x(k) ввести массив, найдите элементы результат. 3)В исходной строке a$ определить и вывесте все символы встречающиеся не мение n-раз. |
 |
Сообщение
#1
|
 |
|
|
18:03:2008, 04:42
|
|
Новенький Группа: Программист Сообщений: 7 Регистрация: 18:03:2008 Пользователь №: 15 953 Специализация: programming Репутация: 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 примерно так  остальное вы уж как-нибудь сами напишите ;-)
|
|
|
Сообщение
#2
|
|
|
Текстовая версия | Сейчас: 17:05:2008 - 08:16 |
