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

Матрица

22.10.2009, 09:23. Просмотров 1015. Ответов 2
Метки нет (Все метки)

Помогите кому не сложно с программкой...
В матрице E(8х8) в строках, содержащих 0, расположить элементы по убыванию.
Сквозной сортировкой отсортировать правый верхний квадрант.
Я очень плохо понимаю программирование, и поэтому прошу у вас помощи.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2009, 09:23
Ответы с готовыми решениями:

Массив, квадратная матрица и квадратная матрица 2
Помогите с тремя задачами: 1. В массиве R (5x5) упорядочьте строки по...

Матрица
Дана матрица В(8 8). Необходимо сформировать новую матрицу С(8 8), в которой...

Матрица
В книжке Абрамова под номером 371! Пожалуйста посмотрите и постарайтесь помочь!

Матрица
Помогите пожалуйста. Скоро сессия, нужно сдать материал, а у меня уже бошка...

Матрица
при попытки их осмысления голова пытаеться лопнуть 8) 1)Даны целые чилса...

2
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,946
22.10.2009, 13:11 2
Лучший ответ Сообщение было отмечено Felmar как решение

Решение

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
uses crt;
const n=8;
var a:array[1..n,1..n] of integer;
    i,j,k,p,x:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  if a[i,j]=0 then{если в строке есть ноль}
   begin
    for k:=1 to n-1 do{сортируем обменом строку по убыванию}
    for p:=k+1 to n do
    if a[i,k]<a[i,p] then
     begin
      x:=a[i,k];
      a[i,k]:=a[i,p];
      a[i,p]:=x;
     end;
    break;{больше ноль не ищем, выходим из цикла}
   end;
 end;
writeln('Сортировка строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln;
{сортировка правого верхнего квадранта матрицы обменом}
for k:=1 to sqr(n div 2) do  {повторяем сколько элементов в квадранте=16}
for i:=1 to n div 2 do{строки от 1 до 4}
for j:=n div 2+1 to n do{столбцы от 5 до 8}
   begin
     if j<>n then {если элемент в строке не последний}
      begin
       if a[i,j]<a[i,j+1] then{сортируем по убыванию}
        begin
         x:=a[i,j];     
         a[i,j]:=a[i,j+1];
         a[i,j+1]:=x;
        end;
      end
     else if(a[i,j]<a[i+1,n div 2+1])and(i<>n div 2) then {если строка не последняя}
       begin   {меняем первый элемент в следущей строке с последним элементом в текущей строке}
         x:=a[i,j];
         a[i,j]:=a[i+1,n div 2+1];
         a[i+1,n div 2+1]:=x;
        end;
   end;
writeln('Сортировка квадранта:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
0
Вложения
Тип файла: rar 5.rar (643 байт, 10 просмотров)
Felmar
0 / 0 / 0
Регистрация: 22.10.2009
Сообщений: 10
22.10.2009, 17:27  [ТС] 3
Спасибо просто огроменнное!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2009, 17:27

Матрица
Задача: составить программу определения максимального элемента в каждом столбце...

матрица
вот проблема для студента 1 курса(((((((((((((((( задача в влож. файле

матрица
помогите нужно написать программу на паскале вот сама задача: Дана матрица...


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

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

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