24.10.2010, 15:53 | #1 (permalink) |
Новичок
Регистрация: 24.10.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
График функции в Паскале
помогите пожалста очень надо |
24.10.2010, 15:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не стоит откладывать прочтение схожих тем График в Excel'e График на Турбо-Паскале График функций Функции на Паскале |
24.10.2010, 19:17 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses Graph, CRT; VAR i,j:INTEGER; S:String; x,y:Real; BEGIN InitGraph(<параметры задайте сами>); Line(20,465,620,465); Line(320,5,320,465); SetTextStyle(DefaultFont,HorizDir,1); SetTextJustify(CenterText,TopText); FOR i:=0 TO 20 DO begin Line(20+i*30,455,20+i*30,465); If (i mod 2)=0 then begin Str((i-10)/10:4:1,S); OutTextXY(20+i*30,470,S); end; end; SetTextJustify(RightText,CenterText); FOR i:=0 TO 19 DO begin Line(320,5+i*23,330,5+i*23); Str((-i)/20*2.3:4:1,S); OutTextXY(315,5+i*23,S); end; SetLineStyle(SolidLn,0,ThickWidth); MoveTo(20,5+ROUND(-460*(-2)/2.3)); For i:=-99 to 100 do begin x:=i/100; y:=SQR(x)+x-2; LineTo(20+300+ROUND(x*300),5+ROUND(-460*y/2.3)); end; ReadKey; CloseGraph; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|