Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 15.09.2010, 01:28   #1
IDOL 1234
ПроЭктировщик
 
Аватар для IDOL 1234
 
Регистрация: 22.11.2009
Сообщений: 137
Написано 8 полезных сообщений
(для 8 пользователей)
Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

Поднял конспекты по паскалю. Попытался избавиться от быдлокода, но в итоге приобрёл лишь рантайм еррор С++ и перманентный вылет на компиляции. Я так и не понял, чем он был вызван, но через полчаса шаманства МП смилостивился и сбавил цену до Internal error #015. Что за?..
Вложения
Тип файла: 7z 3d.7z (34.6 Кб, 417 просмотров)
__________________
---
(Offline)
 
Ответить с цитированием
Старый 15.09.2010, 02:12   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

Нужно, всего лишь, поставить type перед yzel=record.
А так конечно, у компилятора шарики за ролики заезжают.
(Offline)
 
Ответить с цитированием
Старый 15.09.2010, 21:46   #3
IDOL 1234
ПроЭктировщик
 
Аватар для IDOL 1234
 
Регистрация: 22.11.2009
Сообщений: 137
Написано 8 полезных сообщений
(для 8 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

неа
Internal error #015
исчезает только при удалении процедуры paint. По-моему, что-то не так с drawline(a.x,a.y,b.x,b.y);.
__________________
---
(Offline)
 
Ответить с цитированием
Старый 15.09.2010, 22:36   #4
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

Сообщение от IDOL 1234 Посмотреть сообщение
неа
Internal error #015
исчезает только при удалении процедуры paint. По-моему, что-то не так с drawline(a.x,a.y,b.x,b.y);.
Тьфу, напутал.
Дело в процедуре, тип объявлен как yzel, а в процедуре параметр типа uzel, нужно одинаково сделать, тогда не матерится.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
IDOL 1234 (15.09.2010)
Старый 15.09.2010, 23:56   #5
IDOL 1234
ПроЭктировщик
 
Аватар для IDOL 1234
 
Регистрация: 22.11.2009
Сообщений: 137
Написано 8 полезных сообщений
(для 8 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

ааа!.. точно. Спасибо, что-то я не подумал о такой ерунде.
__________________
---
(Offline)
 
Ответить с цитированием
Старый 20.09.2010, 20:21   #6
General
AnyKey`щик
 
Регистрация: 20.09.2010
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

Вижу, обсуждается Internal error #015, задам и свой вопрос по этой ошибке. Экспериментирую с MidletPascl'ем, программу с использованием чистых переменных удалось сделать, а вот только хочу с записями работать, как получается что-то странное.

Создаю запись типа TVS (самолёт это будет) и процедуру того, как этот самолёт будет смещаться при шаге времени dt
program Udaff;

type
TVS=record
 rx:real;
 ry:real;
 c:real;
 v:real;
end;

var VS1:TVS;

procedure TVSStep(dt:double);
var vx:real;
vy:real;
begin
   vx:=VS1.v*cos(VS1.c);
   vy:=VS1.v*sin(VS1.c);
   VS1.rx:=VS1.rx+vx*dt;
   VS1.ry:=VS1.ry+vy*dt;
end;

begin

end.
При компиляции выдаются сообщения:
> using generated record R_0.class
> Fatal error: Internal error #015

и ERROR

Если закомментировать процедуру TVSStep, то компилируется нормально.

Объясните, пожалуйста, в чём тут дело? Версия IDE 3.1
(Offline)
 
Ответить с цитированием
Старый 20.09.2010, 20:28   #7
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

а в мп есть тип double?
(Offline)
 
Ответить с цитированием
Старый 20.09.2010, 20:31   #8
General
AnyKey`щик
 
Регистрация: 20.09.2010
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

ой! спасибо большое
Делфийская привычка
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 12:15.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com