Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Реализация алгоритмов ветвления

Автор: Merlin 31.10.2005 17:52

Это программа написана для этого графика (Задача_1) :

Код

Program Uslovie;
Var x, y: real;
f1, f2, f3: boolean;
Begin    
write (‘Введите координаты точки х и у: ’);
readln (x,y);
f1:=(x>=0) and (y>=0) and (x*x + y*y <=36);
f2:=(x>=0) and (y<=0) and (y>=x-6);
f3:=f1 or f2;
If f3 then writeln(‘Заданная точка принадлежит данной области’)
else writeln(‘Заданная точка не принадлежит данной области’);
readln;
End.




Не могу определить второе условие ( f 2 ) на графике (Задача_2), помогите чем сможете.
Program Uslovie;
  Var
    x,y : real;
   f1: boolean;
Begin
  write ( ' Введите координаты точки x и y ' );    
  readln(x,y);
f1:=(x<=0) and (y<=0) and (x+y<=16);



Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение

Автор: volvo 31.10.2005 18:07

А по-моему ты ошибся. Я бы делал так:

Program Uslovie;
Var
  x,y : real;
  f1, f2, f3: boolean;
Begin
  write ( ' Введите координаты точки x и y ' );    
  readln(x,y);
  f1 := (x<=0) and (y<=0) and (x+y <= -4); { вместо того, что было у тебя }
  f2 := ((sqr(x) + sqr(y)) <= 25);
  f3 := f1 and f2; { именно AND а не OR }
...