объясните как решить эту задачу

[person]

эта задача на вложенные циклы:по итогами кругосветной регаты,в которой все участники стартовали одновременно, сформирован протокол. в нем указаны:название яхты,дата финиша в виде число месяца и номер месяца,время финиша в часх и минутах и водоизмещение яхты в тоннах.согласно регламенту регаты победителем является тот, кто первым пришел к финишу.
если несколько регат пришли к финишу одновременно с точностью до часов и минут, победителем признается яхта с наименьшим водоизмещением. определить победителя гонки. предполагается, что все закончили гонку до нового года, год високосный,и у яхт разное водоизмещение.
помогите не могу решить!!!

[Dim...ON]

person, стучись в аську 198-012-696
помогу

[chnry]

Стучись 393877884
Сделаем...

[Хыиуду]

Уууу, как все запущено

Код: Выделить всё

type tYacht: record;
month,day,hour,min,volume: integer;
end;
var yachts: array of tYacht; max: tYacht; i:integer;
begin
max:=yachts[0];
for i:=1 to length(yachts)-1 do
if (yachts[i].month<max.month)
or (yachts[i].month=max.month) and (yachts[i].day<max.day) 
or (yachts[i].month=max.month) and (yachts[i].day=max.day) and (yachts[i].hour<max.hour)
or (yachts[i].month=max.month) and (yachts[i].day=max.day) and (yachts[i].day=max.day) and (yachts[i].min<max.min)
or (yachts[i].month=max.month) and (yachts[i].day=max.day) and (yachts[i].day=max.day) and (yachts[i].min=max.min) and and (yachts[i].volume<max.volume)
then max:=yachts[i];

Только вложеннные циклы здесь НУ НИКАКИМ боком не нужны

[MOTOCoder]

Уууу, как все запущено

Только вложеннные циклы здесь НУ НИКАКИМ боком не нужны

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

[person]

просто мне надо с вложенными циклами я даже не знаю как решать такие

[Хыиуду]

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

[BBB]

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

Ну так все учебные задания в чем-то искусственные. При их решении главное - не получить ответ, а закрепить пройденный материал. Т.е. показать умение использовать те или иные приемы, пройденные на занятиях.

[Turboworld]

Ну так все учебные задания в чем-то искусственные. При их решении главное - не получить ответ, а закрепить пройденный материал. Т.е. показать умение использовать те или иные приемы, пройденные на занятиях.

Дык вот весьма глупо делать что-то бесполезное и нелепое (пусть даже с целью "закрепления полученных знаний"). Любое закрепление будет в разы устойчивее, если применять его на пользу - что-то реальное и/или интересное решать, а не задания типа "от элементов, меньших максимума в главной диагонали матрицы отнять 5, а равные этому максимуму из диагонали умножить на 3" и т.п. Это бредятина сивой кобылы (со стороны преподов), которая кстати не так уж и редка....

[person]

01.03.2008, 19:45
Хыиуду
спасибо вам за ту задачу !!!