Закраска элементов в таблице

@Marat_Syapin · Регистрация: 06.05.2019

Студворк — интернет-сервис помощи студентам

Доброго дня, господа товарищи. Нужен совет. Есть программа:

Pascal

const m=20;
var i, j, k, l: integer;
a:array[1..m,1..m] of integer;
begin
  for i:=1 to m do
   begin
     for j:=1 to m do
     begin
       a[i,j]:=i*i+j*j;
       if i=j then
         TextColor(LightRed) 
         else TextColor(black);
       write(a[i,j]:6);
     end;
     writeln;
   end;
end.

вот, она закрашивает элементы главной диагонали, а в таблице есть некоторые элементы, которые равны тем, что на главной диагонали, как сделать так, чтобы они тоже были красными?

@JuriiMW · 15.08.2019, 14:33

Marat_Syapin, неправда ваша:

в „таблице“, заполненной данным способом нет элементов равных элементам на главной диагонали!

@Marat_Syapin · 15.08.2019, 15:25 **[ТС]**

JuriiMW, а я говорю, ЕСТЬ, стоит только ПОВНИМАТЕЛЬНЕЕ посмотреть

@JuriiMW · 15.08.2019, 16:36

Хорошо!
Тогда вот так:

Pascal

uses crt;
const m=20;
begin
  var a := matrgen(m,m,(r,c)->sqr(r+1)+sqr(c+1));
  var b := a.Rows.Select((r,c)->r.toArray[c]);
  for var row := 0 to m-1 do
     begin
       for var col := 0 to m-1 do
         begin
           TextColor(b.Contains(a[row,col])?LightRed:LightGray);
           Write(a[row,col]:4);
         end;
       WriteLn;
     end;
end.

@Marat_Syapin · 15.08.2019, 23:42 **[ТС]**

JuriiMW, вы просто волшебник))) спасибо огромное!!!

@JuriiMW 5065 / 2637 / 2348 Регистрация: 10.12.2014 Сообщений: 10,003
	15.08.2019, 14:33	2
	Marat_Syapin, неправда ваша: в „таблице“, заполненной данным способом нет элементов равных элементам на главной диагонали! 0

@Marat_Syapin 1 / 1 / 0 Регистрация: 06.05.2019 Сообщений: 31
	15.08.2019, 15:25 [ТС]	3
	JuriiMW, а я говорю, ЕСТЬ, стоит только ПОВНИМАТЕЛЬНЕЕ посмотреть 0

@Marat_Syapin 1 / 1 / 0 Регистрация: 06.05.2019 Сообщений: 31
	15.08.2019, 23:42 [ТС]	5
	JuriiMW, вы просто волшебник))) спасибо огромное!!! 0

Опции темы

Закраска элементов в таблице

Решение