Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Вывести во вторую строку те элементы, значения которых НЕ принадлежат диапазону [a; b]


Вывести во вторую строку те элементы, значения которых НЕ принадлежат диапазону [a; b]
2010-02-21 13:38 Александр
Вывести во вторую строку те элементы, значения которых НЕ принадлежат диапазону [a; b] For i=1 to N if i< a or i> b then print X(i) Next i

Вычислить наибольшие значения Y(i) если B(i) задано массивом
2010-02-21 13:38 Александр
Вычислить наибольшие значения Y(i) если B(i) задано массивом Private Sub CommandButton1_Click() Rem "Задача 1.135" 'Объявляем массивы Dim B(1 To 10) As Single Dim Y(1 To 40) As Single Dim C(1 To 10) As Single 'Объявляем переменные Dim x As Single, j As Integer, i As Integer, Ymax As Single [...]

Вывести наименьшее из трех чисел
2010-02-21 13:39 Александр
Вывести наименьшее из трех чисел a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then min = a Else min = b If c < min Then min = c Label1.Caption = min

Выполнить перерасчет зарплаты, увеличив ее на 10%
2010-02-21 13:40 Александр
Выполнить перерасчет зарплаты, увеличив ее на 10% Имеются данные о зарплате работников фирмы из N человек. Выполнить перерасчет зарплаты, увеличив ее на 10%. Private Type qFormat qName As String s As Currency End Type Private Sub Command1_click() Dim i As Integer, n As Integer i = Val(InputBox("Введите кол-во сотрудников")) If i = 0 Then Exit Sub Dim b(1 To 1000) As qFormat For n = 1 [...]


В избранное