С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
MrVector
3 / 3 / 0
Регистрация: 25.09.2012
Сообщений: 41
1

Таблица футбольного чемпионата задается квадратной матрицей размерностью 16х16

22.12.2012, 14:05. Просмотров 412. Ответов 4
Метки нет (Все метки)

Таблица футбольного чемпионата задается квадратной матрицей размерностью 16х16, в которой все элементы на главной диагонали равны нулю, а остаток заполнен по следующим правилам: 3 - победа, 1 - ничья, 0 - поражение.Вот матрица :
Таблица футбольного чемпионата задается квадратной матрицей размерностью 16х16

Собственно задание: расположить команды в порядке уменьшения количества очков. Вывести на экран место, которое заняла команда, ее номер и количество набранных очков. Исходное состояние матрицы определить через типизированную константу-матрицу
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2012, 14:05
Ответы с готовыми решениями:

Известна таблица футбольного чемпионата и список команд-участниц.
Известна таблица футбольного чемпионата и список команд-участниц. В каждой...

таблица футбольного чемпионата
никто не сталкивался с такой задачкой??? тфблица футбольного чемпионата задана...

Таблица футбольного чемпионата
Таблица фудбольного чемпионата задана квадратной матрицей порядка n,в которой...

Таблица футбольного чемпионата
Здравствуйте, очень нужна помощь ваша. Помогите с задачей, пожалуйста. Для меня...

Известна таблица футбольного чемпионата
Известна таблица футбольного чемпионата и список команд-участниц. В каждой...

4
Puporev
Модератор
55490 / 42586 / 29434
Регистрация: 18.05.2008
Сообщений: 100,740
22.12.2012, 14:25 2
Цитата Сообщение от MrVector Посмотреть сообщение
Исходное состояние матрицы определить через типизированную константу-матрицу
Делай сам матрицу из 256 элементов.
1
MrVector
3 / 3 / 0
Регистрация: 25.09.2012
Сообщений: 41
22.12.2012, 15:32  [ТС] 3
извините я кое-что не учел....исходное состояние матрицы нужно сформировать с помощью операторов присваивания,это было ориентировочнее состояние матрицы.
0
Puporev
Модератор
55490 / 42586 / 29434
Регистрация: 18.05.2008
Сообщений: 100,740
22.12.2012, 15:56 4
Но в задании указано
Цитата Сообщение от MrVector Посмотреть сообщение
Исходное состояние матрицы определить через типизированную константу-матрицу
Добавлено через 19 минут
С заполнением рандомно я бы написал так.
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
72
73
uses crt;
const n=16;
var tabl:array [1..n,1..n] of byte;
    sum,nom:array[1..n] of byte;
    m,i,j,k:byte;
begin
randomize;
{заполняем случайно верхнюю часть таблицы 0,1,3}
for i:=1 to n-1 do
for j:=i+1 to n do
 repeat
  tabl[i,j]:=random(4);
 until tabl[i,j] in [0,1,3];
{заполняем симметрично нижнюю часть таблицы}
for i:=2 to n do
for j:=1 to i-1 do
 begin
  if tabl[j,i]=1 then tabl[i,j]:=1
  else tabl[i,j]:=3-tabl[j,i];
 end;
{на главную диагональ запишем ноли}
for i:=1 to n do
tabl[i,i]:=0;
Writeln('Таблица:');
{выводим получившуюся матрицу}
writeln('Исходная таблица:');
write('№':4);
for i:=1 to n do
write(i:4);
writeln(' Очки');
for i:=1 to n do
 begin
  sum[i]:=0;{сумма очков команды}
  nom[i]:=i;{ее номер}
  write(nom[i]:4);
  for j:=1 to n do
   begin
    write(tabl[i,j]:4);
    sum[i]:=sum[i]+tabl[i,j];
   end;
  writeln(sum[i]:4);
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
{сортируем номера команд по убыванию сумм очков}
for i:=1 to n-1 do
for j:=i+1 to n do
if sum[i]<sum[j] then
 begin
  k:=sum[i];
  sum[i]:=sum[j];
  sum[j]:=k;
  k:=nom[i];
  nom[i]:=nom[j];
  nom[j]:=k;
 end;
{выводим получившуюся матрицу}
writeln('Таблица в соответствии с занятыми местами:');
write('№':4);
for i:=1 to n do
write(i:4);
writeln(' Очки Место');
for i:=1 to n do
 begin
  write(nom[i]:4);
  for j:=1 to n do
  write(tabl[i,j]:4);
  write(sum[i]:4);
  writeln(i:4);
 end;
write('Нажмите Enter для выхода');
end.
1
MrVector
3 / 3 / 0
Регистрация: 25.09.2012
Сообщений: 41
22.12.2012, 17:35  [ТС] 5
спасибо большое
0
22.12.2012, 17:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2012, 17:35

Лабиринт задан квадратной матрицей
А29 Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые...

Работа с квадратной матрицей. процедуры и функции
Дана квадратная действительная матрица. Отсортировать по убыванию все строки,...

Выполнить над квадратной матрицей А порядка n последовательность заданных действий.
в общем, дело нехитрое, но у меня, как у обезьяны с гранатой, дела с Паскалем...


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

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

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