Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Консультации по информатике

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 293 RSS
←   Январь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

Автор
Калашников О.А.

Статистика

293 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Гаряка Асмик
Статус: Профессор
Рейтинг: 6538
∙ повысить рейтинг » 		Абаянцев Юрий Леонидович aka Ayl
Статус: Профессионал
Рейтинг: 2275
∙ повысить рейтинг » 		Лиджи-Гаряев Владимир
Статус: Профессионал
Рейтинг: 1935
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:203
Дата выхода:02.01.2011, 23:00
Администратор рассылки:Калашников О.А. (Руководитель)
Подписчиков / экспертов:136 / 132
Вопросов / ответов:1 / 0

Вопрос № 181663: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: Задача: нужно определить, попадает ли точка в в указанные сектора: <...

Вопрос № 181663:

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Задача: нужно определить, попадает ли точка в в указанные сектора:

R=33, a=33, b=20.
Программа написана в паскале, компиляция проходит, но не запускается (exited with exitcode=207):
Просьба исправить ошибку, что бы программа работала правильно.

Код:
Program Shema;
Uses crt,Graph;
const r=33;
      a=33;
      b=20;
Var driver,mode:integer;
    x0e,y0e,x0k,y0k:real;
    dx,yk,ye,yp:real;
    k:integer;
    x,y:real;
    x1,y1,x2,y2:real;
    ak,pr:intege
 r;
    menu:boolean;
    key:char;

