![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
heatray |
![]()
Сообщение
#1
|
Школьник ![]() Группа: Продвинутые Сообщений: 11 Регистрация: 25.10.2009 Город: 12 Учебное заведение: ывапр ![]() |
У нас были задания по информатике по Visual Basic 6.0 я их выполнил но нам дали еще-сделать алгоритмы к этим заданиям. там както квадратики обьявление переменных там ромбики еще чтото -условия вроде...помогите подалуйста кто знает что это.. ну какбы я понимаю это ход решения но как его реализовать...
Вот код программы ___________________________________________________________________ Dim A(1 To 200) As Long Private Sub Form_Load() MSFlexGrid1.Rows = 201 MSFlexGrid1.Cols = 2 End Sub Private Sub Command2_Click() Randomize Timer Dim i As Long For i = 1 To 200 A(i) = Rnd * 10000 MSFlexGrid1.TextMatrix(i, 0) = A(i) MSFlexGrid1.TextMatrix(i, 1) = "" Next i End Sub Private Sub Command1_Click() Dim i As Long, n As Long With MSFlexGrid1 For i = 2 To 199 If .TextMatrix(i, 0) > .TextMatrix(i - 1, 0) And .TextMatrix(i, 0) > .TextMatrix(i + 1, 0) Then n = n + 1 .TextMatrix(i, 1) = "V" End If Next End With Label1.Caption = "больше своих ''соседей'' " & n & " чисел" End Sub _____________________________________________________________ одна из элементарных программ вывести 200 чисел и определить сколько из них больше своих соседей -т.е следующего и предыдущего числа |
![]() ![]() |
kaa |
![]()
Сообщение
#2
|
Аспирант ![]() ![]() ![]() Группа: Активисты Сообщений: 422 Регистрация: 7.1.2009 Город: Украина Киев Вы: школьник ![]() |
в смысле??
показать как эту программу можно написать в графическом виде(с помощю блок-схем)??? |
Pavlov Andrey |
![]()
Сообщение
#3
|
Школьник ![]() Группа: Продвинутые Сообщений: 20 Регистрация: 7.5.2009 Город: Москва ![]() |
Ну...
Рисовать (хоть немного) умеешь?? Вход таких то данных > ...> Какие то действия> Выходные данные. А Треугольнички нужны, что бы учителям понравиться)))) |
heatray |
![]()
Сообщение
#4
|
Школьник ![]() Группа: Продвинутые Сообщений: 11 Регистрация: 25.10.2009 Город: 12 Учебное заведение: ывапр ![]() |
нуа где писать что? квадратик треугольник...там же чтото для чегото ..я незнаю как...дайте пожалуйста или приме р или покажите чтото...ато неумею(
там както надо делать помоему в ромбике-там условие-если джа то продолжение както -нет еще както...( |
Julia |
![]()
Сообщение
#5
|
Ассистент ![]() ![]() ![]() ![]() Группа: Julia Сообщений: 593 Регистрация: 23.2.2007 Город: Улан-Удэ Учебное заведение: БГУ Вы: преподаватель ![]() |
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 25.5.2025, 23:47 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru