|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.12.2010, 16:43 | #1 |
Регистрация: 16.11.2010
Сообщений: 2
|
Деление на нуль при запуске
Здравствуйте господа!!!
Пишу программу выводящую на экран цветной текст. Компилирует успешно, однако при запуске выдает Error 200: Division by zero. Однако в коде такого нет. Подскажите, пожалуйста, что делать. Заранее спасибо. Компилятор стандартный Borland Pascal 7.0 Вот листинг: program lab; uses Crt,Graph; var Driver,Mode,Error,Font,Direct,Size: integer; begin ClrScr; Driver:=Detect; InitGraph(Driver,Mode,''); Error:= GraphResult; if Error<>0 then Writeln(GraphErrorMsg(Error)) else begin Font:=GothicFont; Direct:=HorizDir; Size:=32; SetBkColor(green); SetColor(Yellow); SetTextStyle(Font,Direct,Size); OutTextXY(320,240,'Hello World!!!'); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выходить при запуске! | WizarD.89 | Microsoft Office Access | 6 | 06.12.2010 20:43 |
как поставить ограничение на число нуль а не на символ нуль??? | Dr.Swat | Помощь студентам | 0 | 12.06.2010 20:35 |
Ошибка при запуске | wowan.mix | Помощь студентам | 1 | 16.05.2010 13:06 |
Ограниченный тип 0..11 сброс в нуль при перепонении | Alex Cones | Общие вопросы Delphi | 4 | 14.01.2010 11:56 |
деление при помощи mmx команд | Tecka | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 19.12.2009 20:09 |