Технический форум - Помогите пожалуйста в решении задач в Pascal

Цитата:

Сообщение от Tanyav (Сообщение 400954)

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.Разработайте приложение, имитирующее простейший органайзер

А вот тут требуется конкретный перечень задач, которые должна решать программа.