Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
Формальная модель описывает движение тела ,используются формулы, уравнения, неравества, приближенные математические методы. Компьютерная модель выраженна на понятном языке программирования,она позволяет: визуализировать траекторию движения тела,а также реализовать интерактивный диалог человека с компьютером на этапе исследования модели.
1. 111111 - 77 - 63 - 3F
2. 1001001 - 111 - 73 - 49
3. 1 0000 0000 - 400 - 256 - 100
4. 10101010 - 252 - 170 - AA
Var
x1,x2,y1,y2,P,S,a,b:integer;
Begin
Write('Введите X1,Y1,X2,Y2 ');
Readln(x1,y1,x2,y2);
a:=x1-x2;
b:=y1-y2;
if a<0 then a:=-a;
if b<0 then b:=-b;
p:=(a+b)*2;
s:=(x1-x2)*(y1-y2);
if s<0 then s:=-s;
Write('S = ',s,' | P = ',p);
<span>End. </span>