|
Вопрос # 6 481/ вопрос закрыт / |
|
Доброго времени суток, уважаемые эксперты!
Программа рисует шарик который куда то катится.. По нажатию на соответствующие клавиши он должен менять направление качения, но чего то ему не хочется, да и вообще после вызова функций из модуля СRT модуль GRAPH не откликается ни на какие понукания.
Сам пример взят с сайта преподавателя чтобы чему то научить, но сам пример работать не хочет. Помогите кто чем может.
Приложение: Переключить в обычный режим- {{code|pascal}}
- Program gr3;
- uses graph,crt;
- var c:char;
- grDriver, grMode,i,x,h: integer;
- begin
- grDriver:=detect;
- InitGraph(grDriver,grMode,'');
-
-
- line(20,453,1250,453);
-
- Setcolor(11);
-
-
- begin
-
- begin
-
- circle(x,430,20);
-
-
- circle(x,430,20);
- delay(100);
-
- begin
-
- if c= 'a' then h:=-10;
- if c= 's' then h:=10;
- end;
- end;
- end;
- readln;
- closegraph;
- end.
- {{/code}}
 |
Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 29 сентября 2013, 07:59
Состояние вопроса: закрыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Здравствуйте, ierihon1!
Цитата (ierihon1):
Я пробовал использовать модуль Graph, без модуля CRT, и о чудо - всё работает. Но как только я хочу чтобы рисовалось по нажатию на какую нибудь кнопку, начинаются проблемы.
Ну и чем я могу помочь?
Скачай себе borland TP 7.0, запусти его по dosbox, скомпили преподский исходник и запусти его там же, из-под dosbox. Если не прокатит, иди к преподу и попроси потребуй показать, как оно всё работает и работает ли вообще.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 29 сентября 2013, 14:33
|
Мини-форум вопроса
Всего сообщений: 34; последнее сообщение — 29 сентября 2013, 17:35; участников в обсуждении: 2.
Страницы: [« Предыдущая] [1] [2]
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 14:22 [#21]:
Да турбо паскаль поставленную проблему решает, оформи как ответ 
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 14:35 [#22]:
Цитата (ierihon1):
Да турбо паскаль поставленную проблему решает, оформи как ответ
Это я могу.
Я - телепат 90 уровня!
З.Ы. Запятые используй, это бесплатно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
29 сентября 2013, 14:35: Статус вопроса изменён на решённый (изменил автор вопроса — ierihon1)
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 14:38 [#23]:
И вот как уговорить препода принимать мои задачи на Delph, если она говорит что я должен писать свои программы на Free Pascal, чтобы научиться программировать, потому что пока я только учусь тому как обойти глюки это долбаной интегрированной среды разработки?
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 14:57 [#24]:
Цитата (ierihon1):
если она говорит что я должен писать свои программы на Free Pascal
Попросить показать пример или несколько примеров, всучив преподу в руки СВОЙ ноутбук. Или доказать, что обучение программированию на Object Pascal будет проходить проще и быстрее на delphi.
Дай преподу ссылку на ветку форума вопроса №6481.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 15:06 [#25]:
Просто в будущем нас ожидает ООП на фри паскале с использованием графики. Например движение молекул газа и т.д. И что то такое будущее мне как то не катит
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 15:22 [#26]:
Цитата (ierihon1):
Просто в будущем нас ожидает ООП на фри паскале с использованием графики. Например движение молекул газа и т.д. И что то такое будущее мне как то не катит
Пиши ПСЖ, видать не в то заведение ты поступил.
Нам было проще: перед нами просто ставили задачу написать программу, которая должна делать определённые действия над входными данными и/или действиями пользователя; причём, никого не волновал даже язык программирования, не то что IDE.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 15:26 [#27]:
Да болт я положил на Единый Гоударственный Екзамен (ЕГЕ), вот и поступил туда куда получилось)
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 15:35 [#28]:
Цитата (ierihon1):
Да болт я положил на Единый Гоударственный Екзамен (ЕГЕ), вот и поступил туда куда получилось)
У вас там в Кемерово, похоже, чиновники от минобразования совсем охренели - отменили букву "Э" русского алфавита! Пройдёт ещё лет 5-10, и, видать, моложёжь даже на заборах в слове из 3 букв будет ошибки делать.
Так и хочется взять красную ручку и исправлять, исправлять, исправлять твои посты!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 16:31 [#29]:
Неее! Год назад, когда я сдал ЕГЕ по русскому языку на пять, я ещё ставил запятые и знал что нет приставки "з" и как пишутся -тся и ться, но год универа это исправил, и теперь гланое писать быстро и не думая
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 16:41 [#30]:
Цитата (ierihon1):
Неее! Год назад, когда я сдал ЕГЕЭ по русскому языку на пять, я ещё ставил запятые и знал, что нет приставки "з" и как пишутся -тся и -ться, но год универа это исправил, и теперь главное писать быстро и не думая.
План Даллеса выполняется.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ierihon1 (статус: 1-ый класс), 29 сентября 2013, 16:45 [#31]:
min@y™: Не не не Я только пиво, и то по выходным, и то не всегда)
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 17:05 [#32]:
Цитата (ierihon1):
Я только пиво, и то по выходным, и то не всегда)
Ты меня не понял.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 29 сентября 2013, 17:35 [#34]:
Цитата (ierihon1):
Вечная проблема "Отцов и детей" не понимание старших поколений И не понимание младших старшими
Да не такой уж я и старый, мне через месяц только 35 должно исполниться.
Цитата (ierihon1):
И не понимание младших старшими
Поясню: я имел в виду "зачем писать сообщения с ошибками, когда можно их писать без ошибок?". Зачем писать слово "экзамен" с буквы "е", например? Пиши, уж, тогда совсем по-олбански - "егзаминЪ". "Неее! Гот нозат када ай здалЪ ЕГЕ па рускаму езыку на пйать, йа истчо ставел зопитыйи и знал шо нет престафки "з" и каг пишуццо -тся и ться но гот универа ето исправел и типерь гланае пейсать быстра и ни думая".
Цитата (ierihon1):
я считаю кощунством исправлять электронный вариант русского языка
Что, у русского языка появились варианты? Весьма прискорбно. Однако, не смотря на то, что мне 35 лет, а по русскому языку (и русской литературе) в аттестате у меня пожизненный трояк, я как писал текст с минимумом ошибок, так и пишу. Может быть, это я какой-то неправильный?
Цитата (ierihon1):
Я тебе как нибудь вышлю конспект по теории функции комплексного переменного - исправляй ошибки в письменном варианте
Нет, спасибо. Конспекты по высшей математике за все 4 семестра у меня сохранились. Да и не путай такую интимную вещь, как конспект, с публичными постами в интернете.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
29 сентября 2013, 17:38: Вопрос закрыт (решение принял min@y™): Тема себя исчерпала.
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
