15.11.2012, 19:53 | #1 (permalink) |
Новичок
Регистрация: 15.11.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Turbo Pascal, сетка и фигура
Код:
uses Graph; var i: byte; Ys: string; x0,y0:integer; dx,dy:integer; h,w:integer; x,y:integer; lx,ly:real; dlx,dly:real; st:string; cross:integer; dcross:integer; grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver:=VGA; grMode:=VGAHi; InitGraph(grDriver, grMode,'c:\tp7\bin'); ErrCode := GraphResult; if ErrCode <> grOk then Halt(1); x0:=50; y0:=450; dx:=40; dy:=40; dcross:=3; dlx:=0.5; dly:=1; h:=500; w:=600; lx:=0; ly:=0; cross:=dcross+1; Line(x0,y0,x0,y0-h); Line(x0,y0,x0+w,y0); x:=x0; repeat line(x,y0-3,x,y0+3); cross:=cross-1; if cross = 0 then begin Str(lx:0:1,st); OutTextXY(x-8,y0+5,st); cross:=dcross; end; lx:=lx+dlx; SetLineStyle(DottedLn, 0, NormWidth); Line(x,y0-3,x,y0-h); SetLineStyle(SolidLn, 0, NormWidth); x:=x+dx; until (x>x0+w); y:=y0; repeat line(x0-3,y,x0+3,y); Str(ly:0:1,st); OutTextXY(x0-40,y,st); ly:=ly+dly; SetLineStyle(DottedLn, 0, NormWidth); Line(x0+3,y,x0+w,y); SetLineStyle(SolidLn, 0, NormWidth); y:=y-dy; until (y<y0-h); Readln; CloseGraph; end. Код:
Circle(x+165,y+164,30); Rectangle(x+115,y+115,x+215,y+215); Line(x+230,y+230,x+100,y+100); LineTo(x+100,y+230); LineTo(x+230,y+100); Rectangle(x+230,y+230,x+100,y+100); Circle(x+165,y+117,18); Circle(x+118,y+162,18); Circle(x+213,y+162,18); Circle(x+167,y+212,18); |
15.11.2012, 19:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее созданные топики могут содержать нужные ответы Turbo Pascal Turbo Pascal |
15.11.2012, 21:56 | #2 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Ну надо добавить после сетки...
В первой программе, в конце перед readln |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|