Как запустить fpc?
Добавлено: 28.09.2011 16:54:01Как запустить на линуксе fpc? Когда ввожу fpc в терминал, он зачем-то выдает помощь. fpc установлен с официального репозитория.
Страница 1 из 1
Добавлено: 28.09.2011 16:54:01Re: Как запустить fpc?
Добавлено: 28.09.2011 17:00:40fp
Re: Как запустить fpc?
Добавлено: 28.09.2011 19:41:25Спасибо. А как включить режим совместимости с Turbo Pascal?
Re: Как запустить fpc?
Добавлено: 28.09.2011 23:02:17{$MODE TP}
подробнее, например здесь http://freepascal.ru/article/freepascal/20050418121644/ и здесь viewtopic.php?f=5&t=6530
чтение мануалов и google помогает более быстрому развитию. Так, по крайней мере, говрят
подробнее, например здесь http://freepascal.ru/article/freepascal/20050418121644/ и здесь viewtopic.php?f=5&t=6530
чтение мануалов и google помогает более быстрому развитию. Так, по крайней мере, говрят
Re: Как запустить fpc?
Добавлено: 29.09.2011 07:47:15Благодарю. А русский язык в нем имеется?
Re: Как запустить fpc?
Добавлено: 29.09.2011 13:12:41sgasgar1 писал(а): А русский язык в нем имеется?
А русский язык имеется в операционной системе, язык программирования тут совершенно не при чём.
Для того, чтобы получать сообщения об ошибках на русском языке, необходимо найти файл настроек "fpc.cfg", открыть его для редактирования, найти в этом файле название "errore.msg" и вместо неё написать "errorr.msg", а в самом начале удалить символ "#".
Re: Как запустить fpc?
Добавлено: 03.10.2011 16:54:03Написал простенькую программку для нахождения корней квадратного уравнения.
http://i28.fastpic.ru/big/2011/1003/1c/ ... 763a1c.png
Можно ли вместо трех if применить один case?
З.Ы. И как отключить маленькое окошко, которое вылезает при каждом нажатии на экран?(No Browser info availible)
http://i28.fastpic.ru/big/2011/1003/1c/ ... 763a1c.png
Можно ли вместо трех if применить один case?
З.Ы. И как отключить маленькое окошко, которое вылезает при каждом нажатии на экран?(No Browser info availible)
Re: Как запустить fpc?
Добавлено: 05.10.2011 02:14:56- Код: Выделить всё
case d of
Low(Integer)..-1 : { d < 0 };
0 : {d = 0};
1..High(Integer) : { d > 0 }
end;