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

Пожалуйста напишите процедуры и составьте две матрицы

05.06.2017, 10:45. Показов 579. Ответов 1
Метки нет (Все метки)

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
uses crt;
const
   m = 6;
   n = 9;
var 
   A : array [1..m,1..n] of real;
   i,j,maxcol,maxrow, count : integer;
   max, sum, sred : real;
Begin
   writeln('Ввод исходных данных :');
   for i:=1 to m do
      for j:=1 to n do begin
         write('A[',i,',',j,']=');
         readln(A[i,j]);
      end;
   max:=a[1,1]; maxcol:=1; maxrow:=1;
   for i:=1 to m do
      for j:=1 to n do
         if a[i,j]>max then begin
            max:=a[i,j];
            maxrow:=i;
            maxcol:=j;
         end;
   clrscr;
   writeln('Исходный массив : ');
   for i:=1 to m do begin
      for j:=1 to n do 
         write(a[i,j]:8:3);
      writeln;
   end;
   if maxcol<n then begin
      sum:=0;
      for i:=1 to m do
         for j:=maxcol+1 to n do
            sum:=sum+a[i,j];
      writeln('Сумма элементов за столбцом с наибольшим членом равна S = ',sum:10:3);
   end
   else writeln('Максимальный элемнт находится в последнем столбце');
   if maxrow<m then begin
      sred:=0; count:=0;
      for i:=maxrow+1 to m do
         for j:=1 to n do begin
            sred:=sred+a[i,j];
            inc(count);
         end;
      sred:=sred/count;
      writeln('Среднее значение элементов ниже строки с наибольшим членом равна Sred = ',sred:10:3);
   end
   else writeln('Максимальный элемнт находится в последней строке');
   
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2017, 10:45
Ответы с готовыми решениями:

Напишите процедуры ввода и вывода элементов матрицы
Напишите процедуры ввода и вывода элементов матрицы T размерностью MxN.

Составьте пожалуйста две программы решения двух задач по физике
1. Во сколько раз изменится длина световой волны при переходе из воздуха в стекло, если скорость...

Напишите программу, которая заполняет две матрицы случайными целыми числами, складывает матрицы и печатает
пожалуйста прога нужна на питоне лучше если на 3.3.3 Напишите программу, которая заполняет две...

Напишите пожалуйста блок-схему для матрицы
Постройте пожалуйста блок-схему Получить , i = 1, ..., 10; j = 1, ..., 12 - целочисленную...

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.06.2017, 11:22 2
Пожалейте свои пальцы, для чего Вам вводить с клавы 108 вещественных чисел при каждом тестировании?
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses crt;
const
   m=6;
   n=9;
type mtr=array[1..m,1..n] of real;
procedure matrix(var a:mtr;c:char);
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end;
procedure max(a:mtr;var maxrow,maxcol:integer);
var i,j:integer;
begin
maxcol:=1;
maxrow:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>a[maxrow,maxcol]then
 begin
  maxrow:=i;
  maxcol:=j;
 end;
writeln('Максимальный элемент=',a[maxrow,maxcol]:0:2,' в строке ',maxrow,' в столбце ',maxcol);
end;
procedure summa(a:mtr;maxcol:integer);
var i,j:integer;
    sum:real;
begin
if maxcol<n then
 begin
  sum:=0;
  for j:=maxcol+1 to n do
  for i:=1 to m do
  sum:=sum+a[i,j];
  writeln('Сумма элементов за столбцом с наибольшим членом равна S = ',sum:0:2);
 end
else writeln('Максимальный элемнт находится в последнем столбце');
end;
procedure srednee(a:mtr;maxrow:integer);
var i,j,count:integer;
    sred:real;
begin
if maxrow<m then
 begin
  sred:=0;
  count:=0;
  for i:=maxrow+1 to m do
  for j:=1 to n do
   begin
    sred:=sred+a[i,j];
    inc(count);
   end;
  sred:=sred/count;
  writeln('Среднее значение элементов ниже строки с наибольшим членом равна Sred = ',sred:0:2);
 end
else writeln('Максимальный элемнт находится в последней строке');
end;
var a,b:mtr;
    maxcol,maxrow:integer;
begin
matrix(a,'A');
max(a,maxrow,maxcol);
summa(a,maxcol);
srednee(a,maxrow);
matrix(b,'B');
max(b,maxrow,maxcol);
summa(b,maxcol);
srednee(b,maxrow);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2017, 11:22
Помогаю со студенческими работами здесь

Составьте программу с применением процедуры sub . end sub
Составьте программу с применением процедуры sub ... end sub в соответствии с предложенным...

Составьте программу, делящую две обыкновенные дроби
. Составьте программу, делящую две обыкновенные дроби.

Составьте программу, складывающую две обыкновенные дроби
Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби.

Составьте две программы в Pascale ABC с циклами For или While
№1 Составте программу для вычисления суммы чисел кратных 5 в диапазоне от 1 до 100!?? № 2...


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

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

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