procedure vivod;
begin RestoreCRTMode;
      clrscr;
      pr:=0;
      writeln('основные данные: ');
      writeln;
      writeln('координаты центра окружности: ');
      writeln('x0k= ',x0k:3:3,' y0k= ',y0k:3:3);
      writeln('координаты центра эллипса : ');
      writeln('x0e= ',x0e:3:3,' y0e= ',y0e:3:3);
      writeln;
      writeln('координаты точки  пересечения
эллипса и круга: x= ',x1:3:3,'; y= ',y1:3:3);
      writeln('координаты пересечения круга и прямой: x= ',x2:3:3,'; y= ',y2:3:3);
      writeln;
      writeln('радиус окружности  r= ',r);
      writeln('параметр эллипса a= ',a);
      writeln('параметр эллипса  b= ',b);
      writeln;
      writeln('нажмите любую клавишу для продолжения.');
      readkey;
      setgraphmode(getgraphmode);
 
end;

procedure proverka;
begin restorecrtmode;
      clrscr;
      writeln('‚ввод координат проверяемой точки.');
      writeln;
      write('‚введите абциссу проверяемой точки: x= ');
      readln(x);
      write('‚введите ординату проверяемой точки: y= ');
      readln(y);
      pr:=0;
      if (x<(x0k+r))and(x>(x0e-a))and(y<y1)and(y>(y0e-b))
         then begin if x>0
                       then k:=-1
              
        else k:=1;
                    yk:=k*sqrt(r*r-sqr(x-x0k))+y0k;
                    ye:=b*k*sqrt(1-(sqr(x-x0e)/(a*a)))+y0e;
                    yp:=(((x-x1)*(y2-y1))/(x2-x1))+y1;

                    if (x<0)and(y>0)and(y<yp)and(y<ye)
                       then pr:=1
                       else if (x>0)and(y<0)and(y>yk)and(y>ye)
                               then pr:=2
                               else pr:=3;

              end
         else pr:=3;

      writeln;
      writeln('нажмите любую клавишу для продолжения.');
      readkey;
      setgraphmode(getgraphmode);
end;

begin clrscr;
      x0k:=-34+r;
      y0k:=round((-39+sqrt(r*r-sqr(0-x0k)))*1000)/1000;
      y0e:=40-b;
      x0e:=round((37-a*sqrt(1-sqr(0-y0e)/sqr(b)))*1000)/1000;

      dx:=x0e-a;
      repeat
            begin ye:=b*sqrt(1-sqr(dx-x0e)/sqr(a))+y0e;
                  yk:=sqrt(r*r-sqr(dx-x0k))+y0k;

                 dx:=dx+0.0001
            end;
      until ye<yk;
      x1:=dx;
      y1:=yk;

      x2:=round((sqrt(r*r-sqr(0-y0k))-x0k)*1000)/1000;
      y2:=0;

      driver:=detect;
      initgraph(driver,mode,'graph.tpu');
      ak:=1;
      menu:=false;
repeat
      setcolor(8);
      moveto(0,150); lineto(300,150);
      moveto(150,0); lineto(150,300);

      outtextxy(295
 ,140,'X');
      outtextxy(155,5,'Y');

      circle((round(x0k)*2+150),((-2)*round(y0k)+150),r*2);
      elli
pse((round(x0e)*2+150),((-2)*round(y0e)+150),0,360,a*2,b*2);

      moveto((round(x1)*2)+157,(round(y1)*(-2))+146);
      lineto((round(x2)*2)+139,(round(y2)*(-2))+150);

      setfillstyle(1,red);
      floodfill(150-2,150-2,8);
      setfillstyle(1,1);
      floodfill(150+2,150+2,8);

      outtextxy(320,50,'на схеме обозначены:');
      outtextxy(320,70,'красным область А');
      outtextxy(320,90,'Синим область В');
      outtextxy(320,110,'белой
точкой-проверяемая точка ');

      if pr<>0
         then putpixel(round(x)*2+150,150-round(y)*2,15);
      if pr=1
         then outtextxy(220,230,'Проверяемая точка лежит в области А');
      if pr=2
         then outtextxy(230,230,'Проверяемая точка лежит в области В');
      if pr=3
         then outtextxy(230,230,'Проверяемая точка не лежит ни в одной области');


      if ak=1
        
  then begin setcolor(red);
                    rectangle(50,350,270,370);
                    setfillstyle(1,1);
                    floodfill(52,352,4);
                    setcolor(7);
              end
         else begin setcolor(0);
                    rectangle(50,350,270,370);
                    setfillstyle(1,0);
                    floodfill(52,352,0);
                    setcolor(7);
              end;
      if ak=2
         then begin setcolor(red);
   
                rectangle(50,370,270,390);
                    setfillstyle(1,1);
                    floodfill(52,372,4);
                    setcolor(7);
              end
         else begin setcolor(0);
                    rectangle(50,370,270,390);
                    setfillstyle(1,0);
                    floodfill(52,372,0);
                    setcolor(7);
              end;
      if ak=3
         then begin setcolor(red);
   
                  rectangle(50,390,270,410);
                    setfillstyle(1,1);
                    floodfill(52,392,4);
                    setcolor(7);
              end
         else begin setcolor(0);
                    rectangle(50,390,270,410);
                    setfillstyle(1,0);
                    floodfill(52,392,0);
                    setcolor(7);
              end;
      Outtextxy(55,355,'‚ввести координаты точки');
      Outtextxy(55,375,'основные
данные');
      Outtextxy(55,395,'‚Выход из программы ');

      Outtextxy(25,425,'Клавиша z- сдвиг вниз');
      Outtextxy(25,435,'Клавиша а- сдвиг вверх');
      Outtextxy(25,445,'Клавиша enter - выбор');

      key:=readkey;
      if (key='z')and(ak<3)
         then ak:=ak+1;
      if (ak>1)and(key='a')
         then ak:=ak-1;

      if (key=#13)and(ak=3)
        
  then menu:=true;
      if (key=#13)and(ak=2)
         then vivod;
      if (key=#13)and(ak=1)
         then proverka;

      cleardevice;

until menu;

end.


Простите за некачественное фото. По X точка пересечения окружности -30, эллипса -18. По Y окружность -34, эллипс -27

Заранее спасибо

Отправлен: 28.12.2010, 22:43
Вопрос задал: Посетитель - 356254 (Посетитель)
Всего ответов: 0
Страница вопроса »

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »

Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.

Полный список номеров »

* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2010.6.25 от 13.12.2010
В избранное