Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.54/37: Рейтинг темы: голосов - 37, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14

Паскаль в линукс\висте

06.09.2009, 14:10. Показов 7577. Ответов 30
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет.Возникла проблема в том что не могу запустить паскаль с модульем граф на висте 64 битной.По этому пробывал на лиунксе тоже не вышло.Люди добрые помогите установить! Хр не предлагать!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.09.2009, 14:10
Ответы с готовыми решениями:

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin cx:=round(length*cos(angle)); end; ...

Паскаль и Линукс
Кто знает скажите пожалуйста! может ли этот код на паскале, работать в линуксе? program sun; uses crt,graph; Var gd,gm:integer; ...

Как поставить паскаль на линукс?
Совсем недавно начал пользоваться линукс, еще очень мало о нем знаю. Вот на этой неделе только заметил что у меня нету паскаля на нем. И...

30
 Аватар для dim-hj
28 / 25 / 1
Регистрация: 28.07.2009
Сообщений: 109
08.09.2009, 11:22
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от EnzoMatrix Посмотреть сообщение
при желании можно сделать чтобы сразу после запуска эмулятора запускался паскаль, раз досбокс нужен только для него
Вот как раз для этого есть уже готовые решения.
0
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14
08.09.2009, 17:23  [ТС]
Цитата Сообщение от dim-hj Посмотреть сообщение
Вот как раз для этого есть уже готовые решения.
решения в студию =)
0
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14
08.09.2009, 22:38  [ТС]
СкулПак.1.2 все время вылетает, а в 1.1 не могу запустить граф оО
0
 Аватар для dim-hj
28 / 25 / 1
Регистрация: 28.07.2009
Сообщений: 109
09.09.2009, 09:04
Pascal
1
InitGraph(Gd, Gm, 'x:\bp');
так инициализируется графика?
0
Of Wolf and Man
 Аватар для Xentar
999 / 198 / 5
Регистрация: 09.07.2008
Сообщений: 1,784
09.09.2009, 10:42
dim-hj, если паскаль запускается в досбоксе, а для маунта выбрана папка c:\bp, то ваше 'x:\bp' превращается в просто 'x:\'
Насколько я помню букву диска x можно поменять при маунте.

Abyss, насколько я помню для графики нужен файл Graph.tpu
По умолчанию этот файл лежит в папке BGI, но в разных версиях паскаля может находится в разных папках. Папки необходимо прописать в меню "опции -> каталоги" (у меня Русский паскаль, по английский точно так же называется)
Если папку там укажите то в Initgraph(gd,gm,'<здесь не надо будет ничего указывать>'); а можно просто поставить ''.

PS: Graph.tpu - стандартный модуль графики, так же есть некоторые нестандартные, которых много, тот же Graph32.tpu, но по мне так самый правильный это всё таки Graph.tpu - он удобный.
0
 Аватар для dim-hj
28 / 25 / 1
Регистрация: 28.07.2009
Сообщений: 109
09.09.2009, 14:11
Скрипты инициализации обычно запускаются из директории C:\Program Files\SchoolPak и монтируют в качестве x pak. Соответственно, x получается C:\Program Files\SchoolPak\pak. Внутри pak стоят разные программы: Turbo Pascal, Norton Commander, Hiew, Avputil, русификаторы и ещё немного всячины.

Так или иначе, должно быть X:\BP.

У меня есть идея, которую обязательно стоит попробовать. Накатаю резидентик типа APPEND.COM, чтобы InitGraph работал с любым третьим параметром.
0
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14
09.09.2009, 14:34  [ТС]
пробывал и X:\BP и С:\BP и прописывал полностью путь типа С:\скулПак\шо-то там..всеравно не хочет(
0
 Аватар для dim-hj
28 / 25 / 1
Регистрация: 28.07.2009
Сообщений: 109
09.09.2009, 14:41
С:\... не надо пробовать

Код в студию.
0
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14
09.09.2009, 14:55  [ТС]
код программы?
0
 Аватар для dim-hj
28 / 25 / 1
Регистрация: 28.07.2009
Сообщений: 109
09.09.2009, 14:57
Цитата Сообщение от Abyss Посмотреть сообщение
код программы?
Ага.

Такая программа работает?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses Graph;
 
var
  ErrorCode        : Integer;
  GrDriver, GrMode : Integer;
 
begin
  GrDriver := Detect;
  InitGraph(GrDriver, GrMode, 'X:\BP');
  ErrorCode := GraphResult;
  if ErrorCode <> grOk then
  begin
    WriteLn('Ошибка инициализации графики:');
    WriteLn(GraphErrorMsg(ErrorCode));
    Halt(1);
  end;
  ClearDevice;
  SetColor(White);
  Rectangle(0, 0, GetMaxX, GetMaxY);
  Line(0, 0, GetMaxX, GetMaxY);
  Line(0, GetMaxY, GetMaxX, 0);
  ReadLn;
  CloseGraph;
end.
1
0 / 0 / 0
Регистрация: 06.09.2009
Сообщений: 14
09.09.2009, 15:39  [ТС]
да роботает.уже все заработало,странно писал же именно так х:\бп.хз
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.09.2009, 15:39

Си/Си++/Линукс, тесты на тему управления памятью и работе с ос линукс, папками и каталогами
Создал его в гугл формах, там вопросы об управлении памятью и тест по работе с ос Линукс, папками и каталогами. Заранее благодарю всех...

Подскажите пожалуйста как правильно Grub в линукс Федоре настроить, чтобы ещё и второй линукс Мандриву можно было загружать.
КАк мне в линукс Федора в начальный загрузчик Grub вписать ещё второй линукс, чтобы при загрузки компа мне можно было бы выбирать между...

Автозагрузка на Висте
Здравствуйте, форумчане. Прошу помощи. Как реализовать автозагрузку, в Windows Vista, но и чтобы на ХР паралельно работала, при нажать на...

Инет на висте по Wi-Fi
Помогите! Я Отчаялся! Вообще суть в том, что есть ноут HP pavilion 5 1048 с Вистой HP, Роутер D-link 2640U. Инет работает по Wi-Fi, все...

Builder 6 на Висте и Семерке
Мне интересно как работает данный компилятор на висте и новой операционной системе Windows 7, не кто не пробовал точней не создавал на нем...


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

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
Новые блоги и статьи
ИИ и человечность
kumehtar 21.07.2026
Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .
Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ...
Hrethgir 20.07.2026
К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .
Установка нескольких штампов электронной подписи в строго определенных местах файла docx
ВладимирСамохин 19.07.2026
(В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .
сукцессия 35. Научная статья о проделанной работе
anaschu 19.07.2026
Написал в формате латекс и пдф
Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер.
Hrethgir 19.07.2026
Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ По ссылке 403. Не очень информативно такую ссылку постить. Запись от Usaga размещена Сегодня в 06:46 . . .
сукцессия 33. открытые вопросы от клауде
anaschu 19.07.2026
"Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия
anaschu 19.07.2026
сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .
сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических
anaschu 18.07.2026
Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru