Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачки на графики
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kr3v3tkus
23.12.2005 4:41
ужасные задачи ((( проверьте плз правильно или нет(особливо 3)

Составить программу , которая выдает одно из сообщений «Да», «Нет», «на границе» в зависимости от того, лежит ли точка внутри зашрихованной области, вне ее или на границе

Код
program lol;  
var x,y,z:integer;  
begin  
writeln('vvesti x i y');  
readln(x,y);
if ((sqrt(x*x+y*y)=3)and(y>=0)) then writeln('na granice')
else    
if ((sqrt(x*x+y*y)<3)and(y>=0)) then writeln('da') else writeln('net');  
readln;  
end.


Код
program lol;  
var x,y,z:integer;  
begin  
writeln('vvesti x i y');  
readln(x,y);  
if ((sqrt(x*x+y*y)=9)and(x>=0)) then writeln('na granice')  
else  
if ((sqrt(x*x+y*y)<3)and(y>=0)) then writeln('da') else writeln('net');  
readln;  
end.


Код
program lol;  {'ппц ((('}
var x,y,z:integer;  
begin  writeln('vvesti x i y');  
readln(x,y);  
if (abs(sqrt(x*x+y*y))=10)and((y<=10)and(y>=5)))or(abs(sqrt(x*x+y*y))=5)and((y<=10)and(y>=5))) then writeln('na granice')  
else    
if (((abs(sqrt(x*x+y*y))<=10)and(abs(sqrt(x*x+y*y))>=5))and((y<=10)and(y>=5))) then writeln('da') else writeln('net');  
readln;  
end.
volvo
23.12.2005 14:20
Вторая тоже не совсем верно:
program lol;  
var x,y,z:integer;  
begin  
  writeln('vvesti x i y'); readln(x,y);
  if ((sqrt(x*x+y*y)=9)and(x>=0)) then writeln('na granice')
  else
    if ((sqrt(x*x+y*y)<9)and(x>0)) then writeln('da')
    else writeln('net');
  readln;
end.


Ну, а в третьей, по-моему, будет достаточно:
program lol;
  var x,y:integer;
begin
  writeln('vvesti x i y'); readln(x,y);
  if (((sqrt(x*x+y*y) = 10) or (sqrt(x*x+y*y) = 5)) and (x > 0)) or
     ((((y <= 10) and (y >= 5)) or ((y <= -5) or (y >= -10))) and (x = 0)) then writeln('na granice')
  else
    if (((sqrt(x*x+y*y) < 10) or (sqrt(x*x+y*y) > 5)) and (x > 0)) then writeln('da')
    else writeln('net');  
  readln;  
end.
kr3v3tkus
23.12.2005 22:44
сенка, щас с остальными треугольниками и всяими остальными штуками мучаца буду( завтра сдавать уже а мне ещё около 40 задач ( ээх (
kr3v3tkus
23.12.2005 23:29
Нажмите для просмотра прикрепленного файла
опять засада ( покажите пожайлуста на примере любого из кругов и треугольника как решить задачу плз. условие такоеже. Я просто не знаю как делать, они однотипные, мнебы хоть по примерчику(
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.