М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
gaviren
gaviren
08.10.2020 18:32 •  Информатика

Пакет программ, работой компьютера и обеспечивающий взаимодействие между человекам и компьютером что

👇
Ответ:
Akureyri
Akureyri
08.10.2020
Операционная система
4,4(76 оценок)
Открыть все ответы
Ответ:
Etopizdato
Etopizdato
08.10.2020

использовать Черепаха

алг  

нач

вперед (60)

влево (65)

вперед (43)

вправо (20)

вперед (28)

вправо (45)

вперед (60)

вправо (90)

вперед (20)

вправо (90)

вперед (60)

влево (90)

вперед (20)

влево (65)

вперед (43)

вправо (65)

вперед (20)

вправо (45)

вперед (27)

вправо (45)

вперед (40)

вправо (45)

вперед (27)

влево (180)

вперед (27)

влево (45)

вперед (40)

вправо (90)

вперед (60)

вправо (45)

вперед (26)

вправо (20)

вперед (45)

влево (180)

вперед (45)

влево (155)

вперед (40)

вправо (45)

вперед (27)

влево (45)

вперед (40)

вправо (90)

вперед (39)

вправо (90)

вперед (40)

влево (90)

вперед (20)

влево (90)

вперед (40)

вправо (90)

вперед (39)

поднять хвост

вправо (90)

вперед (100)

опустить хвост

влево (45)

вперед (4)

влево (90)

вперед (4)

влево (90)

вперед (6)

влево (90)

вперед (4)

поднять хвост

кон

Объяснение:

Смотри картинку


Нужно составить алгоритм словника в кумире (черепаха)
4,8(35 оценок)
Ответ:
Sub aaa()
    Rows.Clear
    Dim n As Integer, k As Integer, i As Integer
    n = CInt(InputBox("n="))
    k = 2 * n - 1
    ReDim y(1 To k) As Integer
    Randomize Timer
    For i = 1 To k
        y(i) = Int(Rnd * 100 - 50)
    Next i
    Dim ry As Range
    Set ry = Range(Cells(2, 2), Cells(2, k + 1))
    ry = y
    ReDim x(1 To n) As Integer
    Dim rx As Range
    Set rx = Range(Cells(3, 2), Cells(3, n + 1))
    For i = 1 To n
        x(i) = y(2 * i - 1) ^ 2
    Next i
    rx = x
    Cells(2, 1) = "y"
    Cells(3, 1) = "x"
    Set ry = Range(Cells(2, 1), Cells(2, k + 1))
    Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub
4,7(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