Поделитесь своими знаниями, ответьте на вопрос:
Создать блок схему по готовой программе из visual basic sub pr1() dim y as single, x as single, z as single, sum1 as single, sum2 as single, i as integer i = 2 for x = 1.5 to 2.5 step 0.1 z = sin(x) * cos(x) y = sqr(x + 1.7) - 0.5 * x i = i + 1 if z < 1 then sum1 = sum1 + z end if if y > 1 and y < 3 then sum2 = sum2 + y end if sheets("лист1"cells(i, 1) = i sheets("лист1").cells(i, 2) = y sheets("лист1").cells(i, 3) = z next x sheets("лист1").cells(3, 4) = sum1 sheets("лист1").cells(3, 5) = sum2 end sub
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
Объяснение:
Смотри картинку
Вся программа:
использовать Чертежник
алг
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
алг цифра_ 0
нач
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
сместиться на вектор (2,0)
кон
алг цифра_ 6
нач
опустить перо
сместиться на вектор (-1,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (3,1)
кон.
Извините ,если не правильно