Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.71
DanUnited
Программист TH
290 / 145 / 7
Регистрация: 06.01.2009
Сообщений: 537
#1

Начинаем рисовать - Turbo Pascal

29.11.2009, 17:27. Просмотров 1808. Ответов 6
Метки нет (Все метки)

Привет всем. Вот простой код:
Pascal
1
2
3
4
5
6
7
8
9
10
...
gd:=VGA;gm:=VGAhi;
InitGraph(gd,gm,'');
if(GraphResult=grOk)then
begin
line(0,0,520,210);
readln;
CloseGraph;
end;
...
Не работает вообще. не выполняется условие:
if(GraphResult..)..
Может это потому, что у меня Виста ?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 17:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Начинаем рисовать (Turbo Pascal):

Как рисовать многоугольники - Turbo Pascal
Как в паскале нарисовать правильные многоугольники(октаэдры,дотекаэдры и т.д.)? Можно ли рисовать многогранники в Паскале?

Рисовать прямую на плоскости черту - Turbo Pascal
переведить на pascal #include <windows.h> #include <graphics> #include <stdio.h> using namespace std; int main() { ...

рисовать треугольник по координатам вершин - Turbo Pascal
Помогите плз Процедура позволяет рисовать треугольник по координатам вершин трёх точек. Нарисовать прямоугольный треугольник.

Рисовать квадрат в квадрате, что бы делил стороны на 0.08 - Turbo Pascal
Задачу в общем то я решил, только вот хотелось сделать одно усовершенствование, которое не знаю как сделать. В общем я хочу, что бы все...

ошибка в проге(( должна рисовать канатную дорогу... - Pascal
Program DorogaShow; uses crt, Graph; type TPoint=Object X,Y:Integer; Visible: Boolean; Color:...

Как правильно рисовать график функции на Pascal? - Pascal
Здравствуйте, помогите нарисовать график, достался чужой код, с Pascal'ем давно не работал. не могу понять две вещи: 1. как...

6
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
29.11.2009, 17:29 #2
Цитата Сообщение от DanUnited Посмотреть сообщение
Не работает вообще
что это значит?не работает всмысле ошибка при компиляции или выбивает в windows?
0
DanUnited
Программист TH
290 / 145 / 7
Регистрация: 06.01.2009
Сообщений: 537
29.11.2009, 17:38  [ТС] #3
Нет, просто не работает, компилирует но не работает.
Если сделать так:
Pascal
1
2
3
4
5
6
7
8
9
gd:=VGA;gm:=VGAhi;
InitGraph(gd,gm,'');
if(GraphResult=grOk)then
begin
line(0,0,520,210);
readln;
CloseGraph;
end else
Writeln('Не шарит');
То на экране выведет "Не шарит"
0
indivisible_int
0 / 0 / 0
Регистрация: 29.11.2009
Сообщений: 3
29.11.2009, 17:57 #4
А программа находит соотвествующий драйвер? Можно написать так
Pascal
1
InitGraph(gd,gm,'c:\progra~1\tp7\bgi');
где 'c:\progra~1\tp7\bgi' - путь к папке с графическими драйверами
0
DanUnited
Программист TH
290 / 145 / 7
Регистрация: 06.01.2009
Сообщений: 537
29.11.2009, 18:12  [ТС] #5
видимо нет.
Я прописал как C:\Program Files\TURBO PASCAL 7.1\BGI
И нифига тоже. Кстати он ругался на подключение Graph, исправилося когда я в папку BIN его перенес, скопировал )))
0
tururui
32 / 32 / 2
Регистрация: 06.10.2009
Сообщений: 108
12.12.2009, 00:49 #6
Pascal
1
2
3
4
5
6
7
8
9
10
Uses Graph;
var
 GraphDriver,GraphMode: integer;
 Begin
   GraphDriver:=detect;
  InitGraph(GraphDriver,GraphMode,'..BGI');
  line(0,0,520,210);
  readln;
  CloseGraph;
  end.
0
Franz Crawl
5 / 5 / 0
Регистрация: 22.09.2010
Сообщений: 104
21.11.2010, 16:00 #7
У меня такой код
Pascal
1
2
3
4
5
6
7
8
9
USES Graph;
VAR GraphDriver,GraphMode:Integer;
BEGIN
GraphDriver:=0;
InitGraph(GraphDriver,GraphMode, 'C:\Program Files\TURBO PASCAL 7.1\BGI');
Circle(100,80,50);
ReadLn;
CloseGraph;
END.
Graph.TPU находится в папках BGI, BIN, UNITS.В директории прописано C:\Program Files\TURBO PASCAL 7.1\UNITS.Но при компиляции выводит в дос: BGI Error: Graphics not initialized (use InitGraph)

Что делать?

Добавлено через 4 часа 23 минуты
Проблема устранилась легко: School Pak
0
21.11.2010, 16:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2010, 16:00
Привет! Вот еще темы с ответами:

написать программу, которая будет рисовать этот график - Turbo Pascal
(интеграл от 0 до 2Пи) ((x^3)*sin^2 x dx) нужно написать программу, которая будет рисовать этот график не могу понять как...

напишите программу на паскале котрая будет рисовать картинку - Pascal
надо написать программу которая будет рисовать рисунок

Написать программу, которая будет рисовать на форме звезду по щелчку мыши - Turbo Pascal
Приложение «Звезды» Написать программу, которая будет рисовать на форме звезду по щелчку мыши. В месте щелчка должен быть центр...

Процедура позволяет рисовать треугольник по координатам вершин трёх точек. Нарисовать прямоугольный треугольник, и равнобедренный - Turbo Pascal
помогите пожалуйста решить, срочно нужно на экзамен...жду вашей помощи) 1)Процедура позволяет рисовать треугольник по координатам вершин...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru