Задача 1:
var a,r: double;
begin
writeln('Введите сторону квадрата a');
readln(a);
writeln('Введите радиус круга r');
readln(r);
writeln('Площадь фигуры: ',a*a-Pi*r*r);
end.
Задача 2:
var a, b, c, D, x1, x2: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=b*b-4*a*c;
if D>=0 then
begin
if (sqrt(D)=0) then
begin
x1:=-b/(2*a);
write('Один корень ',x1:0:2);
end
else
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);
end
end
else write('Корней нет');
end.
(X → Y ) ∨ ((X ∧ ¬Z) → T )
Все выражение принимает значение ложь, если оба выражения по результату дизъюнкции будут ложными.
1. Рассмотрим первое выражение в скобках X → Y
Импликация ложна, когда Х=1, а Y=0.
2. Рассмотрим второе выражение в скобках
(X ∧ ¬Z) → Т. Оно состоит из двух частей.
Результат конъюнкци X ∧ ¬Z должен быть истиной. Х=1 из первого пункта. Чтобы X ∧ ¬Z был истиной, инверсия Z должна должна быть тоже истиной. Значит, Z=0.
Имеем, что X ∧ ¬Z истина.
Импликация (X ∧ ¬Z) и Т будет ложна, если Т=0.
Таким образом, из первого пункта следует, что
X= 1
Y=0
Из второго
Z=0
T=0
Таблица истинности (скрин) прикрепляется.
