Автор Тема: матрицы, нужна помошь  (Прочитано 9274 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн lelia222

  • Новичок
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #15 : 03 Октября 2009, 16:05:48 »
uses crt;
var a,b:array[1..50,1..50] of real;
    n,i,j,m,k:integer;
    z,sm:real;
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random-6;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
readln;
repeat
write('Введите целое число больше 1 m=');
readln(m);
until m>1;
writeln('Матрица B=A*m:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i,j]*m;
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
readln;
repeat
write('Введите номер строки от 1 до ',n,' k=');
readln(k);
until k in [1..n];
write('Введите число для умножения');
readln(z);
writeln('Матрица B, строка ',k,' умножена на ',z:0:2);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=k then b[i,j]:=b[i,j]*z;
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
readln;
sm:=0;
for i:=1 to n do
for j:=1 to n do
if(j<i)and(j mod 2=0)and(b[i,j]<0)then sm:=sm+b[i,j];
write('Сумма отрицательных ниже главной диагонали в четных столбцах=',sm:0:2);
readln
end.


я сделала так скажите правильно или ваш вариант всетки верней???

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #16 : 03 Октября 2009, 16:28:34 »
в программировании нет слова верней\неверней) ваша программа делает то что вам нужно? если да,то в чем тогда вопрос?)
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн SmartStudent

  • Постоялец
  • ***
  • Сообщений: 217
  • Hydralisk
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #17 : 03 Октября 2009, 18:42:02 »
Экономней хранить матрицу в одномерном массиве)

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #18 : 03 Октября 2009, 20:58:58 »
в таких программах главное понять ход алгоритма и развить програмистское мышление) а умение оптимизировать код придет с опытом)
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #19 : 03 Октября 2009, 21:15:23 »
Может в одномерном и экономнее, но кто знает кто еще будет Вашу прогу редактировать, так что лучше ее сделать как можно понятнее =))
Я всегда использую двумерный массив в таких случаях =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #20 : 04 Октября 2009, 21:50:41 »
ну вообще кому как удобнее...
программа - это творчество программиста =))) хоть как может усложнить или облегчить %-)
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #21 : 04 Октября 2009, 21:55:41 »
Знаешь Ален, когда я писал программы для данного сайта я понял как важна оптимизация и четкость каждого шага.
Чем проще и понятнее напишешь, тем легче будет потом искать ошибки =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #22 : 04 Октября 2009, 21:57:57 »
ну ет ж зависит от программиста. вдруг он маньяк)))) любит все усложнять и искать неделями ошибки)))))
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #23 : 04 Октября 2009, 21:58:59 »
Как в объявлении - ищу мазахиста =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #24 : 04 Октября 2009, 22:01:17 »
%-) нее ну правда люди бывают разные)) и мозг у всех по разному работает =)) кому то кажется что этот метод попроще , а другому наоборот сложно очень =)))
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн lelia222

  • Новичок
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #25 : 06 Октября 2009, 12:13:16 »
Преобразование прямоугольной матрицы
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании.
а) Заменить заданным вектором столбцы матрицы В, не содержащие ни одного отрицательного элемента;
б) в полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент.
Пожалуста помогите!!!
           

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #26 : 06 Октября 2009, 17:55:47 »
в чем загвоздка? задача похожа не предыдущую...
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн lelia222

  • Новичок
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #27 : 08 Октября 2009, 15:24:24 »
Преобразование прямоугольной матрицы
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании.
а) Заменить заданным вектором столбцы матрицы В, не содержащие ни одного отрицательного элемента;
б) в полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент.
Пожалуста помогите!!!
           
const MaxSize=50;
var b:array[1..MaxSize,1..MaxSize] of integer;
    a:array[1..MaxSize] of integer;
    i,j,m,n,k,Sum:integer;
begin
  clrscr;
  repeat
    writeln('Введите количество строк матрицы ');
    readln(m);
  until (m>1) and (m<MaxSize);
  repeat
    writeln('Введите количество столбцов матрицы ');
    readln(n);
  until (n>1) and (n<MaxSize);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          writeln('Введите элемент b[',i,' ',j,']');
          readln(b[i,j]);
        end;
    end;
  clrscr;
  writeln('Введите элементы вектора ');
  for i:=1 to m do
    begin
      writeln('Введите элемент № ',i);
      readln(a);
    end;
  clrscr;
  writeln('Исходная матрица ');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
        writeln;
    end;
  k:=0;
  for j:=1 to n do
    begin
      for i:=1 to m do
        if b[i,j]>=0 then
          begin
            inc(k);
            if k=m then
              begin
                for i:=1 to m do
                  b[i,j]:=a;
                  k:=0;
              end;
          end;
    end;
  writeln('Преобразованная матрица:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
        writeln;
    end;
  Sum:=0;
  for i:=1 to m do
    for j:=1 to n do
      if (i mod 2=0) then
        begin
          if b[i,j]=0 then
            begin
              for j:=1 to n do
                Sum:=Sum+b[i,j];
              writeln('Сумма ',i,' строки равна ',Sum);
              inc(i);
            end;
        end;
  readln;
end.
что то у меня не получается , после ввода вектора он мне не выдает преобразованную матрицу и не сумирует ее :'(

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: матрицы, нужна помошь
« Ответ #28 : 08 Октября 2009, 16:27:01 »
writeln('Введите элементы вектора ');
  for i:=1 to m do
    begin
      writeln('Введите элемент № ',i);
      readln(a);
    end;

тут вы получаете элемент,и ничего с ним не делаете...он просто напросто теряется
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

 

Помогите решить задачу. Для матрицы создать следующие функции.

Автор алина 11

Ответов: 1
Просмотров: 5107
Последний ответ 24 Января 2010, 17:54:21
от InfStudent
С++ и матрица. Для каждого столбца матрицы определить сумму элементов

Автор Sven

Ответов: 2
Просмотров: 7497
Последний ответ 30 Января 2011, 18:29:15
от Данила
Visual Basic. Нужна помощь в курсовой работы по информатике

Автор Borserg

Ответов: 6
Просмотров: 6552
Последний ответ 01 Апреля 2010, 22:25:19
от Borserg
Помогите решить задачи на СИ, про матрицы и символьные строки.

Автор katerinka777

Ответов: 4
Просмотров: 6986
Последний ответ 25 Апреля 2010, 12:56:01
от InfStudent
Вычисление по формуле, согласно норме матрицы

Автор drongoo

Ответов: 5
Просмотров: 5996
Последний ответ 09 Мая 2010, 06:36:20
от drongoo