Всем привет! У меня особо нет времени, да и желания играться в программирование. Но сегодня поиграемся в черепашку.

Чтобы понять о чём речь так-же можно глянуть сюда:

Вращаю кота 03.02.2024

Божья коровка 17.02.2024

Короче играть в черепашку будем на Small Basic. Когда был маленьким, я учился программировать на GW-Basic и Turbo C:

Так выглядел GW-Basic:

А так Turbo C:

Для современных школьников для изучения программирования сделали Small Basic, и выглядет интерфейс вот так:

Вот код:

'Автор uscheswoi_82
i_step = 10 'Шаг черепашки
i_cnt_step = 20 'Количество шагов
GraphicsWindow.Title = "Черепашка" 'Устанавливает заголовок окна "Черепашка"
GraphicsWindow.Width = 640 'Устанавливает ширину окна на 640 пикселей
GraphicsWindow.Height = 480 'Устанавливает высоту окна на 480 пикселей
Turtle.Show() 'Отображает черепашку


For i=0 To i_cnt_step
  Turtle.TurnLeft() 'Поворачивает черепашку в лево
  Turtle.Move(i_step) 'Перемещает черепашка на i_step
  i_step = i_step + 20 'Увеличивает i_step на 20 пикселей
EndFor

Если нажать на конвертировать в VB.NET то код выглядет вот так:

Module t1Module
    Dim i_step, i_cnt_step, i As Primitive
    Sub Main()
        'Автор uscheswoi_82
        i_step = 10 'Шаг черепашки
        i_cnt_step = 20 'Количество шагов
        GraphicsWindow.Title = "Черепашка" 'Устанавливает заголовок окна "Черепашка"
        GraphicsWindow.Width = 640 'Устанавливает ширину окна на 640 пикселей
        GraphicsWindow.Height = 480 'Устанавливает высоту окна на 480 пикселей
        Turtle.Show() 'Отображает черепашку


        For i = 0 To i_cnt_step
            Turtle.TurnLeft() 'Поворачивает черепашку в лево
            Turtle.Move(i_step) 'Перемещает черепашка на i_step
            i_step = i_step + 20 'Увеличивает i_step на 20 пикселей
        Next


    End Sub
End Module

Я улучшил код:

'Автор uscheswoi_82
Module t1Module
    Dim i_step, i As Primitive
    Const i_cnt_step = 20 'Количество шагов


    Sub Main()
        i_step = 10 'Шаг черепашки
        GraphicsWindow.Title = "Черепашка" 'Устанавливает заголовок окна "Черепашка"
        GraphicsWindow.Width = 640 'Устанавливает ширину окна на 640 пикселей
        GraphicsWindow.Height = 480 'Устанавливает высоту окна на 480 пикселей
        Turtle.Show() 'Отображает черепашку


        For i = 0 To i_cnt_step
            Turtle.TurnLeft() 'Поворачивает черепашку в лево
            Turtle.Move(i_step) 'Перемещает черепашка на i_step
            i_step = i_step + 20 'Увеличивает i_step на 20 пикселей
        Next
    End Sub
End Module

Результат работы алгоритма:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Моя ФЛ Он и Она