X 1 какое значение примет
Обновлено: 23.04.2024
Сайт учителя информатики. Технологические карты уроков, Подготовка к ОГЭ и ЕГЭ, полезный материал и многое другое.
Какое значение получит переменная у после выполнения фрагмента алгоритма?
х:=1
у:=2*х
у:=у+3
у:=у*х
у:=у+4
у:=у*х
у:=у+5
Восстановите формулу вычисления у для произвольного значения x.
Правильность не гарантирую, потому что проверить в данный момент код негде.
Dim A() As Integer
Dim b() As Integer
Dim i, j As Integer
'Задаем размерность массива
Console.WriteLine ("Введите количество строк")
n = Console.ReadLine
Console.WriteLine ("Введите количество столбцов")
m = Console.ReadLine
ReDim A(n, m) As Integer
ReDim b(n) As Integer
'Цикл ввода данных
For i = 1 To n
For j = 1 To m
Console.WriteLine ("Введите число")
A(i, j) = Console.ReadLine
Next j
Next i
'Все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значение
For i = 1 To n
b(i) = 1
Next i
'Цикл вычисления каждого элемента массива b
For i = 1 To n
For j = 1 To m
b(i) = b(i) * A(i, j)
Next j
Next i
решим:
Какое значение примет переменная x после выполнения блока программы:
n = 7 : x = 1
Do While x < n
x = x + 1
n = n + 0.5
Loop
=============
заставим VBA выводить значения переменных нв ячейки листа Excel )))
следующим макросом:
Sub ppp()
' Какое значение примет переменная x после выполнения блока программы:
n = 7: x = 1
Do While x < n
x = x + 1
Cells(x, 1) = x ' вот тут мы заставили VBA выводить значения х
n = n + 0.5
Cells(x, 2) = n ' вот тут мы заставили VBA выводить значения n
Loop
а вот так выглядит результат и последняя строчка ответ на вашу задачу:
n = 7 : x = 1 ' переменная n=7, x=1
Do While x < n ' делать пока x < n
x = x + 1 ' увеличить x на 1
n = n + 0.5 ' увеличить n на 0.5
Loop ' цикл, петля - переход на строку с Do
Читайте также: