Цитата:
Сообщение от C00LeR
Здраствуйте я не могу решить задачу на Delphi,помогите пожалуйста!!!
Таблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 2, 1 или 0 (число очков, набранных в игре: 2 – выигрыш, 1 – ничья, 0 – проигрыш). Определить номера команд, проведших чемпионат без поражений.
помогите ,очень нужно....заранее благодарен
|
Попробую. Правда это будет скорее Паскаль, нежели Делфи, но уж чем богаты. Программу сохраните в виде *.dpr, должна пойти.
Поскольку в Делфи нет консольного ввода и вывода, а программировать окно мне недосуг, будем считать, что исходная матрица сидит в файле 'InP', и в файл же ('OutP') выводим результат.
CONST
N = 10;
VAR
A:ARRAY[1..N,1..N] of BYTE;
B:ARRAY[1..N] of BYTE;
i,j,p:BYTE;
f:TEXTfile;
BEGIN
AssignFile(f,'InP');
ReSet(f);
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO N DO
Read(f, A[i,j]);
ReadLn(f);
END;
CloseFile(f);
AssignFile(f,'OutP');
ReWrite(f);
WriteLn(f,'Team numbers are:');
FOR i:=1 TO N DO
BEGIN
p:=0;
FOR j:=1 TO N DO
IF A[i,j]=0 THEN INC(p);
IF p=1 THEN Write(f, i:4);
END;
Writeln(f);
CloseFile(f);
END.