Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.05.2020, 15: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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS