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

AndrEEvnA · 09.05.2011, 23:47

№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 · 10.05.2011, 10:23

Цитата:

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

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

Посмотрите здесь сходную задачу:
Задача на Паскале

Цитата:

№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 · 11.05.2011, 01:19

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

09.05.2011, 23:47	#1 (permalink)
AndrEEvnA Новичок Регистрация: 09.05.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить несколько задач №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 Буду очень благодарна за любую помощь

11.05.2011, 01:19	#3 (permalink)
AndrEEvnA Новичок Регистрация: 09.05.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное! а с задачей про окружности разобралась уже сама

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070