Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2008, 21:29   #1
bygoga
Пользователь
 
Регистрация: 26.10.2008
Сообщений: 45
По умолчанию Проблема с графикой в Паскале...

Не знал в каком разделе создать эту тему, решил сделать сдесь.
Значит вот такая проблема: задали сделать в паскале график, нашел я неплохой вроде самоучитель начал читать, там есть примеры прог, копирую их в файлы пас запускаю, а мне тупо рисует черный экран. Пробовал и на других программах и паскаль переустанавливал из разных источников, все равно одно и тоже. Из-за чего это может быть и что с этим делать?

Последний раз редактировалось bygoga; 20.12.2008 в 09:54.
bygoga вне форума Ответить с цитированием
Старый 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
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

var device,mode:integer;
begin
device:=0;
InitGraph(Device,Mode,'C:\pascal7\b gi\'); {-самое главное указать правильно!}
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Старый 20.12.2008, 09:55   #4
bygoga
Пользователь
 
Регистрация: 26.10.2008
Сообщений: 45
По умолчанию

Нет, все равно не работает, тупо черный экран(( Может я что-то не так делаю? Может там нужно какие-то дополнительные опции включать чтобы графика работала? А если нет, ожет кто-нить выложит свой паскаль в котором точно графика работает.
bygoga вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с графикой 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