Паскаль

[Лекси]

Паскаль

Дана целочисленная квадратная матрица, определить произведение элементов в тех строках которые не содержат отрицательных элементов. Помогите пожалуйста!

 

[Vladimir_S]

Лекси, а самостоятельно эту школьную задачку одолеть - никак?

 

[Лекси]

я бы с радостью если бы изучала в школе это.

 

[Vladimir_S]

я бы с радостью если бы изучала в школе это.

Ох, ну ладно. Обычно с такими упражнениями я посылаю подальше, но . Ладно, сейчас изображу.

 

[Лекси]

спасибо огромное. я уже начала писать но у меня возник вопрос, тупой походу, на котором я застряла...

 

[Vladimir_S]

Вот, получите:

Const
 N=10;
Var
 M:Array[1..N,1..N] of Integer;
 P:LongInt;
 i,j:Byte;
 b:boolean;
Begin
 Randomize;
 For i:=1 to N do
  begin
   b:=true;
   P:=1;
   for j:=1 to N do
    begin
     M[i,j]:=8-Random(10);
     If M[i,j]<0 then b:=false;
     if b then P:=P*M[i,j];
     Write(M[i,j]:4);
    end;
   If b then Write(P:15);
   Writeln;
  end;
 Readln;
End.

 

[Лекси]

почему число столбцов и строк вы взяли 10? именно на этом я и застряла...

 

[Vladimir_S]

почему число столбцов и строк вы взяли 10? именно на этом я и застряла...

"От балды". Поскольку в условии задачи размерность матрицы не прописана, я счел себя в праве взять любое (разумное) число, лишь бы в экран помещалась и чтобы произведение элементов строк не вылезало бы за разрядную сетку (это, впрочем, определяется еще и диапазоном генерации значений элементов матрицы). Не нравится 10? Ну так измените значение константы на 3. Или 5. Или 12 - больше, я думаю, не стОит брать.

 

[Лекси]

хорошо, спасибо, все ясно. и последняя просьба: можно же в этом задании упорядочить нечетные по номеру элементы столбцов матрицы по убыванию квадратов значений! Пожалуйста пожалуста. Заранее огромное спасибо!!!

 

[Vladimir_S]

Пожалуйста пожалуста.

Пожалуйста:

Const
 N=10;
Var
 M:Array[1..N,1..N] of Integer;
 D:Integer;
 P:LongInt;
 i,j,k,Ns:Byte;
 b:boolean;
Begin
 Randomize;
 For i:=1 to N do
  begin
   b:=true;
   P:=1;
   for j:=1 to N do
    begin
     M[i,j]:=8-Random(10);
     If M[i,j]<0 then b:=false;
     if b then P:=P*M[i,j];
     Write(M[i,j]:4);
    end;
   If b then Write(P:15);
   Writeln;
  end;
 Writeln;
 Ns:=(N+1) div 2;
 For j:=1 to N do
  For i:=1 to Ns-1 do
   For k:=1 to Ns-i do
    If Sqr(M[2*k-1,j])<Sqr(M[2*k+1,j]) then
     begin
      D:=M[2*k-1,j];
      M[2*k-1,j]:=M[2*k+1,j];
      M[2*k+1,j]:=D;
     end;
 For i:=1 to N do
  begin
   for j:=1 to N do
    Write(M[i,j]:4);
   Writeln;
  end;
 Readln;
End.

 

[Лекси]

моя благодарность к Вам не знает границ! Спасибо огромное!!!:dog:

 

[лекси 1]

извините еще раз за беспокойство, но как я не пыталась изменить задачу у меня ничего не вышло. программа выдает отрицательный результат. Т.е вся строка состоит только из положительных чисел, а произведение элементов этой строки отрицательное. что сделать никак не пойму. помогите пожалуйста. Выглядит это так. интервал в задачу я сама добавила.


Исходная матрица

Введите интервал[a,c]: -2 18

11 -2 4 9 6
1 18 0 -2 -2
17 4 11 16 5 -5696

9 13 14 14 17 -3372

16 -1 11 3 18

Преобразованная матрица

17 13 14 16 18
1 18 0 -2 -2
16 -2 11 9 17
9 4 11 14 6
11 -1 4 3 5

 

[Vladimir_S]

Уважаемая лекси_1, не видя Вашей программы и, соответственно, не зная, что Вы там накурочили, я, разумеется, бессилен Вам помочь. Одно могу сказать точно: сырых неотлаженных неоттестированных программ я не выкладываю, и моя программа точно и правильно решала поставленную задачу. Так что пока Вы не выложите листинг своего варианта, разговор беспредметен.
И еще. Для того, чтобы не сбивались интервалы (например, при выкладывании матриц, а также листингов), нужно делать так:
1. Перейти в "Расширенный режим".
2. Выделить набранную матрицу или листинг.
3. Нажать на значок #.
Или то же самое можно сделать, взяв нужный фрагмент в теги Code, т.е. вручную прописать:
{Code}
<Матрица>
{/Code}, только вместо фигурных следует поставить квадратные скобки.

 

[лекси 1]

Вот эта программа

