По расположению, количество, минимум 2 страница

, где x,y – ввести === Ответ 2

1) Select Case x Case Is x< y Z = Atn(x / y) Case x>=y Z = Sin(x) /Cos(y) End Select	2) If x > y Then Z = Atn(x / y) Else Z = Sin(x) /Cos(y) End If	3) Select Case x Case Is < y Z = Atan(x)/ y Case Is >=y Z = Sin(x) /Cos(y) End Select
4) If x <= y Then Z =Atan(x /y) Else Z = Sin(x) / Cos(y) End If	5) If x > y Then Z = Atan(x)/ y Else Z = Sin(x) /Cos(y) End If

Определить правильный вариант объявления переменных, вычисляющие значения выражений: Ввести x,y - любые, a = , b = Arctg(x-y), C = (a + b) - Ln(x+y). - Dim x As Byte, y As Byte, a As Single, b As Single, c As Single

Определить правильный вариант объявления переменных, вычисляющие значения выражений: Ввести x,y - любые, b = Arctg(x-y), C = (x + b) - Ln(x+y). -- Dim x As Byte, y As Byte, b As Single, c As Single

Определить правильный вариант объявления переменных, вычисляющие значения выражений: Ввести x,y - любые, b = Arctg(x-y), C = (x + b) - Ln(x+y). - Dim x As Single, y As Single, b As Single, c As Single

Определить правильный вариант объявления переменных, вычисляющие значения выражений: Ввести x,y - целые положительные, a = , b = (a - y)². - Dim x As Byte, y As Byte, b As Single, a As Single

Определить правильный вариант объявления переменных, вычисляющие значения выражений:

x = 9, y = 7.56, a = , b = (a - y)². - Dim x As Byte, y As Single, b As Single, a As Single

Определить тип переменной, имеющей в программе значение: а = “ тема ”- String

Определить тип переменной, имеющей в программе значение: z = 2566 - Integer

Определить тип переменной, имеющей в программе значение: b = 25--- Byte

Определить тип переменной, имеющей в программе значение: b = 25.235614-- Single

Определить тип переменной, имеющей в программе значение: x = False--- Boolean

Определить правильный вариант блока программы, вычисляющей значение выражения:

, где x - ввести === ОТВЕТ 1

1) C=0 For k =1 To 10 C = C+(x^2 +5) / Sqr(x - k) Next k	2) C=0 For k =1 To 10 k=k+1 C = C+(x^2 +5) / (x-k) Next k	3) C=0 For k =1 To 10 C = (x^2 +5) / Sqr(x-k) Next k
4) C=0 For k =10 To 1 Step 1 C = C+x^2 +5 / Sqr(x) - k Next k	5) C=1 For k =1 To 10 C = C+x^2 +5 / Sqr(x - k) Next

Определить правильный вариант блока программы, вычисляющей произведения восьми значений функции y = x² -x +5, где x - ввести === ОВТЕТ 2

1) M=0 For k =1 To 8 M = (x^2 - x +5) Next k	2) M=1 For k =1 To 8 M = M * (x^2 - x +5) Next k	3) M=1 For k =1 To 8 M = M * (x^2 - x +5) k =k+1 Next k
4) For k =1 To 8 M=1 M = M * (x^2 - x +5) Next k	4) M=0 For k =1 To 8 M = M * (x^2 - x +5) Next M

Определить правильный вариант блока программы, вычисляющей сумму функции y = Ln(x +x²), пока значение суммы не станет больше 20. Где x - ввести. === ОТВЕТ 3

1) Р=0 While P > 20 P = P+ Log(x + x^2) Wend	2) Р=1 While P <= 20 P = P+ Log(x) + x^2 Wend	3) Р=0 While P <= 20 P = P+ Log(x + x^2) Wend
4) Р=1 While P = P+ Ln(x + x^2) Wend P > 20	5) Р=0 While P <= 20 P = Ln(x + x^2) Wend

Определить правильный вариант блока программы, вычисляющей произведение функции y = e^x - 5x,

пока значение произведения меньше 10. Где x - ввести. === ОТВЕТ 4

