Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
обычный человек
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 3
1

Выделить цветом побочную диагональ

29.12.2010, 21:21. Просмотров 962. Ответов 2
Метки нет (Все метки)

здравствуйте! подскажите, пожалуйста, как при выводе матрицы выделить цветом её побочную диагональ? заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 21:21
Ответы с готовыми решениями:

Подскажите как мне выделить цветом главную диагональ
есть программа Из двумерных массивах A и В сделать два одномерных массива из средних...

Найти наибольший элемент, лежащий на главной диагонали. Главную диагональ выделить красным цветом
Дана целочисленная квадратная матрица А порядка N (N - заданное натуральное число). Найти...

Считать из файла побочную диагональ
Задание: Нужно записать двухмерный массив Ann в файл. Потом из этого массива считать элементы...

Побочную диагональ упорядочить по убыванию
сформировать произвольного размера квадратную матрицу А .элементы тех столбцов, сумма которых...

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

2
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.12.2010, 21:29 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
Uses
 CRT;
Const
 nmax=20;
var
 a:array[1..nmax,1..nmax] of integer;
 i,j,n:integer;
Begin
repeat
 Write('Ââåäèòå êîë-ГўГ® ñòðîê ГЁ ñòîëáöîâ: ');
 Readln(n);
until n in [1..nmax];
randomize;
for i:= 1 to n do
 begin
  for j:=  1 to n do
   begin
    a[i,j]:=random(10)-5;
    if j=n-i+1 then
     textcolor(3)
    else
     textcolor(0);
    write(a[i,j]:3);
   end;
   writeln;
 end;
Readln
End.
1
обычный человек
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 3
29.12.2010, 22:23  [ТС] 3
SuPeR XaKer, Спасибо большое Вам =)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2010, 22:23

Заменить побочную диагональ матрицы нулями
Заполнить с клавиатуры квадратную матрицу порядка n (n>=6). Заменить побочную диагональ нулями.

Написать программу которая меняет местами главную и побочную диагональ матрицы
Написать программу которая меняет местами главную и побочную диагональ матрицы

Выделить нужный текст другим цветом цветом
как выделить a,a, a другим цветом


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

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

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