3D моделирование часто применяется при создании новых видов продукции, или когда имеющееся двухмерное изображение предмета является недостаточным для реализации поставленных целей.
Трехмерная графика незаменима и для презентации будущего изделия. Для того, чтобы приступить к производству необходимо нарисовать, а затем создать 3d-модель объекта. На основе 3д-модели, с технологий быстрого изготовления прототипа (3d печать, фрезеровка, литье силиконовых форм и т.д.), создается реалистичная модель будущего изделия.
Особенно широко 3d моделирование используется компаниями, которые занимаются архитектурой, строительством, дизайном интерьеров и ландшафтным дизайном. Сейчас уже редко кто обходится без 3d визуализации в подобных случаях.
3D-моделирование также бывает необходимым в случаях, когда необходимо смоделировать объект для предварительного анализа или отсутствует доступ к реальным объектам.
Широкое распространение 3d моделирование получило в ювелирном деле, когда бедующие украшения предварительно моделируются в 3D на экране монитора.
3D-модели и их визуализация часто применяются в презентациях, интернет рекламе, телерекламе и других видах коммерческой деятельности частных лиц и предприятий с различной формой собственности.
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int A, B, C, D, tmp;
Console.Write("Введите A: ");
A = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите B: ");
B = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите C: ");
C = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите D: ");
D = Convert.ToInt32(Console.ReadLine());
tmp = A;
A = D;
D = C;
C = B;
B = tmp;
Console.WriteLine("Новые значения:");
Console.WriteLine("A = " + A);
Console.WriteLine("B = " + B);
Console.WriteLine("C = " + C);
Console.WriteLine("D = " + D);
}
}
}
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j,Min,Max:integer;
Begin
WriteLn('Введите матрицу A[',N,',',M,']:');
For i:= 1 to N do
For j:= 1 to M do
Read(A[i,j]);
WriteLn;
For i:= 1 to N do
Begin
Min:=1;
For j:= 2 to M do
if A[i,Min]>A[i,j] then Min:=j;
Max:=1;
For j:= 2 to N do
if A[Max,Min]<A[j,Min] then Max:=j;
if Max=i then WriteLn('A[',i,',',Min,'] = ',A[i,Min])
End;
End.
Пример:
Введите матрицу A[3,4]:
4 3 6 -4
2 -3 -9 -5
2 4 -6 -9
A[1,4] = -4