Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!.... Препод на кусочки разорвет если не сдам работу...спасите студентку...=*
задача в делфи .. написать программу


Дана матрица А(4*7). Сформировать одномерный массив, состоящий из ми-нимальных элементов каждой строки матрицы.

Вопрос задала: dashenka (статус: Посетитель) Вопрос отправлен: 19 декабря 2011, 12:19 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот как-то так, наверное, будет:

program p5828;
 
{$APPTYPE CONSOLE}
 
const
  RowCount = 4;
  ColCount = 7;
 
type
  TMatrix = array[0..RowCount - 1, 0..ColCount - 1] of Integer;
  TVector = array[0..RowCount - 1] of Integer;
 
procedure MakeMatrix(var X: TMatrix);
var
  Row, Col: Integer;
begin
  for Row:= 0 to RowCount - 1 do
    begin
      for Col:= 0 to ColCount - 1 do
        begin
          X[Row, Col]:= Random(100) - 50;
          Write(X[Row, Col]: 4);
        end;
 
      WriteLn;
    end;
end;
 
procedure GetMinRowElements(const X: TMatrix; var V: TVector);
var
  Row, Col, Min: Integer;
begin
  for Row:= 0 to RowCount - 1 do
    begin
      Min:= X[Row, 0];
 
      for Col:= 1 to ColCount - 1 do
        if X[Row, Col] < Min
          then Min:= X[Row, Col];
 
      V[Row]:= Min;
    end;
end;
 
var
  M: TMatrix;
  V: TVector;
  Index: Integer;
 
begin
  WriteLn(#13#10'  Source matrix:');
  MakeMatrix(M);
  GetMinRowElements(M, V);
 
  WriteLn(#13#10'  Vector of minimum row elements:');
  for Index:= 0 to RowCount - 1 do
    Write(V[Index]: 4);
 
  WriteLn;
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 19 декабря 2011, 14:11 Оценка за ответ: 5 Комментарий к оценке: =**

Мини-форум вопроса

19 декабря 2011, 20:35: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.