1) Z=1 Do Z = Z* Exp(x) -5x Loop Until Z <10	2) Z=0 Do Z = Z* Exp(x) - 5x Loop Until Z >=10	3) Z=1 Do Z = Z* Exp^(x) - 5*x Loop Until Z >=10
4) Z=1 Do Z = Z* (Exp(x) - 5*x) Loop Until Z >=10	5) Z=0 Do Z = Z* Exp^(x) - 5*x Loop Until Z <=10

Определить правильный вариант блока программы, вычисляющей сумму функции y = e^x - 5x, где x - изменяется от 3 до 12 с шагом 2. Значение суммы выдать в поле ввода

==== ОТВЕТ 5

1) S=1: x = 3 Do S = S + Exp(x) -5x x = x + 2 Loop Until x <12 ss1.Text = Str(S)	2) S=0 While x <12 S = S + Exp(x) -5x x = x + 2 Wend ss1.Text = S	3) S=0: x = 3 For x = 3 To 12 Step 2 S = S + Exp(x) -5*x x = x + 2 Wend Str(S) = ss1.Text
4) S=0: x = 3 While x <12 S = S + Exp(x) -5*x Wend ss1.Text =Val(S)	5) S=0:x = 3 Do S = S + Exp(x) -5*x x = x + 2 Loop Until x >=12 ss1.Text = Str(S)

Определить правильный вариант блока программы, вычисляющей произведение функции y = Cos(x) - 5, где x - изменяется от 0 до 8. Значение произведения выдать с помощью диалогового окна.== ОТВЕТ 1

1) P=1:x = 0 While x <=8 P = P *(Cos(x) - 5) x = x + 1 Wend MsgBox “P = “ & P	2) P=1:x = 0 Do P = P * Cos(x) - 5 x = x + 1 Loop Until x <=8 InputBox (“P = “ & P)	3) P=0 For x = 0 To 8 P = P * Cos(x) - 5 x = x + 1 Next x pp1.Text = Str(P)
4) P=1:x = 0 Do x <= 8 P = P * Cos(x) - 5 Loop Until MsgBox (“P = “ P)	5) P=0:x = 0 While x >= 8 P = P * Cos(x) - 5 Wend MsgBox “P = “ & P

Определить правильный вариант блока программы, вычисляющей для каждого x изменяющегося

от x1 до x2 с шагом h, сумму 5 значений функции y = Ln(x/k).

Полученные значения сумм вывести на форму.== ОТВЕТ 1

1) x = x1 While x <= x2 s = 0 For k = 1 To 5 s = s + Log(x/k) Next k x = x + h Print s Wend	2) While x <= x2 s = 0: x = x1 For k = 1 To 5 s = s + Log(x/k) Next k x = x + h Wend Print s	3) x = x1: s = 0 While x <= x2 For k = 1 To 5 s = s + Log(x/k) Next k x = x + h Wend Print s
4) s = 0 For k = 1 To 5 x = x1 While x <= x2 s = s + Log(x/k) Next k x = x + h Wend aa1.text = s	5) x = x1 While x <= x2 For k = 1 To 5 s = 0 s = s + Log(x/k) Next k Print s x = x + h Wend

Определить правильный вариант блока программы, вычисляющей для каждого k = 1, 2, ... 5 сумму значений функции y = Cos(x - k),

где x изменяется от x1 до x2 с шагом h. Полученные значения сумм вывести в поле аа1 на форме.

==== ОТВЕТ 2

1) x = x1 While x <= x2 s = 0 For k = 1 To 5 s = s + Cos(x - k) Next k x = x + h n = n & Str(s) & “ “ Wend:aa1.text = n	2) k = 1 While k <= 5 s = 0 For x = x1 To x2 Step h s = s + Cos(x - k) Next x k = k + 1 n = n & Str(s) & “ “ Wend:aa1.Text = n	3) x = x1: s = 0 While x <= x2 For k = 1 To 5 s = s + Cos(x - k) Next k x = x + h n = n & Str(s) & “ “ Wend:aa1.Text = Str(n)
4) For k = 1 To 5 x = x1: s = 0 While x >= x2 s = s + Cos(x - k) x = x + 1 Wend n = n & Str(s) & “ “ Next k: aa1.text = n	5) For k = 1 To 5 x = x1:s = 0 While x <= x2 s = s + Cos(x - k) x = x + h aa1.Text = Str(s)

Определить правильный вариант блока программы, вычисляющей сумму функции y = e^x - 5x,

где x - изменяется от 3 до 12 с шагом 2. Значение суммы выдать на форму== ОТВЕТ 3

1) S=1: x = 3 Do S = S + Exp(x) -5x x = x + 2 Loop Until x <12 Print “S = “ & S	2) S=0: x = 3 While x <12 S = S + Exp(x) -5x x = x + 2 Wend ss1.Text = S	3) S=0 For x = 3 To 12 Step 2 S = S + Exp(x) -5*x Next x Print “S = “ & S
4) S=0: x = 3 While x <12 S = S + Exp(x) -5*x Wend ss1.Text =Val(S)	5) S=0:x = 3 Do x >=12 S = S + Exp^(x) -5*x Loop Until Print S

Определить правильный вариант блока программы, вычисляющей произведение функции y = (x - 5)²,

где x - изменяется от 2 до 10. Значение произведения выдать с помощью диалогового окна.== ОВТЕТ 2

1) P=1:x = 2 While x <=10 P = P * (x -5)^2:x = x + 1 Wend InputBox (“P = “ & P)	2) P=1:x = 2 Do P = P * (x -5)^2:x = x + 1 Loop Until x >10 MsgBox “P = “ & P	3) P=1 For x = 2 To 10 P = P * (x -5)^2:x = x + 1 Next x pp1.Text = Str(P)
4) P=1:x = 2 Do x <=10 P = P * (x -5)^2 Loop Until MsgBox (“P = “ & P)	5) P=0:x = 2 While x >=10 P = P * (x -5)^2 x = x + 2 Wend

Определить правильный вариант блока программы, вычисляющей сумму функции y = e^x - 5x,

где x - изменяется от 3 до 12 с шагом 2. Значение суммы выдать в поле ввода=== ОТВЕТ 3

1) S=1: x = 3 Do S = S + Exp(x) -5x x = x + 2 Loop Until x <12 ss1.Text = Str(S)	2) S=0: x = 3 While x <12 S = S + (Exp(x) -5x) Wend ss1.Text = S	3) S=0:x = 3 Do S = S + Exp(x) -5*x x = x + 2 Loop Until x >=12 ss1.Text = Str(S)
4) S=1: x = 3 While x <12 S = S + Exp(x) -5*x Wend ss1.Text =Val(S)	5) S=0: x = 3 For x = 3 To 12 Step 2 S = S + Exp(x) -5*x x = x + 2 Wend Str(S) = ss1.Text

Определить правильный вариант блока программы, вычисляющей произведение функции y = e^x - 5x,

пока значение произведения меньше 10. Где x - ввести. === ОВТЕТ 1

1) Z=1 Do Z = Z* (Exp(x) - 5*x) Loop Until Z >=10	2) Z=0 Do Z = Z* Exp(x) - 5x Loop Until Z >=10	3) Z=1 Do Z = Z* Exp^(x) - 5*x Loop Until Z >=10
4) Z=1 Do Z = Z* (Exp(x) -5x) Loop Until Z <10	5) Z=0 Do Z = Z* Exp^(x) - 5*x Loop Until Z <=10

Определить правильный вариант блока программы, вычисляющей произведения восьми значений функции y = x² -x +5,

где x - ввести === ОТВЕТ 4

1) M=0 For k =1 To 8 M = M + (x^2 - x +5) Next k	2) For k =1 To 8 M=1 M = M * (x^2 - x +5) Next k	3) M=1 For k =1 To 8 M = M * (x^2 - x +5) k =k+1 Next k
4) M=1 For k =1 To 8 M = M * (x^2 - x +5) Next k	5) M=0 For k =1 To 8 M = M * (x^2 - x +5) Next M

Определить правильный вариант блока программы, вычисляющей значение выражения:

, где x - ввести === ОВТЕТ 2

1) C=0 For k =1 To 10 k=k+1: C = (x^3 +5) / k+2 Next k	2) C=0 For k =1 To 10 C = C+(x^3 +5) /(k+2) Next k	3) C=1 For k =1 To 10 C = C+(x^3 +5) / k+2 Next k
4) C=0 For k =10 To 1 Step 1 C = (x^3 +5) / (k+2) Next k	5) C=1 For k =1 Then 10 C = C+(x^3 +5) / (k+2)

Определить правильный вариант блока программы, вычисляющей произведение функции y = Sin(x - 5),

где x - изменяется от 2 до 10. Значение произведения выдать с помощью диалогового окна.=== ОТВЕТ 3

1) P=1 For x = 2 To 10 P = P * Sin(x -5):x = x + 1 Next x pp1.Text = Str(P)	2) P=0:x = 2 Do P = P * Sin(x -5):x = x + 1 Loop Until x <=10 InputBox (“P = “ & P)	3) P=1:x = 2 While x <=10 P = P * Sin(x -5):x = x + 1 Wend MsgBox “P = “ & P
4) P=1:x = 2 Do P = P * Sin(x -5) Loop Until x >=10 Print “P = “, P	5) P=0:x = 2 While x >=10 P = P * Sin(x -5) Wend MsgBox “P = “ P

Выбрать оператор соответствующий полной логической структуре.-- If... Then... Else... End If

Выбрать оператор соответствующий не полной логической структуре.-- If... Then... End If

Выбрать оператор соответствующий циклической структуре с постусловием.-- Do... Loop Until

Выбрать оператор, который используется для проверки большого количества условий- Select Case... End Select

Выбрать оператор соответствующий циклической структуре с известным числом повторений.- For... Next

Выбрать оператор, осуществляющий переход к нужному оператору программы.- GO TO метка

Выбрать правильный вариант оператора присвоения значения переменной a.== a = b + 5

Выбрать правильный вариант вывода числового результата переменной P в поле формы.== Text1. Text = Str (P)

Выбрать правильный вариант вывода числового результата переменной P с помощью диалогового окна.= MsgBox “P =” & P

Выбрать правильный вариант вывода числового результата переменной P на форму. = Print “P =” & P

Функция Mid( строка, начало, количество ) используется:= для выделения из строки определенного количества символов

Функция InStr ( начало, строка, подстрока ) используется:= для определения позиции подстроки в строке

Функция Len ( строка ) используется:= для определения длины строки

Функция Left ( строка, количество ) используется:= для выделения из строки определенного количества символов слева

Функция Right ( строка, количество ) используется:= для выделения из строки определенного количества символов справа

Выбрать тип значения переменной а = Len (строка) - Integer

Определить правильный формат строковой функции, определяющей позицию подстроки в строке с заданной позиции.= Instr (начало, строка, подстрока)
Определить правильный формат строковой функции, заменяющей в строке определенное количество символов с заданной позиции.= Mid (строка, начало, количество) = “строка”

Выбрать тип значения переменной а = Mid (строка, начало, количество)= String

Выбрать тип значения переменной а = Instr (начало, строка, подстрока) = Integer

Для определения позиции подстроки в строке используется строковая функция: = Instr (начало, строка, подстрока)
Для выделения из строки определенного количества символов слева используется строковая функция: = Left (строка, количество)

Для выделения из строки определенного количества символов, начиная с определенного символа, используется строковая функция: = Mid (строка, начало, количество)

Для выделения из строки определенного количества символов справа используется строковая функция: = Right (строка, количество)

Выбрать тип значения переменной а = Left (строка, количество) = String

Выбрать тип значения переменной а = Right (строка, количество) = String

Определить правильный формат строковой функции, вырезающей в строке определенное количество символов слева.= Left (строка, количество)

Определить правильный формат строковой функции, вырезающей в строке определенное количество символов справа.= Right (строка, количество)

Определить правильный формат строковой функции, вырезающей в строке определенное количество символов с заданной позиции.=Mid (начало, строка, количество)

Какие символы из перечисленных можно использовать для объединения строковых переменных: а) + б) @ в) # г) & д) $ === а, г

Выбрать символ, который используется для объединения строковых переменных. --- &

Выбрать символ, который используется для объединения строковых переменных. +

Какое значение будет иметь переменная Z = m + n, где m = «знание», n = «сила»?=Z = «знание сила»

Какое значение будет иметь переменная Z = n & m, где m = «знание», n = «сила»?= Z = «сила знание»

Какую из перечисленных строковых функций можно использовать для организации неопределенного цикла?= Instr (начало, строка, подстрока)

Определить правильный вариант применения строковой функции для нахождения позиции n подстроки a = «грамм» в строке b = «язык программирования».= n = Instr(1, b, a)

Определить правильный вариант применения строковой функции вырезающей из строки b = «успевающий студент» значение переменной a = «студент».= с = Mid(b, 12, 7)

Определить правильный вариант применения строковой функции, заменяющей в строке b = «угроза» первые два символа на пробелы.= Mid(b, 1, 2) = “ “

Выбрать правильный вариант значения переменной k, где k = Len(b), а значение b = «интегрированная среда»--- k = 20

Определить правильный вариант блока программы, определяющий количество букв «н» в введенном слове d. Результат выдать на форму.

== Ответ 4

1) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “н” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =”, s	2) For i = 1 To Len(d) s = 0 If Mid(d, i, 1)= “н” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =”, s	3) s = 0: x = Instr(1, d, “ “) While x <> 0 b = Mid(d, k, x-k) If Instr(1, b, “н”) <> 0 Then s = s + 1 End If k = k + x x = Instr(k, d, “н”) Wend
4) k = Len(d): s = 0 For i = 1 To k If Mid(d, i, 1)= “н” Then s = s + 1 End If Next i Print “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “н” Then s = s + 1 End If;Next i MsgBox “Количество =” & s

Определить правильный вариант блока программы, определяющий количество сочетаний «омо» в введенном предложении d. Результат выдать с помощью диалогового окна.=== ОТВЕТ 2

1) s = 0 For i = 1 To Len(d) If Mid(d, i,3)= “омо” Then s = s + Mid(d, i,3) End If Next i MsgBox “Количество =” & S	2) s = 0: x = 1 While x <= Len(d) If Mid(d, x, 3) = “омо” Then s = s + 1 End If x = x + 1 Wend MsgBox “Количество =” & s	3) For i = 1 To Len(d) s = 0 If Mid(d, i, 3)= “омо” Then s = s + 1 MsgBox “Количество =” & s Next i
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “омо” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1) = “омо” Then s = s + 1 Next i End If Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d.

Результат выдать в поле ввода.== ОВТЕТ 1

1) k = 1:s = 0 x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	2) x = Instr(k, d, “ “) While x <> 0 s = 0: k = 1 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	3) k = 1: x = Instr(k, d, “ “) While x <> 0 s = s + k k = 1 + x x = Instr(k, d, “ “) Wend Print “Количество =” & s
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “ ” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) For i = 1 To Len(d) s = 0 If Instr(i, d, “ “) <> 0 Then s = s + 1 End If Next i ss1.Text = Str(s)

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d,

начинающихся с буквы «ж». Результат выдать в поле ввода.=== ОТВЕТ 3

1) k= 1: x = Instr(k, d, “ “) Do s = 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if x = Instr(k, d, “ “) Loop Until x = 0 ss1.Text = s	2) k = 1: s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend Print s	3) k = 1:s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend ss1.Text = Str(s)
4) Do s = 0 If Mid(d,k,1) = “ж” Then s = s + 1 k = k + x x = Instr(k, d, “ “) Loop Until x <> 0 ss1.Text = s	5) x = Instr(k, d, “ “) If Mid(d,k,1) = “ж” Then s = s + 1 k = k + x x = Instr(k, d, “ “) ss1.Text = Str(s)

Определить правильный вариант блока программы, определяющий количество сочетаний «кол» в введенном предложении d.

Результат выдать в поле ввода.=== ОТВЕТ 1

1) s = 0 For i = 1 To Len(d) If Mid(d, i,3)= “кол” Then s = s + 1 End If Next I ss1.Text = Str(s)	2) s = 0; x = 1 While x <= Len(d) If Mid(d, x, 3) = “кол” Then s = s + 1 End If x = x + 1 Wend MsgBox “Кол-во =”, s	3) For i = 1 To Len(d) s = 0 If Mid(d, i, 3)= “кол” Then s = s + 1 End If ss1.Text = Str(s) Next i
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “кол” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “кол” Then s = s + 1 End If;Next i Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество предложений в введенном тексте d,

начинающихся с буквы «Р». Результат выдать в поле ввода.=== ОТВЕТ 3

1) k= 1: x = Instr(k, d, “.“) Do s = 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k =x + 2 x = Instr(k,d,“.“) Loop Until x = 0 ss1.Text = Str(s)	2) k = 1:s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend Print s	3) k = 1: s = 0 x = Instr(k, d, “.“) While x <> 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k = x + 2 x = Instr(k, d, “.“) Wend ss1.Text = Str(s)
4) Do s = 0: b = Mid(d, k x-k) If Left(b, 1) = “Р” Then s = s + 1 End if x = Instr(k, d, “ “) Loop Until x <> 0	5) x = Instr(k,d,“.“) While x<> 0 If Mid(d,k, 1) = “Р” Then s = s + 1 k = x + 2 x = Instr(k, d, “.“) Wend ss1.Text = Str(s)

Определить правильный вариант применения строковой функции вырезающей из строки b = «догорающий костер» значение переменной a = «гор».-- с = Mid(b, 3, 3)

Выбрать правильный вариант значения переменной k = Len(b), где b = «догорающий костер»-- k = 17

Определить правильный вариант блока программы, определяющий количество букв «и» в введенном слове d.

Результат выдать на форму.=== ОТВЕТ 5

1) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “и” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =”, s	2) For i = 1 To Len(d) s = 0 If Mid(d, i, 1)= “и” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =”, s	3) s = 0: x = Instr(1, d, “ “) While x <> 0 b = Mid(d, k, x-k) If Instr(1, b, “и”) <> 0 Then s = s + 1 End If k = k + x x = Instr(k, d, “и”) Wend
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “и” Then s = s + 1 End If;Next i MsgBox “Количество =” & s	5) k = Len(d): s = 0 For i = 1 To k If Mid(d, i, 1)= “и” Then s = s + 1 End If Next i Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d. Результат выдать на форму.=== ОТВЕТ 3

1) k = 1:s = 0 x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	2) x = Instr(k, d, “ “) While x <> 0 s = 0: k = 1 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	3) s = 0 k = 1: x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend Print “Количество =” & s
4) s = 0 For i = 1 To Len(d) If Left(d, 1)= “ ” Then s = s + 1 End If;Next i Print “Количество =”, s	5) For i = 1 To Len(d) s = 0 If Instr(i, d, “ “) <> 0 Then s = s + 1 End If Next i ss1.Text = Str(s)

Определить правильный вариант применения строковой функции для нахождения позиции n переменной a = «кост» в строке b = «догорающий костер».-- n = Instr(1, b, a)

Какое значение будет иметь строковая переменная М в результате работы функции М = Mid («инициализация»,1, 7)?-- М = «инициал»

Какое значение будет иметь х в результате работы функции х = InStr(1, “экзамен”, “ мен”)?== 5

Определить значение переменной с = Len (а), где а = "регламентирование":== с = 17

Какое значение будет иметь строковая переменная М в результате работы функции М = Left («инициализация», 4)?-- М = «иниц»

Какое значение будет иметь строковая переменная М в результате работы функции М = Right («инициализация», 7)?--- М = «лизация»

Какое значение будет иметь строковая переменная М в результате работы функции М = Mid («гравитация», 3, 5)?-- М = «авита»

Какое значение будет иметь переменная М в результате работы функции М = Instr (1, «гравитация», «вита»)?---- М = 4

Какое значение будет иметь переменная М в результате работы функции М = Instr (1, «модификация», «фикация»)?-- М = 5

Какое значение будет иметь переменная М в результате работы функции М = Len («гравитация»)?--- М = 10

Какое значение будет иметь переменная М в результате работы функции М = Len («модификация»)?--- М = 11

Массив - это:- множество переменных одного типа

Чем отличаются элементы одного массива?- индексом

Чем отличаются элементы одного массива?- местом положения в массиве

Множество переменных одного типа – это: - массив

Дата добавления: 2014-12-27