Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Watashi-san
0 / 0 / 1
Регистрация: 23.02.2009
Сообщений: 10
1

Матрица. А именно сложение строк

06.04.2009, 19:41. Просмотров 763. Ответов 3
Метки нет (Все метки)

вот задача:
Найти сумму всех элементов в строках с K1 по K2 матрицы F(N,M) , где K1, K2 вводятся с клавиатуры.

Создал матрицу и не смог посчитать((

а вот исходник:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Nomer5;
uses crt;
var A:array [1..10,1..10] of integer;
i,j,k1,k2:integer;
sum:integer;
BEGIN
clrscr;
randomize;
 for i:=1 to 10 do
 for j:=1 to 10 do
 A[i,j]:=trunc(random*100);
readln(k1,k2);
{загвостка}
  readln
  END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.04.2009, 19:41
Ответы с готовыми решениями:

Дана матрица из 2 строк и 10 столбцов...
Дана матрица из 2 строк и 10 столбцов. Первый элемент каждого столбца...

Дана матрица A, состоящая из n строк и n столбцов...
Дана матрица A, состоящая из n строк и n столбцов. Изменить матрицу, заменив...

Дана матрица A, состоящая из n строк и m столбцов
Дана матрица A, состоящая из n строк и m столбцов. Получить массив х1.х2.хн по...

Матрица. Вывод строк с наибольшей и наименьшей суммой элементов
Здравствуйте Прошу натыкать меня носом в код, не могу понять - что не так....

Дана матрица. Упорядочить элементы строк матрицы по возрастанию
1) Дана матрица. Упорядочить элементы строк матрицы по возрастанию, а сами...

3
kdslg
19 / 19 / 6
Регистрация: 06.04.2009
Сообщений: 73
06.04.2009, 20:06 2
Цитата Сообщение от Watashi-san Посмотреть сообщение
вот задача:
Найти сумму всех элементов в строках с K1 по K2 матрицы F(N,M) , где K1, K2 вводятся с клавиатуры.

Создал матрицу и не смог посчитать((

а вот исходник:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Nomer5;
uses crt;
var A:array [1..10,1..10] of integer;
i,j,k1,k2:integer;
sum:integer;
BEGIN
clrscr;
randomize;
 for i:=1 to 10 do
 for j:=1 to 10 do
 A[i,j]:=trunc(random*100);
readln(k1,k2);
{загвостка}
  readln
  END.
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
Program Nomer5;
uses crt;
var A:array [1..10,1..10] of integer;
i,j,k1,k2:integer;
sum:integer;
BEGIN
clrscr;
randomize;
 for i:=1 to 10 do
 for j:=1 to 10 do
 A[i,j]:=trunc(random*100);
readln(k1,k2);
readln;
 
 
Sum:=0;
If K1<=K2 then
  begin 
    for i:=K1 to K2 do
    for j:=1 to 10 do Sum:=Sum+A[i,j];
  end
else {ошибка первый индекс больше второго
        можно в принципе поменять их местами};
 
Writeln(S);
 
END.
0
вика1304
2 / 2 / 0
Регистрация: 18.03.2009
Сообщений: 36
06.04.2009, 20:09 3
Цитата Сообщение от Watashi-san Посмотреть сообщение
Program Nomer5;
uses crt;
var A:array [1..10,1..10] of integer;
i,j,k1,k2,s:integer;
sum:integer;
BEGIN
clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
A[i,j]:=trunc(random*100);
readln(k1,k2);
s:=0;
for i:=k1 to k2 do
for j:=1 to 10 do
s:=s+a[i,j];
writeln('s=',s);
readln
END.

ну вот как то оно так.....
0
Watashi-san
0 / 0 / 1
Регистрация: 23.02.2009
Сообщений: 10
06.04.2009, 20:14  [ТС] 4
Большое спасибо!!!! что-то подобное в голове было, но никак не смог осуществить
СПАСИБА!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2009, 20:14

Матрица. Определить количество строк, не содержащих ни одного нулевого элемента
Дана целочиленая матрица размером m * n.Определить количество строк, не...

Дана матрица . Найти матрицу, получающуюся из данной перестановкой строк
Приветствую! очень нужна помощь в решении задачи Дана матрица . Найти ...

Матрица. Найти среди максимальных элементов строк самый правый
Помогите!!!:wall: Найти среди максимальных элементов строк самый правый.


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

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

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