Создать блок схему по готовой программе из 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

298

334

Посмотреть ответы 1

Ответы на вопрос:

андрейиванович

Информатика

4,6(52 оценок)

Program sadadasf;

var i,k: integer;

A: Array[1..20] of integer;

begin

For i:=1 to 20 do

begin

k:=random(41)-20;

A[i]:=k;

end;

end.

Объяснение:

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.