// PascalABC.Net 3.0, сборка 1066 // PascalABC.Net 3.0, сборка 1066 const nn=50; mm=50; var a:array[1..mm,1..nn] of integer; i,j,m,n,k:integer; begin Write('Введите число строк и столбцов массива: '); Read(m,n); Write('Введите значение, заменяемое нулем: '); Read(k); Randomize; Writeln('*** Исходный массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if i+j=k then a[i,j]:=0; Write(a[i,j]:4) end; Writeln end end.
Можно печатать машины ну, для начала, стоит упомянуть, что с ее можно печатать машины! создатели последнего фильма о бонде, скайфол, наняли компанию voxeljet, которая специализируется на 3d-печати, для создания трех моделей престижной машины астон мартин db5 масштабом 1: 3 для съемок аварий. но не расстраивайтесь, одна из них уцелела и позднее была продана на аукционе кристис почти за 100 000 фунтов стерлингов. корпуса для мобильных устройств меньше размером, но не менее роскошная, первая в мире модель корпуса nokia lumia 820 была отпечатана мастерами 3d-печати, в компании makerbot. меньше чем за день после того, как были переданы в работу спецификации, специалисты компании при 3d-магии создали эту модель.протезированиеиндустрия медицинского оборудования - один из крупнейших рынков в мире 3d-печати. нужен бедренный сустав? распечатаем! рынок протезирования просто влюблен в 3d-технологию. специалисты бельгийской компании biomedics недавно имплантировали распечатанную на 3d-принтере титановую челюсть 83-летней пациентке. и это только начало! детали машинподполковник авиации энди грин намерен побить рекорд скорости на суше, пилотируя сверхзвуковой автомобиль bloodhound ssc, способный развивать скорость свыше 1600 км/час - автомобиль с внутренностями, выполненными на 3d-принтере. при системы автоматизированного проектирования и глиняного слепка руки грина, титановое рулевое колесо было отпечатано максимально удобным для рук бесстрашного гонщика. на старт, нашему удивлению мы узнали, что еще 3d-принтеры можно использовать в сочетании со сканами системы автоматизированного проектирования для распечатывания клона опухоли перед операцией, с тем чтобы хирурги точно знали, с чем именно им придется иметь дело. удобно! предметыученые из уорикского университета сообщили, что электронная схема может быть неотъемлемой частью 3d-напечатанных предметов, и чтобы доказать это, они изобрели материал, который называли carbomorph, а затем использовали его для создания компьютерного игрового устройства и кружки, которая знает, когда она наполнена.космоснаса и исследователи вашингтонского государственного университета работают над 3d-печатью лунной пылью. с этой технологией мы могли бы в будущем рассматривать возможность изготовления лунной базы непосредственно на месте, целиком из материалов доступных на луне. в то же время космонавты могли бы использовать эту технологию для починки и замены сломанного оборудования. хьюстон, есть идея! почтаполагаете, что посылки идут слишком медленно? файлообменник pirate bay недавно открыл новый раздел на своем сайте под названием "physibles", для того, что они описывают как "объекты данных, которые могут стать осязаемыми". другими словами, достаточно загрузить свои 3d-чертежи, и любой, кто получит этот файл сможет распечатать реальный предмет. вот это называется делиться! компьютерные героино будьте осторожны: несколько любителей компьютерных игр нажили неприятности с законом когда стали использовать свои принтеры для воспроизводства фигурок из warhammer 40000. games workshop - создатели warhammer - быстро вмешались в их деятельность, волнуясь о своих правах на патенты. похоже, что следующей битвой на поле авторских прав на цифровые изделия будет борьба за видите, 3d-печать уже преподносит нам не мало сюрпризов, но, очевидно, самое интересное еще впереди. а если бы вы были ограничены лишь вашим воображением, что бы вы напечатали в первую очередь?
// PascalABC.Net 3.0, сборка 1066
const
nn=50;
mm=50;
var
a:array[1..mm,1..nn] of integer;
i,j,m,n,k:integer;
begin
Write('Введите число строк и столбцов массива: '); Read(m,n);
Write('Введите значение, заменяемое нулем: '); Read(k);
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
if i+j=k then a[i,j]:=0;
Write(a[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Введите число строк и столбцов массива: 10 8
Введите значение, заменяемое нулем: 11
*** Исходный массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 -23
-20 24 -13 18 -6 -16 -19 -23
-24 -25 -16 1 0 18 -7 -8
-7 22 19 -6 -25 -6 -23 17
9 -23 -7 18 5 -9 11 16
12 0 -9 8 4 -4 12 -24
-24 -10 13 1 -7 13 21 -6
-9 -14 -21 24 -6 2 -24 11
*** Результирующий массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 0
-20 24 -13 18 -6 -16 0 -23
-24 -25 -16 1 0 0 -7 -8
-7 22 19 -6 0 -6 -23 17
9 -23 -7 0 5 -9 11 16
12 0 0 8 4 -4 12 -24
-24 0 13 1 -7 13 21 -6
0 -14 -21 24 -6 2 -24 11