Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 06.12.2010
Сообщений: 21
1

Матрица. Вывести вектор сумм элементов строк. Вывести элементы матрицы, которые встречаются в матрице более 3 раз

20.01.2011, 12:16. Просмотров 659. Ответов 1
Метки нет (Все метки)


Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры).
Упорядочить ее столбцы по убыванию суммы их элементов.
Вывести вектор сумм элементов строк, первоначальную и полученную матрицу на экран.
Вывести элементы матрицы, которые встречаются в матрице более трех раз (считается, что хотя бы один такой элемент имеется).

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
program L22;
uses crt;
var s,c,i,j:integer;
    A:array [1..4,1..6] of integer;
    B:array [1..6] of integer;
begin
Clrscr;
S:=0;
 
  for i:=1 to 4 do                                    {vvod vivod}
  for j:=1 to 6 do
  readln (a[i,j]);
   for i:=1 to 4 do begin
   for j:=1 to 6 do
   write(a[i,j]:3);
   writeln;
   end;
   writeln;
 
  writeln;
  for j:=1 to 6 do begin                        {summa elementov}
  for i:=1 to 4 do
  b[j]:=b[j]+a[i,j];
  {write('b[j]:=',b[j]);}
  writeln;
  end;
  writeln;
 
  writeln('uporyad stolbci po ubivaniyu summi ih elementov');  <- тут неправильно
    for i:=1 to 4 do                                                               начинается( не знаю как сделать(
    for j:=1 to 6 do
     if  b[j]<b[j+1] then begin
      b[j+1]:=a[i,j];
      a[i,j]:=b[j];
      end;
    for i:=1 to 4 do begin
    for j:=1 to 6 do begin
   write(a[i,j]:3);
    end;
    writeln;
    end;                                                                  
                                                                           
  writeln('vektor summ');
   for j:=1 to 6 do
   write(b[j]:3);
   writeln;
 
  readln;
  end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2011, 12:16
Ответы с готовыми решениями:

Вывести символы, которые встречаются более 2х раз.
Вывести символы, которые встречаются более 2х раз.

Вывести только те слова, которые встречаются более n раз
Здравствуйте. вот код задания Console.Write(&quot;Введите строку: &quot;); string str =...

Вывести только те слова, которые встречаются более n раз
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются...

Вывести только те слова из строки, которые встречаются более n раз
Дан код, в программировании я новичок, поэтому код вероятно тупой, но все же. Как я понимаю,...

1
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
20.01.2011, 14:05 2
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
{Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры).
Упорядочить ее столбцы по убыванию суммы их элементов.
Вывести вектор сумм элементов строк, первоначальную и полученную матрицу на экран.
Вывести элементы матрицы, которые встречаются в матрице более трех раз (считается, что хотя бы один такой элемент имеется).}
 
program L22;
    uses crt;
    var s,c,i,j,x,tmp:integer;
        A  :array [1..4,1..6] of integer;
        B  :array [1..6] of integer;
        ROW:array[1..4]of integer;
        MAS:array[1..100]of integer;
        
begin
randomize;
S:=0;
for i:=1 to 4 do {vvod vivod}
for j:=1 to 6 do
begin
    A[i,j]:=random(50)+1;
    //write('A[',i,',',j,']= ');
    //readln (A[i,j]);
end;
Clrscr;
for i:=1 to 4 do begin
for j:=1 to 6 do
write(A[i,j]:4);
writeln;
end;
 
for i:=1 to 4 do
for j:=1 to 6 do  {summa elementov}
B[j]:=B[j]+A[i,j];
 
writeln('--------------------------------------------');
for j:=1 to 6 do
write(b[j]:4);
write('           // сумма столбцов матрицы ');
writeln;
writeln('--------------------------------------------');
 
 
 
writeln(' Вектор сумм элементов строк:');
for i:=1 to 4 do
for j:=1 to 6 do
ROW[i]:=ROW[i]+A[i,j];
 
for i:=1 to 4 do
writeln(ROW[i]:4);
 
for i:=1 to 4 do
for j:=1 to 6 do
inc(MAS[A[i,j]]);
 
writeln('--------------------------------------');
for i:=1 to 50 do
if MAS[i]>3 then writeln(i:2, ' встречается в матрице более трех раз');
 
readln;
end.
осталось только вывести полученную матрицу на экран и сообственно получить её
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2011, 14:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести только те слова сообщения, которые встречаются в нем более n раз
Нужно выполнить эту задчку используя только библиотеки string и iostream. Буду очень благодарен,...

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы которые встречаются в...

Вывести элементы списка, которые встречаются только один раз
Дан список. Выведите те его элементы, которые встречаются в списке только один раз. Элементы нужно...

Вывести те элементы, которые встречаются в массиве только один раз
Привет всем. Изучаю c++, ломаю уже 1 день голову над данной задачей: Дан массив. Выведите те его...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.