Ребята,помогите!!! мне нужно решить 2 задачки.Вот уже сессия через 2 дня начнется..одна на одномерный массив,а другая на двумерный.
1.двумерный:Создать матрицу A[1..N,1..M].Упорядочить ее строки по убыванию их первых элементов.
2.одномерный:Создать массив целых чисел B[1..N].Сформировать новый массив,содержащий суммы элементов,раположенных между соседними локальными минимумами.Заранее большое спасибо!!!
1. Матрицу как задавать? случайным образом? Элементы целые? Тогда так:
fo j:=1 to M for i:=1 to N do A[i,j]:=Random(MaxInt);
((i=1) or (B[i-1]>B[i]) and ((i=N) or (B[i]<B[i+1]))
Inc(j);
C[j]:=B[i];
Lapp,с одномерным массивом вроде разобрался,а вот с двумерным пока чет не очень получается.
Вот программка(если конечно ее можно так назвать)
{создать матрицу A[1..N,1..M].упорядочить ее строки по убыванию их первых элементов.}
{-------------}
{для того,чтобы поменять местами строки в матрице максимально быстро,матрицу нужно задавать как массив строк:}
program one;
const
n = 10; { число строк }
m = 8; { число столбцов }
type
stroka = array[1 .. m] of integer;
smatrix = array[1 .. n] of stroka;
{при таком определении для того,чтобы поменять местами строки матрицы,достаточно сделать следующее:}
procedure sort(var a: smatrix);
var{const} i, j: integer;
var c:stroka;
begin
for i:=2 to n do
for j:=n downto i do
begin
if c[j-1]>c[j] then
begin
c:=a[j-1];a[j-1]:=a[j];a[j]:=c;
end;
end;
{вывод готовой матрицы}
procedure print(var a: smatrix);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
write(a[i,j]:4);
writeln
end;
end;
var
a: smatrix;
i, j: integer;
begin
{ заполнение матрицы }
randomize;
for i := 1 to n do
for j := 1 to m do
a[i,j] := random(100);
{ матрица до обмена }
writeln('до обмена:'); print(a);
{ обмен строк }
sort(a);
{ матрица после обмена }
writeln('после обмена:'); print(a);
end.
М | Пожалуйста, используй теги для программного текста (выделить программу блоком и выбрать нужный тип в меню CODE сверху от окна ввода) -- Lapp |
Давай разбираться.
В процедуре sort, что имел в виду под этим:
if c[j-1]>c[j] then- а?
if a[j-1][1]<a[j][1] then
хорощо.Буду пробовать...
Это ведь сортировка массива методом обмена?
procedure sort(var a: smatrix);
var{const} i, j: integer;
var c:stroka;
begin
for i:=2 to n do
for j:=n downto i do
begin
if a[j-1][1]<a[j][1] then
begin
c:=a[j-1][1];a[j-1][1]:=a[j][1];a[j][1]:=c;
end;
end;
end;
if a[j-1][1]<a[j][1] then
begin
c:=a[j-1];a[j-1]:=a[j];a[j]:=c;
end;
Спасибо,Lapp.
Спасибо,volvo.
Все работает..
пойду сдаваться..
Нет, не понял... Я тебе написал, как... Ты же все, чего добьешься - это отсортируешь ПЕРВЫЕ элементы по убыванию, а по заданию тебе надо отсортировать СТРОКИ по убыванию их первых элементов. Это разные вещи...
VOLVO,так получилось я не то скинул.Не посмотрев...
Сейчас все нормально,спасибо.
у меня тут есть одна программка.Она рабочая на другом компьютер,а на моем компилируется,но не запускается выдает ошибку 200(деление на ноль)>наверно что то в установках паскаля.Подскажите...
Было бы здорово, если бы ты показал отрывок программы, где эта ошибка фиксируется компилятором иначе как уже неоднократно было сказано "все экстрасенсы в отпуске".
просто появляется окно с этой ошибкой...и все.
VOLVO,спасибо.Посмотрел и разобрался...