var x,y: integer;
var min,max: Real;
var Z: real;
var step: Real;
begin
writeln('Введите x: ');
readln(x);
writeln('Введите y: ');
readln(y);
if x<=0 then
begin
max:= x+y;
if max<((x*y)/2) then
begin
max:= (x*y)/2;
writeln('Max: ', max);
end;
else
begin
for i:=1 to 0.5 do step:=step*(x*0.5);
min:= step;
if(min > (x+y)/2) then
min:= (x+y)/2;
writeln('Min: ', min);
end;
end;
end.
НАДЕЮСЬ СМОГ ОБЪЯСНИТЬ ;)
Объяснение:
Круги Эйлера это удобный представления информации с множествами чисел и их общими частями, с данных кругов можно решать многие задачи.
Алгоритм решения задач:
1) понять условие задачи и обозначить множества в виде кругов
2) понять что нужно найти
3) решить задание
Рассмотрим на примере задачи (условие во вложении)
Найти: количество страниц по запросу "рыбка"
нарисуем два множества: "рыбак" и "рыбка" (смотреть вложения)
множество "рыбак" – A
множество "рыбка" – B
По условию задачи:
• Рыбак | рыбка = A + B - C = 780
• Рыбак = A = 260
• Рыбак & рыбка = C = 50
из множества "Рыбак | Рыбка" выведем множество "рыбка"
B = 780 - A + C
B = 780 - 260 + 50 = 570
ответ: 570 запросов
var
i: integer;
begin
i:=1;
while i<>length(s) do
if s[i]=' ' then delete(s, i, 1) else inc(i);
dellprobels:=s;
end;
Вот эту функцию добавляешь в начало программы. Обращаться к ней: "dellprobels(переменная)". Если есть вопросы, пиши.