Цитата:
Сообщение от Tanyav
1.Составить программу транспонирования целочисленной матрицы
|
Ну уж это - запросто:
Код:
VAR
M,MT:ARRAY[1..10,1..10] of INTEGER;
Ns,Nc,i,j:INTEGER;
BEGIN
Write('Number of strings (<11) = ');
ReadLn(Ns);
Write('Number of columns (<11) = ');
ReadLn(Nc);
RANDOMIZE;
For i:=1 to Ns do
For j:=1 to Nc do
M[i,j]:=Random(100)-50;
For i:=1 to Nc do
For j:=1 to Ns do
MT[i,j]:=M[j,i];
WriteLn;
WriteLn('Initial matrix:');
For i:=1 to Ns do
begin
For j:=1 to Nc do
Write(M[i,j]:4);
WriteLn;
end;
WriteLn;
WriteLn('Transposed matrix:');
For i:=1 to Nc do
begin
For j:=1 to Ns do
Write(MT[i,j]:4);
WriteLn;
end;
ReadLn;
END.
Цитата:
2.Разработайте приложение, имитирующее простейший органайзер
|
А вот тут требуется конкретный перечень задач, которые должна решать программа.