Решить в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3 столбцов..необходимо пересортировать массив таким образом,чтобы нижняя строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще
Var a:array[1..2,1..3] of integer; i,t,j:integer; begin writeln('До:'); for i:=1 to 2 do begin for j:=1 to 3 do begin a[i,j]:=random(10); write(a[i,j],' '); end; writeln; end; for j:=1 to 3 do begin t:=a[1,j]; a[1,j]:=a[2,j]; a[2,j]:=t; end; writeln('После:'); for i:=1 to 2 do begin for j:=1 to 3 do write(a[i,j],' '); writeln; end;end.
Program Task; Const N = 499; M = 1; Var A: Array [1..N, 1..N] of Boolean; i, j, x, y, t: Integer; b: Boolean; Begin Randomize; While i < M Do Begin x := Random(N) + 1; y := Random(N) + 1; If A[x, y] = False Then Begin A[x, y] := True; i := i + 1; End; End; While b = False Do Begin b := True; For i := 1 To N Do For j := 1 To N Do Begin If A[i, j] = True Then Begin If (i + 1) <= N Then A[i + 1, j] := True; If (i - 1) > 0 Then A[i - 1, j] := True; If(j + 1) <= N Then A[i, j + 1] := True; If (j -1) > 0 Then A[i, j - 1] := True; End; End; For i := 1 To N Do For j := 1 To N Do If A[i, j] = False Then b := False; t := t + 1; End; WriteLn(t); ReadLn; End.
1)Графический редактор–это программа, предназначенная специально для рисования и редактирования изображений. Точнее, программа позволяющая вам создавать настоящие шедевры живописи прямо на вашем компьютере, или редактировать уже за ранее готовые фотографии и изображения (простой пример возможностей редактора — убрать распространенный «эффект красных глаз»). 2)Растр — изображение, построенное из отдельных элементов (точек), как правило, расположенных регулярно. В большинстве приложений компьютерной графики, растровое изображение представляется двумерным массивом точек, цвет и яркость каждой из которых задаются независимо. Пиксел — это наименьшая единица растрового изображения, получаемого с графических систем вывода информации (компьютерные мониторы, принтеры и т. д.) 4)Графический примитив - простейший геометрический объект, отображаемый на экране дисплея или на рабочем поле графопостроителя: точка, отрезок прямой, дуга окружности или эллипса, прямоугольник и т.п. 5)Векторная графика состоит из точек линий квадратов. Качество не ухудшается при увеличении. Используется в больших плакатах, гербах... 6)Качество растрового изображения зависит от размера изображения (количества пикселей по горизонтали и вертикали) и количества цветов, которые можно задать для каждого пикселя. 7)Растровая графика позволяет создать практически любой рисунок, вне зависимости от сложности, в отличие, например, от векторной, где невозможно точно передать эффект перехода от одного цвета к другому без потерь в размере файла. Распространённость — растровая графика используется сейчас практически везде: от маленьких значков до плакатов. Высокая скорость обработки сложных изображений, если не нужно масштабирование. Растровое представление изображения естественно для большинства устройств ввода-вывода графической информации, таких как мониторы (за исключением векторных устройств вывода), матричные и струйные принтеры, цифровые фотоаппараты, сканеры, а также сотовые телефоны.
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.
ПРИМЕР РАБОТЫ:
До:
5 5 2
8 6 2
После:
8 6 2
5 5 2