Объяснение:
Для быстрого прототипирования, ведь потреблять стремительного приготовления первообразов модификаций и предметов ради последующей доводки. Уже на рубеже проектирования возможно главным манером скорректировать установку участка или объекта в целом. В инженерии экий подъезд горазд кардинально уменьшить траты в производстве и освоении свежеиспеченной продукции.
Для быстрого изготовления — производство готовых подробностей изо материалов, поддерживаемых 3D-принтерами. Это отличное постановление ради мелкосерийного производства.
Производство модификаций и форм для литейного производства.
Установка изо неокрашенного материала разрешает заприметить службу механизма «изнутри», что например водился использовано инженерами Porsche при изучении тока масла в трансмиссии автомобиля ещё при разработке.
Изготовление разнообразных подробностей в семейных условиях.
Изготовление сложных, массивных, долговременных и недорогих систем. Например, непилотируемый самолёт Polecat[en] бражки Lockheed, большинство подробностей какого водился сделана высокоскоростной многомерной печати.
Производство лекарств, протезов и органов.
Для строительства строений и сооружений[12][13].
Для создания ингредиентов средства (Defense Distributed). Имеются опыты по печати средства целиком[14].
Изготовления корпусов эмпирической техники (автомобили[15], телефоны, радиоэлектронное оборудование)
Провиантское производство[16].
#1:
begin
var a,b,c,d:real;
write('Введите стороны A B прямоугольника: '); readln(A,B);
write('Введите стороны C D прямоугольника: '); readln(C,D);
write('Площади прямоугольников ',(A*B = C*D)? 'равны':'не равны');
end.
#2:
begin
var a,b,c:real;
write('Введите стоимость трёх покупок: '); readln(A,B,C);
write('Дисконтная карта ', ((B>A) and (C>A+B))? 'получена':'не получена');
end.
#3:
begin
var AB,CD,MN: real;
write('Введите длину отрезков AB,CD,MN: '); readln(AB,CD,MN);
write('Отрезки ',(((AB+CD)>MN) and ((AB+MN)>CD) and ((CD+MN)>AB))? 'могут':'не могут', ' быть сторонами треугольника');
end.
#4:
begin
var A,B:real;
write('Введите сторону первого квадрата: '); readln(A);
write('Введите площадь второго квадрата: '); readln(B);
write('Площади заданных квадратов ', (A.Sqr=B)? 'равны':'не равны');
end.