forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать. (http://forum.boolean.name/showthread.php?t=13349)

IDOL 1234 15.09.2010 01:28
Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
Вложений: 1
Поднял конспекты по паскалю. Попытался избавиться от быдлокода, но в итоге приобрёл лишь рантайм еррор С++ и перманентный вылет на компиляции. Я так и не понял, чем он был вызван, но через полчаса шаманства МП смилостивился и сбавил цену до Internal error #015. Что за?..

ViNT 15.09.2010 02:12
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
Нужно, всего лишь, поставить type перед yzel=record.
А так конечно, у компилятора шарики за ролики заезжают.

IDOL 1234 15.09.2010 21:46
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
неа
Internal error #015
исчезает только при удалении процедуры paint. По-моему, что-то не так с drawline(a.x,a.y,b.x,b.y);.

ViNT 15.09.2010 22:36
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
Цитата:
Сообщение от IDOL 1234 (Сообщение 162213)
неа
Internal error #015
исчезает только при удалении процедуры paint. По-моему, что-то не так с drawline(a.x,a.y,b.x,b.y);.
Тьфу, напутал.
Дело в процедуре, тип объявлен как yzel, а в процедуре параметр типа uzel, нужно одинаково сделать, тогда не матерится.

IDOL 1234 15.09.2010 23:56
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
ааа!.. точно. Спасибо, что-то я не подумал о такой ерунде.

General 20.09.2010 20:21
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
Вижу, обсуждается 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

cherepets 20.09.2010 20:28
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
а в мп есть тип double?

General 20.09.2010 20:31
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.
 
ой! спасибо большое :)
Делфийская привычка


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot