Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2012, 01:40   #1
Kagero
 
Регистрация: 28.10.2012
Сообщений: 3
Плохо Определить по введенным с клавиатуры координатам точки.ДЕЛФИ.

Помогите решить задачу ?
разработать программу, позволяющую определить по введенным с клавиатуры координатам точки.
Я попытался написать программу на Делфи,но не выходит,в чем ошибки?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,y:Real;

begin
Writeln('Vvedite x');
Readln (a);
Writeln('Vvedite y');
Readln (b);
y:=a;


if((b=-1) and (a<=-6) and (a>=-7)) Or
   ((b>=0) and (b<=-1) and (a<=-4) and (a>=-6)) Or
   ((b<=2) and (b>=0) and  (a>=-4) and (a<=0) and (b=sqrt(2-a*a))) Or
   ((b>=-1) and (b<=0) and (a>=0) and (a<=2) and (b=sqrt(1-a*a))) Or
   ((b>=-1) and (b<=0) and (a>=2) and (a<=3))
   then
Writeln('Prenodlegit') else Writeln('Ne prenodlegit');

Readln;

end.
Изображения
Тип файла: png 3й.png (27.6 Кб, 66 просмотров)

Последний раз редактировалось Stilet; 11.11.2012 в 13:32.
Kagero вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить по введенным с клавиатуры координатам точки Kagero Помощь студентам 1 28.10.2012 22:06
определить принадлежность точки к заштрихованной области (турбо делфи) alexanderrrr Помощь студентам 2 16.06.2012 18:25
Выбор значений по условиям, введенным с клавиатуры ikrukov Microsoft Office Access 7 16.03.2012 01:40
По введённым координатам точки M(x,y) определить,принадлежит ли она графику указанной функции Repz1992 Помощь студентам 12 28.10.2009 19:35