0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 41
1

Допишите программу на матрицу

18.11.2009, 11:13. Показов 538. Ответов 3
Метки нет (Все метки)

Здравствуйте, сделайте пожалуйста так, чтобы программа еще раз вывела введеную матрицу, но при этом в побочной диагонали поменяла местами МИН и МАХ. Заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program matrisa;
Uses crt;
 var b:array [1..100,1..100] of integer;
     i,j,n,m:integer;
 
begin
clrscr;
Writeln (' vvedite k-vo riadkov matricy: ');
Readln (n);
Writeln (' vvedite k-vo stovpcikov matricy: ');
Readln (m);
  for i:=1 to n do
    for j:=1 to m do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' poluchena  matrica = ');
for i:=1 to n do
 begin
 for j:=1 to m do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
Readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2009, 11:13
Ответы с готовыми решениями:

Допишите программу
Сформировать запись, имеющую следующую структуру type студент= record фамилия: string; номергр:...

Допишите программу
Дан двумерный массив A удалите в нем строку содержащую максимальное по модулю число и внесите...

Допишите программу
Здравствуйте! У меня большая просьба к вам дописать пару функций в программу. Дан код: ...

Допишите программу
10 DIM C(100, 100) 12 OPEN "MK.txt" FOR OUTPUT AS #1 15 PRINT "VVEDITE PORYADOK KVADRATA" ...

3
Платежеспособный зверь
8767 / 4198 / 1609
Регистрация: 28.10.2009
Сообщений: 11,328
18.11.2009, 12:19 2
Побочная (как и главная) диагональ может быть только у квадратной матрицы, ввод N не нужен, N=M
0
Retired
7725 / 2557 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.11.2009, 12:39 3
vladstupak, да действительно alexevt прав, для квадратной матрицы, задается только один параметр для размерности... Вот ваше задание переписал с 0:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,min,max,temp,tempmini,tempminj,tempmaxi,tempmaxj:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {èùåì ìèíèìóì è ìàêñèìóì â ïîáî÷íîé}
  min:=a[n,1];
  tempmini:=n;
  tempminj:=1;
  max:=min;
  tempmaxi:=n;
  tempmaxj:=1;
  for i:=n downto 1 do
  begin
    if a[i,n-i+1]<min then
    begin
      min:=a[i,n-i+1];
      tempmini:=i;
      tempminj:=n-i+1
    end;
    if a[i,n-i+1]>max then
    begin
      max:=a[i,n-i+1];
      tempmaxi:=i;
      tempmaxj:=n-i+1
    end
  end;
  {ìåíÿåì èõ ìåñòàìè}
  temp:=a[tempmini,tempminj];
  a[tempmini,tempminj]:=a[tempmaxi,tempmaxj];
  a[tempmaxi,tempmaxj]:=temp;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if ((i=tempmini)and(j=tempminj)) or ((i=tempmaxi)and(j=tempmaxj)) then
        textcolor(4)
      else
        textcolor(0);
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
end.
Цитата Сообщение от vladstupak Посмотреть сообщение
k-vo riadkov
Цитата Сообщение от vladstupak Посмотреть сообщение
stovpcikov
у матрицы есть строки и столбцы, надо называть вещи своими именами...
1
2922 / 843 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
18.11.2009, 13:03 4
Цитата Сообщение от Inadequate Посмотреть сообщение
k-vo riadkov
вы бы еще элементы лунками назвали, и точно огород бы получился)))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2009, 13:03
Помогаю со студенческими работами здесь

Пожалуйста допишите программу
Здесь два конструктора, нужно объявить класс main, если не сложно покажите как это будет отдельно...

Допишите корректно программу - Таблица деления
10. Таблица Деления Выведите таблицу деления заданных размеров. Формат ввода На первой строке...

Допишите код
ЗАДАЧА. Составить программу вычисления выражения с использованием функции пользователя. Отчет о...

Допишите прогу
Удалить из вещественного массива элементы, наименее отличающиеся от его среднего арифметического....

ДОПИШИТЕ КОД )
Всем форумчан с наступающим поздравляю; Дописывайте код. Может что прикольное получится )))) ...

Процедура и 2 аргумента допишите спасибо
В таблице создать два поля username nvarchar и userpassword nvarchar. Процедура ищет совпадения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru