И того же объекта різні ет
P
Рассмотрим рисунок.
Глядя на картинку, вы вспоминаете вкус и запах фруктов.
А как воспринимают эту картинку другие люди?
Ботаник подумает о том, где и в каких условиях эти фрукты растут.
Повар о том, какие блюда из них можно приготовить.
Фотограф — о сочетании цветов в изображении.
В зависимости от профессии, возраста или характера
каждый из нас, глядя на один и тот же объект, имеет раз-
ные суждения.
Примеры суждений
«Существительное это часть речи», «Бишкек — сто-
лица Кыргызстана», «Первый спутник был запущен в СССР
4 октября 1954 года».​

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: =' -=alphaeus=- ';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.