Паскаль, массивы и матрицы

[ДругончеГ]

Собственно, сабж... Не получается пока разобраться в них.

Программа сортирует массив из 5 пузырьком, массив из 10 вставкой и сливает их в массив из 15.

Программа формирует массив из сумм элементов матрицы, стоящих в одной строке.

[RUSt88]

обращайтесь

[mifomen]

Сообщение от ДругончеГ

Программа сортирует массив из 5 пузырьком, массив из 10 вставкой и сливает их в массив из 15.

Уж, и не помню я сортировки, но ведь должен быть справочный материал, посмотри и сделай, потому что слияние это элементарное действие.

[Chudo4258]

Программа сортирует массив из 5 пузырьком, массив из 10 вставкой и сливает их в массив из 15.

program Project2;
const
 n1=5;
 n2=10;
type
 mas1=array[1..n1]of integer;
 mas2=array[1..n2]of integer;
 mas3=array[1..n1+n2]of integer;
var A:mas1;
    B:mas2;
    C:mas3;
    i:integer;

Procedure Puz(var X:mas1);
var c:integer;
    f:boolean;
begin
repeat
  f:=false; 
  for i:=1 to n1-1 do 
  begin
    if X[i]>X[i+1] then
    begin
      f:=true; 
      c:=X[i];X[i]:=X[i+1];X[i+1]:=c; 
    end;
  end;
until not f;
end;

Procedure Vstav(var X:mas2);
var a,j:integer;
begin
for i:=2 to n2 do
 begin
  a:=X[i];
  j:=i-1;
  while (a<X[j]) and (j>0) do
   begin
    X[j+1]:=X[j];
    j:=j-1;
   end;
   X[j+1]:=a;
 end;
end;

begin
writeln('Vv. 1 massiv:');
for i:=1 to n1 do
 begin
  write('A[',i,']= '); readln(A[i]);
 end;
writeln('Vv. 2 massiv:');
for i:=1 to n2 do
 begin
  write('B[',i,']= '); readln(B[i]);
 end;
Puz(A);
Vstav(B);
//слияние
for i:=1 to n1 do
 C[i]:=A[i];
for i:=1 to n2 do
 C[i+n1]:=B[i];

for i:=1 to n1+n2 do
 writeln('C[',i,']= ',C[i]);
readln
end.

Программа формирует массив из сумм элементов матрицы, стоящих в одной строке.

const n=100 ;
        m= 200; 
var A:array[1..n,1..m] of integer;
     B:array[1..n]of integer;
     i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  begin write('A[',i,',',j,']= '); readln(A[i,j]); end;

for i:=1 to n do
 begin
  S:=0;
  for j:=1 to m do
   S:=S+A[i,j];
  B[i]:=S;
 end;
end.

[ROMA2PVT]

Program mas ;
Const n=5;
m=10;
Var
B, A: Array [1..100] Of Integer;
c: Array [1..100] Of Integer;
i,j,x,l,buf,k,o: Integer;
Begin
WriteLn ('Введите элементы первого массива: ');
For i := 1 To N Do
Begin
Write ('a[',i,'] = ');
ReadLn (a[i]);
End;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
end;
end;
WriteLn ('Введите элементы второго массива: ');
For i := 1 To m Do
Begin
Write ('b[', i, '] = ');
ReadLn (b[i]);
End;
for i:=1 to m do
begin
buf:=b[i];
j:=i-1;
while (j>=1) and (b[j]>buf) do
begin
b[j+1]:=b[j];
j:=j-1;
end;
b[j+1]:=buf;
end;
WriteLn ('Объединённый массив: ');
for i:=1 to n do
C[i]:=A[i];
for i:=1 to m do
C[i+n]:=B[i];
for i:=1 to n+m do
writeln('C[',i,']= ',C[i]);
ReadLn;
End.

Ну или первая вот так.

[ROMA2PVT]

Program mas;
Var
a:array[1..100,1..100] of integer;
     b:array[1..5] of integer;
i,sum,j,n,m:integer;
begin
write('Введите количество строк: ');
   readln(n);
   write('Введите количество столбцов: ');
   readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   a[i,j]:=random(15);
   write(a[i,j]:3);
   end;
  writeln;
 end;
 for i:=1 to n do
 begin
  sum:=0;
  for j:=1 to m do
  sum:=sum+a[i,j];
  b[i]:=sum;
 end;
  for sum:=1 to n do
   write(b[sum]:4);
   writeln;
end.

Вторая.

[Chudo4258]

ROMA2PVT это что было? Просто скопировал и поменял имена переменных. Просто по-постить чтоли захотелось, а то два сообщения подряд и оба твои, можно было в одно объединить.

Админы, где вы? почему вы ему не даете нарушения, я помню за это у меня как-то недавно "-5" дали. Или нарушения выдаются по выбору???

[ROMA2PVT]

чё я скопировал то?вторую не копировал.честно.а за то что в одно сообщение не объединил извиняюсь.