Помогите решить несколько задач

[AndrEEvnA]

Помогите решить несколько задач

№1.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Предполагается, что либо числа каждой пары объединены в записи и компонентами файла являются эти записи, либо числа занесены в файл по отдельности и чередуются в файле в следующем порядке: целое, действительное, целое, действительное... Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом не менее 30 кг.
№2.
Даны действительные числа a,b. Получить u=min(a,b), v=min(ab,a+b), min(u+v^2, 3.14)
№3.
Даны две окружности с радиусами 1 и 0.5 и заштрихованная плоскость между ними (меньшая окружность наложена на большую). Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной плоскости. Задачу решить используя function

Буду очень благодарна за любую помощь

 

[Vladimir_S]

№1.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Предполагается, что либо числа каждой пары объединены в записи и компонентами файла являются эти записи, либо числа занесены в файл по отдельности и чередуются в файле в следующем порядке: целое, действительное, целое, действительное... Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом не менее 30 кг.

Посмотрите здесь сходную задачу:
http://www.tehnari.ru/f43/t43132/

№2.
Даны действительные числа a,b. Получить u=min(a,b), v=min(ab,a+b), min(u+v^2, 3.14)

VAR
 a,b,u,v,w:Real;

Function Minim(m1,m2:Real):Real;
begin
 If m1<m2 then Minim:=m1 else Minim:=m2;
end;

BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 u:=Minim(a,b);
 v:=Minim(a*b,a+b);
 w:=Minim(u+Sqr(v),3.14);
 Writeln('Min(a,b)= ',u:9:3);
 Writeln('Min(ab,a+b)= ',v:9:3);
 Writeln('Min(u+v^2,3.14)= ',w:9:3);
 Readln;
END.

№3.
Даны две окружности с радиусами 1 и 0.5 и заштрихованная плоскость между ними (меньшая окружность наложена на большую). Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной плоскости. Задачу решить используя function

Буду очень благодарна за любую помощь

Требуется рисунок либо координаты центров окружностей.

 

[AndrEEvnA]

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