Разработать программу на языке C++. Дано вещественное число а. Для функции y=f (x), график которой приведён ниже, вычислить f (а).

Для какого наименьшего целого неотрицательного числа А выражение

 

(3x + 5y < A) ∨ (x ≥ y) ∨ (y > 8)

 

тождественно истинно, т. е. принимает значение 1 при любых целых неотрицательных x и y?

Решение.

Решим задачу графически. Условия (x ≥ y) и (y > 8) задают множество, отмеченное на рисунке закрашенной областью. Чтобы исходное выражение было тождественно истинно для любых целых и неотрицательных x и y, прямая 3x + 5y = A должна проходить выше точки (8; 7). Таким образом, наименьшее целое неотрицательное А, удовлетворяющее условию задачи — это A равное 62.

 

Приведем аналитическое решение.

Если истинно одно из выражений (x ≥ y) или (y > 8), то выражение (3x + 5y < A) ∨ (x ≥ y) ∨ (y > 8) истинно независимо от значения А.

Если же оба выражения (x ≥ y) и (y > 8) ложны, то есть при выполнении условий (x < y) и (y ≤ 8), выражение 3x + 5y < A должно быть истинным.

Найдем максимально возможное значение выражения 3x + 5y при выполнении условий (x < y) и (y ≤ 8).

Заметим, что для целых чисел неравенство (x < y) равносильно неравенству (x ≤ y-1). Тогда

 

3x+5y ≤ 3(y-1) + 5y = 8y – 3 ≤ 64 – 3 = 61.

 

Таким образом, должно выполняться условие 61<А, откуда А=62.

 

ответ: 62.

Объяснение:

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.