|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2009, 13:41 | #1 |
Регистрация: 08.01.2009
Сообщений: 8
|
Проблема с real !
Уважаемые прграммисты !
Я написал программу, но она не выводит точку (sector). Если делать с integer то всё работает ! Но мне надо с real чтобы были десятичные числа ! Подскажите где ошибка ! Program uzd1; Uses graph,crt; {podklu4enije graf.modula} const radius=1; ox=-1; oy=-1; Var r,x,y,e,midx,midy:integer; var a,b,c,d:real; Begin clrscr; writeln('Vvedite to4ki'); read(a,b); if ((a=0) and (b>=0) and (b<=2)) or ((b=0) and (a>=0) and (a<=2)) or ((b=2) and (a>=0) and (a<=2)) or {Pravij kvadrat} ((a=2) and (b>=0) and (b<=2)) or ((b=0) and (a<=-2) and (a>=-4)) or ((b=2) and (a<=-2) and (a>=-4)) or {Levij kvadrat} ((a=-2) and (b>=0) and (b<=2)) or ((a=-4) and (b>=0) and (b<=2)) then writeln('To4ka nahoditsa na liniji') else if ((a>0) and (a<2) and (b<2) and (b>0)) or ((a>-4) and (a<-2) and (b<2) and (b>0)) or (a=-1) and (b=-1) then writeln('v figure') else writeln('To4ke ne v figure'); if sqr(a-ox)+sqr(b-oy) = radius then writeln('To4ka na liniji'); {Krug} x:=detect;{opredelenije graf. draivera} InitGraph(x,y,' ');{inicializacija grafiki} e:=graphresult; if e<>grok then writeln ('ERROR'); CLEARDEVICE; SETCOLOR(1); MOVETO(GETMAXX DIV 2, GETMAXY DIV 2); OUTTEXTXY(GETX, GETY,'0'); midx:=getmaxX div 2; midy:=getmaxy div 2; Line(0, round(GetMaxY/2), GetMaxX, Round(GetMaxY/2));{goriz. linija} Line(round(GetMaxX/2), 0, Round(GetMaxX/2), GetMaxY); {vertikalnaja linija} Rectangle(midx-400,midy+0,midx-200,midy-200); rectangle(midx - 0,midy - 200 ,midx + 200 , midy + 0 ); Circle (midx-100, midy+100,100); SetfillStyle(5,brown); floodfill(midx-100,midy+100,blue); floodfill(midx+100,midy-100,blue); floodfill(midx-300,midy-100,blue); setcolor(green); outtextxy(midx+5,midy-200,'+2'); outtextxy(midx-200,midy-10,'-2'); outtextxy(midx+200,midy-10,'+2'); outtextxy(midx-400,midy-10,'-4'); outtextxy(midx+5,midy+200,'-2'); Setfillstyle(1,4); setcolor(4); Sector (midx+x*100,midy-y*100,0,360,4,4); readkey; Readln; CloseGraph; {zakritie grafiki} End. |
13.01.2009, 14:04 | #2 |
Регистрация: 08.01.2009
Сообщений: 8
|
спасибо уже не надо !
|
13.01.2009, 19:08 | #3 |
Регистрация: 08.01.2009
Сообщений: 8
|
К сожалению с кругом не выходит ! Когда пишу -1.1 и -1.2 пишет что точка не в фигуре хотя точка в фигуре !
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Str to Real и Real to Str | Zeraim | Общие вопросы Delphi | 4 | 27.11.2008 01:07 |
Переменные REAL | Terabit | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 03.11.2008 21:26 |
Форматировние real | MasterofCDM | Общие вопросы Delphi | 2 | 23.09.2008 10:02 |
real to string | terminadoor | Помощь студентам | 6 | 28.07.2008 09:27 |
как перевести из integer в real(и обратно), и из real в string(и обратно) | Ga-sergey | Общие вопросы Delphi | 2 | 08.06.2007 21:13 |