Динамические структуры

[Lilen]

Упорядочьте элементы списка по убыванию, используя сортировку посредством выбора максимального элемента. Используйте список без заглавного элемента.

[Вадим Мошев]

Приготовьте мне пиццу, чтоб она была горячая и вкусная. Используйте грибы, сыр и ветчину.

[TinMan]

Вадим, ты забыл про соус без искусственных добавок ))
Кароч, Лилен, давай наработки..

[Lilen]

Сообщение от TinMan

Вадим, ты забыл про соус без искусственных добавок ))
Кароч, Лилен, давай наработки..

Ребят, вообще никаких мыслей нет, понятия не имею от чего отталкиваться?
И саму суть задачи не понимаю.

[MihalNik]

Это называется "линейная сортировка"

[Lilen]

Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n.

С этим я справилась, но вот еще одно условие - решить задачу с использованием динамических массивов, указателей. как это сделать?

program borlpasc;
var a:array[1..30,1..30] of integer;
i,j,n,k,m,max,at:integer;
 begin
 writeln('vvedite razmernost matrizbI');
 readln(n);
 write('vvedite nomer stroki m=');
 readln(m);
 for i:=1 to n do
  for j:=1 to n do
    begin write('a[',i,j,']=');
      readln(a[i,j])
    end;
  writeln('vasha matriza');
   for i:=1 to n do
     begin
       for j:=1 to n do
     write(a[i,j]:4);
     writeln
     end;
max:=1;
  for i:=1 to n do
    if a[max,max]<a[i,i]
      then max:=i;
        for i:=1 to n do
          begin
            at:=a[m,i];
            a[m,i]:=a[max,i];
            a[max,i]:=at
          end;
writeln('poluchennaya matriza');
 for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
readln;
end.

[Serge_Bliznykov]

Какой у Вас компилятор Паскаля?

[Lilen]

Сообщение от Serge_Bliznykov

Какой у Вас компилятор Паскаля?

32 битный, в основном пользуюсь ABC, иногда турбо

вот попыталась написать, выдает ошибку, "попытка разыменовать ненулевой указатель", впервые сталкиваюсь с указателями, не могли бы подсказать, что сделала не правильно?

Код:

program borlpasc;
const n=10;
type mas=array[1..30000,1..30000] of integer;
var a:^mas; at:^integer;
i,j,k,max,m:integer;
 begin
 //writeln('vvedite razmernost matrizbI');
 //readln(n);
 write('vvedite nomer stroki m=');
 readln(k);

 NEW(a);
 for i:=1 to n do
  for j:=1 to n do
    begin write('a[',i,',',j,']=');
      readln(a^[i,j])
    end;
  writeln('vasha matriza');
   for i:=1 to n do
     begin
       for j:=1 to n do
     write(a^[i,j]:4);
     writeln
     end;
max:=1;
  for i:=1 to n do
    if a^[max,max]<a^[i,i]
      then max:=i;
        for i:=1 to n do
          begin
            at^:=a^[m,i];
            a^[m,i]:=a^[max,i];
            a^[max,i]:=at^
          end;
writeln('poluchennaya matriza');
 for i:=1 to n do
   begin
     for j:=1 to n do
     write(a^[i,j]:4);
     writeln;
   end;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Сообщение от Lilen

32 битный, в основном пользуюсь ABC, иногда турбо

н-да... Старичок Турбо попал в 32-битные.. повезло! ))

Лилен, вот тут:

type mas=array[1..30000,1..30000] of integer;
var a:^mas; at:^integer;
...
 NEW(a);
 for i:=1 to n do
  for j:=1 to n do
    begin write('a[',i,',',j,']=');
      readln(a^[i,j])

- ты заводишь переменную a, размер которой 30000*30000*2=1.8 Гигабайт. А ты уверена, что она тебе доступна? Вполне может и не оказаться такого количества памяти в наличии.. В таком случае память системой выделена НЕ БУДЕТ, и переменная a останется равной NIL, и любое обращение по этому адресу приведет к той самой ошибке, про которую ты пишешь. После попытки взять память надо обязательно проверять, не осталась ли переменная нулевой. И если да - сообщать о неудаче.

Я, если честно, не знаю, обладает ли ABC истинной 32-битностью. Совет: скачай FP, за него я могу поручиться.

А аппетиты на память все же умерь! ))

[Serge_Bliznykov]

32 битный, в основном пользуюсь ABC, иногда турбо

так... уже чуток ошибаетесь... Turbo Pascal - это DOS (16 битный код).
Pascal ABC - про этого уродца я не в курсе... Хотя в нём есть настоящие динамические массивы!


ваш код сейчас посмотрю.. для начала
mas=array[1..30000,1..30000] of integer;
не многовато ли?
30000*30000* 2(если речь о ТурбоПаскале) = 1800000000 байт
это примерно 1.7 Гб
Уверены, что DOS позволит Вам выделить кусок памяти такого размера?!


UPDATE
упс.. пока я тут копался, TinMan уже всё разрулил...