Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2020, 14:35   #1
MaidDragon
 
Регистрация: 14.05.2020
Сообщений: 8
По умолчанию Редактировать код

Прошу помощи, пожалуйста кто-нибудь может переписать код под PascalABC.NET
Код:
program project1;
 
const
  n = 10;
 
type
  Tmas = ^TTmas;{одна строка матрицы}
  TTmas = array[1..1] of integer;
  Tmatr = ^TTmatr;{матрица-массив указателей на строки}
  TTmatr = array[1..1] of Tmas;
var
  a: Tmatr;
  max, min, i, j: integer;
  x: integer;{буфер для обмена при транспонировании}
begin
  randomize;
  getmem(a, sizeof(TTmas) * n * 2);{выделяем память под указатели на строки}
  {поскольку сортируем в двух циклах, нужно в 2 раза больше памяти}
  for i := 1 to n do
    getmem(a^[i], sizeof(integer) * n);{для каждой строки память для хранения данных}
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a^[i]^[j] := random(n);
      Write(a^[i]^[j]: 4);
      if max > a^[i]^[j] then
        max := a^[i]^[j];
      if min < a^[i]^[j] then
        min := a^[i]^[j];
    end;
    writeln;
  end;
  max := a^[1]^[1];
  min := a^[1]^[1];
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if max < a^[i]^[j] then
        max := a^[i]^[j];
      if min > a^[i]^[j] then
        min := a^[i]^[j];
    end;
  end;
  writeln('Max: ', max);
  writeln('Min: ', min);
  for i := 1 to n do
    freemem(a^[i], sizeof(integer) * n);
  {освобождаем память в обратном порядке, сначала удалим строки}
  freemem(a, sizeof(TTmas) * n * 2); {потом указатели на них}
  Write('Press Enter...');
  readln;
end.
MaidDragon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Редактировать Dll uveselaya Общие вопросы Delphi 5 20.12.2015 00:02
Как редактировать эту программу? Roblen Паскаль, Turbo Pascal, PascalABC.NET 0 21.03.2015 22:43
IE редактор xml, как в нем редактировать? BaLLarD Помощь студентам 1 23.03.2013 14:09
Как правильно редактировать? AK BULLETS Общие вопросы Delphi 1 22.03.2010 18:41
Редактировать exe файл GAGARIN-NEW Общие вопросы Delphi 6 10.03.2008 15:17