|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2008, 21:29 | #1 |
Пользователь
Регистрация: 26.10.2008
Сообщений: 45
|
Проблема с графикой в Паскале...
Не знал в каком разделе создать эту тему, решил сделать сдесь.
Значит вот такая проблема: задали сделать в паскале график, нашел я неплохой вроде самоучитель начал читать, там есть примеры прог, копирую их в файлы пас запускаю, а мне тупо рисует черный экран. Пробовал и на других программах и паскаль переустанавливал из разных источников, все равно одно и тоже. Из-за чего это может быть и что с этим делать? Последний раз редактировалось bygoga; 20.12.2008 в 09:54. |
19.12.2008, 21:58 | #2 |
Пользователь
Регистрация: 12.09.2008
Сообщений: 16
|
может ты неправильно инициализируешь графику? попробуй запусти вот этот код. у меня он работал.
Program Laba_6; Uses Graph,Crt; Const kol=3; m=3600; t=71; Var Driver,Mode:integer; i,j,x,b,y,a:integer; r,p:real; Function f(const x:real; var a: Integer):real; Var i:integer; g:real; Begin g:=1; for i := 1 to t do g := g * cos(x); f := a * sqr(cos(2 * x)); End; procedure Cvetok(const n,k: Integer; var b: Integer); begin for a := 1 to n do begin r:=f(p,a); x:=320+round(10*r*cos(p + k)); y:=240+round(10*r*sin(p + k)); Putpixel(x,y,b); end; end; Begin clrscr; Driver:=detect; InitGraph(Driver,Mode,''); Line(320,0,320,480); Line(0,240,640,240); for b := 1 to 14 do For i:=0 to m do begi if keypressed then exit; p:=pi*i/1800; Cvetok(27,0,b); Cvetok(24,65,b); Cvetok(21,130,b); Cvetok(18,195,b); Cvetok(15,260,b); end; writeln(' ',arctan(2)); readln End. Последний раз редактировалось Лучик_света; 19.12.2008 в 22:03. |
19.12.2008, 22:20 | #3 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
var device,mode:integer;
begin device:=0; InitGraph(Device,Mode,'C:\pascal7\b gi\'); {-самое главное указать правильно!}
Программирование - это великое искусство... Такое же как например и живопись!
|
20.12.2008, 09:55 | #4 |
Пользователь
Регистрация: 26.10.2008
Сообщений: 45
|
Нет, все равно не работает, тупо черный экран(( Может я что-то не так делаю? Может там нужно какие-то дополнительные опции включать чтобы графика работала? А если нет, ожет кто-нить выложит свой паскаль в котором точно графика работает.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с графикой | kminas | Общие вопросы Delphi | 5 | 21.11.2008 00:02 |
help с графикой | SYL@R | Помощь студентам | 3 | 07.07.2008 08:11 |
ПОМОГИТЕ с графикой в ПАСКАЛЕ!! | Marat.kmr | Фриланс | 4 | 05.06.2008 22:22 |
Проблема с масивом в Паскале | SeRhy | Помощь студентам | 2 | 15.11.2007 20:54 |