изменила я только то что можно сейчас самой выбирать интервал. так вот, когда выбираешь маленькие числа к примеру от -3 до 12 то все работает правильно, а когда большие от -11 до 26 ,например, то появляется минус в произведении положительных чисел. что я уже только не меняла не получается ничего. Помогите пожалуйста!

Program Primer;
uses crt;
const
n=5;
var
M: array[1..n,1..n]of integer;
i,j,p,r,k, a,c :integer;
b:boolean;
begin
clrscr;
randomize;
writeln('Исходная матрица:’);
writeln;
write('Введите интервал [a,c]:’);
readln(a,c);
writeln;
for i:=1 to N do
begin
b:=true;
p:=1;
for j:=1 to N do
begin
M[i,j]:=random(c-a+1)+a;
if M[i,j]<0 then b:=false;
if b then P:=P*m[i,j];
write(m[i,j]:4);
end;
if b then writeln(p:15) ;
writeln;
end;
readkey;
writeln; writeln('Преобразованная матрица’);
writeln;
for j:=1 to n do begin
for k:=1 to n-2 do begin
for i:=k+2 to n do
if k mod 2 <> 0 then
if sqr(m[k,j]) < sqr(m[i,j])
then begin
r:=m[k,j];
m[k,j]:=m[i,j];
m[i,j]:=r;end; end;
end;
for i:=1 to n do begin
for j:=1 to n do write (m[i,j]:4);
writeln;end;
readkey;
End.

 

[Vladimir_S]

Помогите пожалуйста!

Черт, что за запах отвратительный? Ох, чую - пахнет Паскалем АВС. Превосходящим своею глючностью самою глючность. В общем, так - за глюки этого... изделия я не отвечаю. Кроме того:
1. Ведь вот просил Вас выкладывать листинги в тегах {Code}, и объяснил, как это делается - нет, всё мимо. Ведь так неудобно читать неформатированный текст программы! Впрочем, это так - воркотня.
2. Не надо менять то, что было отлажено и выверено! Например, у меня:

If b then Write(P:15);
Writeln;

у Вас:

If b then Writeln(P:15);
Writeln;

В результате на экране появляются лишние пустые строки, матрица рвется. И зачем?

Ну ладно. Главное, ответить на извечный вопрос "Что делать?". Предлагаю попытаться обойти глюки Вашего лжепаскаля путем задания типа произведения P, как "Real". Должно помочь. Тогда (заодно еще кое-где кое-что "причесал" и добавил исключение нулевых элементов матрицы):

Program Primer;
uses crt;
const
 n=5;
var
 M: array[1..n,1..n]of integer;
 i,j,r,k,a,c :integer;
 P:Real;
 b:boolean;
begin
 clrscr;
 randomize;
 write('Enter the range [a,c]: ');
 readln(a,c);
 writeln;
 writeln('Initial matrix:');
 writeln;
 for i:=1 to N do
  begin
   b:=true;
   P:=1;
   for j:=1 to N do
    begin
     M[i,j]:=random(c-a+1)+a;
     if M[i,j]=0 then M[i,j]:=1;
     if M[i,j]<0 then b:=false;
     if b then P:=P*m[i,j];
     write(m[i,j]:4);
    end;
   if b then write(P:15:0);
   writeln;
  end;
 readkey;
 writeln;
 writeln('Ordered matrix:');
 writeln;
 for j:=1 to n do
  begin
   for k:=1 to n-2 do
    begin
     for i:=k+2 to n do
     if k mod 2 <> 0 then
      if sqr(m[k,j]) < sqr(m[i,j]) then
       begin
        r:=m[k,j];
        m[k,j]:=m[i,j];
        m[i,j]:=r;
       end;
    end;
  end;
 for i:=1 to n do
  begin
   for j:=1 to n do write (m[i,j]:4);
   writeln;
  end;
 readkey;
End.

 

[лекси 1]

Вроде работает=)))) спасибо=)))

 

[лекси 1]

хотя нет, это кошмар какой то, только заметила что и сортировка тупит.... 3 столбец 10-ку зачем то взял, хотя должен работать только с нечетными по номеру строками. это он опять тупит?

 

[Vladimir_S]

хотя нет, это кошмар какой то, только заметила что и сортировка тупит.... 3 столбец 10-ку зачем то взял, хотя должен работать только с нечетными по номеру строками. это он опять тупит?

Во зараза - и действительно... Попробую разобраться, где ошибка.

 

[AlexZir]

Появление отрицательных значений вызвано переполнением числового формата Integer.
Можно воспользоваться типом longint для хранения произведения больших чисел.

 

[Vladimir_S]

Ага, ну ясно. Уважаемая леди, у меня в #10 всё было правильно, отлажено и выверено, так нет же - Вам понадобилось всё переиначить на свой лад, непонятно зачем, а в результате в части программы, где идёт упорядочение, Вы мало того, что зачем-то навставляли ненужных операторных скобок (begin-end), ну это еще полбеды, а беда в том, что напрочь перепутали индексы i,j,k элементов матрицы. Я вообще не понимаю, что там за алгоритм использован. Поэтому совет: внимательно перенести в программу нужный фрагмент из #10 и не мудрить.