Олимпиадные задачи по программированию. Ч. 2. Лучшие решения. Ускова О.Ф - 26 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

{сдвинуть месяц на 1 назад}
dec(month);
if leapyear(year) and (month=2) then day:=29
else begin
month1:=month;
if month1<=0 then inc(month1,12);
if month1>12 then dec(month1,12);
day:=Daymonth[month1];
end;
end;
end
else
begin
if date>29 then begin date:=1; Inc(month) end;
if date<=0 then
begin
{сдвинуть месяц на 1 назад}
dec(month);
day:=31;
end;
end;
{проверить месяц}
if month<=0 then begin Dec(year); month:=12; end;
if month>12 then begin Inc(year); month:=1; end;
end;
BEGIN
ReadF;
Incr;
WriteF;
END.
Задача 7. " О НЕПЛАТЕЖАХ "
Эта задача предлагалась на факультетской олимпиаде по информатике
в 1998 году. Ниже приводится решение призёра олимпиады Колбешкина
Дмитрия Михайловича, в настоящее время студента 5 курса факультета
ПММ.
Имеется N предприятий (N<=50) и задана матрица A размером N на N.
Каждый элемент матрицы A[I,J] показывает какую сумму денежных
средств предприятие I должно предприятию J. (Диагональные элементы
матрицы A равны нулю.)
Создать программу для устранения в матрице A всех ситуаций, когда
предприятие I должно предприятию J, а предприятие J должно
предприятию K.
При этом не имеет значения, какое предприятие какому будет должно -
важно, чтобы баланс предприятия (сумма долга или, наоборот, сумма
которую должны предприятию) не изменился.
Технические требования:
Входной файл: INPUТ.ТХТ
Выходной файл: ОUTPUТ.ТХТ
Ограничение времени: 5 секунд
Формат входных данных:
В первой строке входного файла содержится целое положительное число
N. Далее в каждой строке файла содержатся строки матрицы A. Каждая
строка содержит N положительных вещественных чисел - значений
элементов соответствующей строки матрицы A.

Страницы