| eXeSiTion |
Дата: Воскресенье, 13.05.2012, 09:32 | Сообщение # 1 |
|
Сообщений: 47
|
1.Даны матрицы А,B: array [1…4,1..4] of real. Вычислить матрицу С поэлементным сложением соответствующих элементов матриц А и В.
var
A, B, C, D : array [1..4] of array [1..4] of real;
i, j : integer;
begin
// Заполнение матриц А, В и С
Randomize;
for i := 1 to 4 do
for j := 1 to 4 do
begin
A[i, j] := Random(100);
B[i, j] := Random(100);
C[i, j] := A[i, j] + B[i, j];
end;
end;
4 задача Сформировать массив по правилу
const
M = 7;
var
Col, Row, i : Integer;
Arr : array[1..M, 1..M] of Integer;
...
begin
for Row := 1 to M do
for Col := 1 to M do Arr[Row, Col] := 0;
for Row := 1 to M do begin
i := 1;
for Col := Row downto 1 do begin
Arr[Row, Col] := i;
Inc(i); //Это тоже самое, что и i := i + 1;
end;
end;
...
end;
2)Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше ее. Массив размером 5×5.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=3;
m=3;
var
a:array[1..n,1..m] of integer;
i,j,k:byte;
sum:integer;
begin
randomize;
k:=0;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=-10+random(40);
if a[i,j]>0 then sum:=sum+a[i,j];
inc(k,1);
if k=n then
begin
writeln(a[i,j]:3);
k:=0;
end
else
write(a[i,j]:3);
end;
writeln;
k:=0;
for i:=1 to n do
for j:=i to n do
a[i,j]:=0;
for i:=1 to n do
for j:=1 to m do
begin
inc(k,1);
if k=n then
begin
writeln(a[i,j]:3);
k:=0;
end
else
write(a[i,j]:3);
end;
writeln;
writeln(sum);
readln;
end.
Иногда только промахнувшись, понимаешь, как ты попал.
|
|
|
|
