Две лабы: файл - обработать слова; массив - найти три наибольших элемента за один проход ( Delphi )

[Emma_Imp]

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

Лаб №1.
Имеется файл, содержащий слова и файл, содержащий в символьном виде целые числа.Вывести в третий файл только строки первого файла с числом слов, равных соответствующим значениям, во втором файле и не имеющих слов палиндромов.

Лаб №2.
Составить процедуру печатующую 3 наибольших элемента массива за один его просмотр.

[xwicked]

Сообщение от Emma_Imp

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

Лаб №1.
Имеется файл, содержащий слова и файл, содержащий в символьном виде целые числа.Вывести в третий файл только строки первого файла с числом слов, равных соответствующим значениям, во втором файле и не имеющих слов палиндромов.

Лаб №2.
Составить процедуру печатующую 3 наибольших элемента массива за один его просмотр.

Я буду Вам больше благодарен, если Вы покажете, хоть чуть-чуть наработочек или ждите других добрых людей, которые Вас не смогут отправить во фриланс-путешествие .

[Johnson]

По извращенным фантазиям преподов сюда - http://programmersforum.ru/forumdisplay.php?f=31
В этом разделе по большей части практические проблемы...

[Stilet]

Составить процедуру печатующую 3 наибольших элемента массива за один его просмотр.

С потолка предположу что так:

procedure kuku(a:array of integer);
var max:array[1..3] of integer;i:integer;
begin
 for i:=low(a) to high(a) do begin
  if a[i]>max[1] then max[1]:=a[i]
  else if a[2]>max[2] then max[2]:=a[i]
          else if a[3]>max[3] then max[3]:=a[i];
 end;
end;

[Johnson]

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

[Serge_Bliznykov]

тему переименовал и перенёс...
не закрыл за нарушения исключительно из уважения к отписавшимся форумчанам...