Sub Main() Dim n, i, s As Integer Console.Write("Введите число N") n = Console.ReadLine s = 0 For i = 1 To n s = s + i * i Next Console.Write(s) n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms: На форме 3 объекта: TextBox1 - для ввода N Textbox2 - для вывода суммы квадратов Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer s = 0 For i = 1 To Val(TextBox1.Text) s = s + i * i Next TextBox2.Text = s End Sub End Class
Трёхмерная графика - раздел компьютерной графики, совокупность приемов и инструментов (как программных, так и аппаратных), предназначенных для изображения объёмных объектов.
Трёхмерное изображение на плоскости отличается от двумерного тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ.
Трехмерная модель
Модель может как соответствовать объектам из реального мира (автомобили, здания, планета, комета), так и быть полностью абстрактной (проекция четырёхмерного фрактала).
Применение
Трёхмерная графика активно применяется для создания изображений на плоскости экрана или листа печатной продукции в науке и промышленности, например в системах автоматизации проектных работ (САПР; для создания твердотельных элементов: зданий, деталей машин, механизмов), архитектурной визуализации (сюда относится и так называемая «виртуальная археология»), в современных системах медицинской визуализации.
Самое широкое применение - во многих современных компьютерных играх.
Также как элемент кинематографа, телевидения, печатной продукции.(3д мульты,3д фильмы,3д фото и картины)
Module Module1
Sub Main()
Dim n, i, s As Integer
Console.Write("Введите число N")
n = Console.ReadLine
s = 0
For i = 1 To n
s = s + i * i
Next
Console.Write(s)
n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms:
На форме 3 объекта:
TextBox1 - для ввода N
Textbox2 - для вывода суммы квадратов
Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
s = 0
For i = 1 To Val(TextBox1.Text)
s = s + i * i
Next
TextBox2.Text = s
End Sub
End Class
3D - трёхмерная графика
Трёхмерная графика - раздел компьютерной графики, совокупность приемов и инструментов (как программных, так и аппаратных), предназначенных для изображения объёмных объектов.
Трёхмерное изображение на плоскости отличается от двумерного тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ.
Трехмерная модель
Модель может как соответствовать объектам из реального мира (автомобили, здания, планета, комета), так и быть полностью абстрактной (проекция четырёхмерного фрактала).
Применение
Трёхмерная графика активно применяется для создания изображений на плоскости экрана или листа печатной продукции в науке и промышленности, например в системах автоматизации проектных работ (САПР; для создания твердотельных элементов: зданий, деталей машин, механизмов), архитектурной визуализации (сюда относится и так называемая «виртуальная археология»), в современных системах медицинской визуализации.
Самое широкое применение - во многих современных компьютерных играх.
Также как элемент кинематографа, телевидения, печатной продукции.(3д мульты,3д фильмы,3д фото и картины)
Объяснение: