2 задачи на Delphi

[Vishez]

Приветствую! Осталось сделать всего 2 задачи, но сроки поджимают - помогите, пожалуйста, сделать к пятнице!
1 задача :
В память компьютера вводятся по очереди координаты N точек. Определить , сколько из них попадает в кольцо с внутренним радиусом R1 и внешним R2. Обе окружности имеют общий центр с координатами X0 и Y0. Результаты обработки выдать на печать. Записать на дискету координаты точек, попавших в кольцо.
2 задача :
Дана целочисленная матрица [Aij],где i,j=1,...,n. Получить
b1,..,bn, где bi — это
max Aij * min Aij .
1<= j<=n 1<=i<=n
Составить программу. Ввод исходных данных осуществить из файла на диске. Вывод по желанию пользователя программы либо на экран дисплея, либо на печать или в файл на диске.

[RSLoader]

1 задача: советую сделать так:
1) Создай тип данных запись, в которой будут храниться координаты твоих точек;
2) Создай массив, состоящий из N таких записей.
3) Создай файл, например, текстовый, на диске a:
4) Создай цикл вроде этого:

for i:=1 to n do
  begin
    s:=sqrt(sqr(a[i].x-x0)+sqr(a[i].y-y0));
    if (s>r1) and (s<r2) then writeln(f,a[i].x,' ',a[i].y);
  end;

Здесь s - расстояние от точки до центра кольца, которое по условию должно быть больше внутреннего радиуса, но меньше внешнего. a[i] - тот самый массив записей - координат точек. f - файл, уже созданный нами на дискете.
По первой вроде всё, только осталось непонятно: результаты обработки чего выдавать на печать?
2 задача
Ну тут всё совсем просто:
Создай два целочисленных массива: одномерный и двумерный.
Двумерный массив - это матрица A, а одномерный - это вектор b.
Пройдись циклом по строкам матрицы и присваивай соответствующему элементу b значение max Aij * min Aij. Чтобы найти максимальный (минимальный) элемент в строке, нужно
создать цикл, в котором поставить условие: если текущий элемент матрицы больше (меньше) некой переменной max (min), то присваиваем переменной max (min) значение текущего элемента.

[Vishez]

А можно поподробнее про "Ввод исходных данных осуществить из файла на диске"?

[SunCHO]

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

[Vishez]

Есть, я знаю ввод из текстового файла, я хотел именно для этой программы, а то не совсем понятно

[RSLoader]

Если ещё нужно, то ввод матрицы из файла можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
type
  Mas=array[1..n,1..n]of Integer;
var
  f:file of Mas;
  a:Mas;
begin
  AssignFile(f,'massiv.txt');
  Reset(f);
  Read(f,a);
  CloseFile(f);
  {действия с матрицей}
end;