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

Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей

08.03.2010, 16:07. Показов 2226. Ответов 3
Метки нет (Все метки)

1. В однородном массиве, состоящем из n элементов, вычислить:
- номер минимального элемента массива;
- сумму элементов массива, больших введенного числа A.
Преобразовать массив таким образом, чтобы в первой его половине распологались элементы, стоявшие в нечетных позициях.
2. Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей. Найти сумму элументов в четных строках, расположенных ниже главной диагонали.





К какждой задаче блок схемы!!!!!!!!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2010, 16:07
Ответы с готовыми решениями:

Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями
Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали

Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями
Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом...

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

Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема)
Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной...

3
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
08.03.2010, 16:20 2
1
Pascal
1
2
3
4
5
6
7
8
min:=a[1];
imin:=1;
for i:=1 to n do
 if a[i]<min then
  begin
   min:=a[i];
   imin:=i;
  end;
Pascal
1
2
3
4
5
Readln(t);
s:=0;
for i:=1 to n do
 if a[i]>t then
  s:=s+a[i];
Pascal
1
2
3
4
5
6
7
8
9
for i:=1 to n do
 if i mod 2<>0 then
  begin
   k:=k+1;
   x:=a[i];
   for j:=i downto k+1 do
   a[i]:=a[j-1];
   a[k]:=x;
  end;
2-ая решалась точно, так что ищите
1
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
08.03.2010, 16:43 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum,x:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
for i:=1 to n do
begin
  x:=a[i,i];
  a[i,i]:=a[i,(n+1-i)];
  a[i,(n+1-i)]:=x;
end;
for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j]:4);
  Writeln;
 end;
sum:=0;
for i:=1 to n do
 for j:=1 to n do
  if i mod 2=0 then
   begin
    if (n-j+1<i) then
     sum:=sum+a[i,j];
   end;
Writeln('Sum=',sum);
Readln;
end.
1
3308 / 1370 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
08.03.2010, 16:51 4
Схема
Миниатюры
Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей  
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2010, 16:51
Помогаю со студенческими работами здесь

В квадратной матрице поменять местами элементы главной и побочной диагоналей
В квадратной матрицы Е поменять местами элементы главной и побочной диагоналей, предварительно...

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

Дана матрица А порядка n. Поменять местами элементы главной и побочной диагоналей
Нужна срочная помощь) Дана матрица А порядка n. Поменять местами элементы главной и побочной...

В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей
Составил программу, но похоже неправильно. При вводе пишет ошибка проверки диапазона и курсор...


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

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

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