Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
wayn
5 / 5 / 1
Регистрация: 19.01.2011
Сообщений: 136
#1

Сумма строк в матрице и сортировка - Turbo Pascal

01.03.2011, 23:01. Просмотров 345. Ответов 1
Метки нет (Все метки)

Дана матрица в ней нужно посчитать сумму каждой строки, и переставить строки по возрастанию,
Заметка: Найти сумму строки, и оперировать только с суммой при перестановке

Добавлено через 3 часа 30 минут
ребят помогите горит прям
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2011, 23:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сумма строк в матрице и сортировка (Turbo Pascal):

Найти сумму максимума и минимума в каждой матрице. В той матрице, где сумма больше, обнулить главную и побочную диагональ - Turbo Pascal
Очень не укладываюсь в срок помогите подготовить программу: Даны две квадратные матрицы A и B. Найти сумму максимума и минимума в...

Для матрицы из 6 строк и 5 столбцов отпечатать номера тех строк, сумма элементов которых кратна заданной величине, и число таких строк. - Turbo Pascal
Для матрицы из 6 строк и 5 столбцов отпечатать номера тех строк, сумма элементов которых кратна заданной величине, и число таких строк. ...

Сортировка строк в матрице - Pascal
1.Решите Please! Отсортировать строки массива целых чисел по убыванию. Сортировка включением

Сумма элементов в матрице - Turbo Pascal
Определить сумму элементов всей матрицы, за исключением элементов ее главной диагонали. Вроде бы, код написал правильно, но считает...

Сумма факториалов в матрице. - Turbo Pascal
Здравствуйте помогите пожалуйста доделать программу. программа должна выводить значение суммы факториалов: sum=1!+2!+...x!. Кроме того,...

Сумма положительных эл-тов в матрице - Pascal
Задана матрица А(10, 9). Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты получить в виде...

1
Puporev
Модератор
54046 / 41679 / 14756
Регистрация: 18.05.2008
Сообщений: 98,014
02.03.2011, 07:44 #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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,l:byte;
    sm,b:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{вычисление сумм в строках и запись их в дополнительный столбец}
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    sm:=sm+a[i,j];
   end;
  a[i,n+1]:=sm;
 end;
writeln('Исходный массив:');
writeln('Сумма':(n*4+8));
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  if j=n+1 then write(a[i,j]:7)
  else write(a[i,j]:4);
  writeln;
 end;
{перестановка строк по неубыванию сумм(по последнему столбцу)}
for i:=1 to m-1 do
for l:=i+1 to m do
if a[i,n+1]>a[l,n+1] then
for j:=1 to n+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по неубыванию сумм:');
writeln('Сумма':(n*4+8));
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  if j=n+1 then write(a[i,j]:7)
  else write(a[i,j]:4);
  writeln;
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2011, 07:44
Привет! Вот еще темы с ответами:

Наименьшая сумма строки в матрице A(n,n) - Turbo Pascal
помогите пожалуйста решить задачу. Подпрограммы и обработка массивов. ->>>Наименьшая сумма строки в матрице A(n,n). Добавлено...

Наименьшая сумма строки в матрице А - Pascal
Для получения результата составить функцию, исходными данными которой являются два массива x1,x2,...,xn u y1,y2.(один из них) или матрица А...

Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк - Turbo Pascal
Если сумма двух первых строк матрицы А меньше суммы элементов двух последних её строк. Изменить матрицу А, прибавив к элементам каждой...

Даны 2 строки. Верно ли, что сумма длин этих строк кратно произведению этих строк - Turbo Pascal
даны 2 строки. Верно ли, что сумма длин этих строк кратно произведению этих строк, а так же первая строка входит во вторую с четной...


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

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

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