Паскаль ошибка деления на ноль

uses crt;
var i,k:word;
BEGIN
clrscr;
asm
        mov cx, i             { ; это будет i}
        mov si, k       {; это будет k}
        mov bx, 11      {; число для вычисления модуля}
@l0:
        cmp cx, 199     {; если i больше или равно 199 выходим из цикла}
        jge @ext1
        mov ax, si
        shr ax, 1 {; деление k на 2}
        add ax, cx {; добавляем i}
        xor dx, dx {; очищаем dx для деления}
        div bx  {; делим на 11}
        cmp dx, 5{ ; сравниваем остаток}
        jnz @label2{ ; если не равен 5 - то на label2}
        sub cx, si{ ; иначе i = i - k}
        jmp @l0 ; {в начало цикла}
@label2:
        mov ax, si {; подготавливаем деление}
        xor dx, dx
        mul ax {; умножаем на себя (k*k)}
        mov dx, cx
        shr dx, 1 {; делим i на 2 }
        add ax, dx {; добавляем к резульату k*k}
        mov si, ax {; заносим результат в k }
        jmp @l0 {; в начало цикла}
@ext1:
        {... ; обработка результата}
end;
writeln('REZULTAT-ASSAMBLER');
writeln('k=',k,' i=',i);
readkey;
end.

сам цикл таков

i:=57; k:=19;
   while i<199 do
     if ((i + k div 2) mod 11) = 5 then i:=i-k else k:=k*k+(i div 2)

Сообщение отредактировано: volvo — 18.01.2007 15:18

I’ve FreeDos OS installed on VirtualBox on a windows xp, dual core, host machine. I installed FreeDos because I wanted to run a Pascal code using Turbo Pascal. When I run the code, it throws error ‘Error 200: Division by zero.’. How can I solve this?

-Turbo Pascal 7.0, Free DOS 1.1, Virtual Box 4.3.6, Windows XP Service Pack 3 Host machine
-This error is unfortunately caused by fast Pentium CPUs and I found a patch on the internet that will resolve the error. (www.filewatcher.com/m/bp7patch.zip.62550-0.html) Now the other problem is, when i was tracing the code, it hangs at ‘RxWait procedure when trying to execute while not odd(port[RXTX + 5]) do;’

uses crt;

const
{ COM1: RS232 port address }
RXTX = $3F8; { $2F8 if COM2: is used }
ACK = 6;
NAK = 21;
ESC = 27;

var
dummy,
checkSum : integer;
key : char;
protocol : integer;

procedure InitComm;
{ Set baudrate to 9600, 8 bits, no parity, 1 stop bit }
var i : integer;
begin
i := 1843200 div 9600 div 16;
port[RXTX + 3] := $80;
port[RXTX + 1] := hi(i);
port[RXTX]:= lo(i);
port[RXTX + 3] := 3;
port[RXTX + 4] := $A;
while odd(port[RXTX + 5]) do
begin
dummy := port[RXTX];
delay(10);
end;
end; { InitComm }

procedure Tx(data : integer);
{ Transmit a character on serial channel }
begin
while port[RXTX + 5] and $20 = 0 do;
port[RXTX] := data and $FF;
end; { Tx }

function RxWait : integer;
{ Waits for a character from serial channel }
begin
while not odd(port[RXTX + 5]) do;
RxWait := port[RXTX];
end; { RxWait }

procedure Tx2(data : integer);
{ Transmit a char on serial channel + Calculate check sum }
begin
Tx(data);
checkSum := (checkSum + data) and $FF;
end; { Tx2 }

procedure TxCommand(c1, c2 : char;
sendCheckSum : boolean);
{ Transmit command (no data) on serial channel }
begin
Tx(ESC);
checkSum := 0;
Tx2(ord(c1));
Tx2(ord(c2));
if sendCheckSum then
begin
Tx2(checkSum);
dummy := RxWait;
end;
end; { TxCommand }

function ReadNumber(n : integer) : real;
{ Read n bytes from serial channel }
var
number: real;
i : integer;
begin
number := 0;
checkSum := 0;
for i := 1 to n do
number := number * 256 + RxWait;
dummy := RxWait;
ReadNumber := number;
end; { ReadNumber }

procedure Revisions;
var
tmp : integer;
sw,
prot : real;
begin
TxCommand('P', 'R', FALSE);
checkSum := 0;
tmp := RxWait;
sw := tmp + RxWait / 100.0;
protocol := RxWait;
prot := protocol + RxWait / 100.0;
dummy := RxWait;
tmp := RxWait;
writeln('Software revision: ', sw:4:2);
writeln('Protocol revision: ', prot:4:2);
end; { Revisions }

procedure ReadCountReg;
begin
TxCommand('R', 'C', FALSE);
writeln(ReadNumber(4):11:0, ' coins counted.');
dummy := RxWait;
end; { ReadCountReg }

procedure ReadAccReg;
begin
TxCommand('R', 'A', FALSE);
writeln(ReadNumber(4):11:0, ' coins in accumulator.');
dummy := RxWait;
end; { ReadAccReg }

procedure Setbatch(limit : longint);
begin
TxCommand('W', 'L', FALSE);
case protocol of
1 : begin
Tx2(limit div 256);
Tx2(limit mod 256);
end;
2 : begin
Tx2( limit div 16777216);
Tx2((limit div 65536) mod 256);
Tx2((limit div 256) mod 256);
Tx2( limit mod 256);
end;
end; { case protocol }
Tx2(checkSum);
dummy := RxWait;
end; { Setbatch }

Pascal ABC — это язык программирования, который, как и любой другой, может давать ошибки при компиляции или выполнении программы. В данной статье мы рассмотрим основные ошибки, которые могут возникнуть при работе с Pascal ABC, и способы их устранения.

Ошибки при компиляции программы

Ошибки при компиляции происходят, когда программа не может быть скомпилирована на стадии написания кода. В Pascal ABC компилятор выдает сообщения о том, где возникла ошибка и почему она произошла. Наиболее распространенные ошибки в Pascal ABC:

1. Ошибка синтаксиса

Синтаксические ошибки возникают, когда компилятор не понимает написанный вами текст. Обычно это происходит, когда вы не правильно написали команду, забыли точку с запятой или кавычку. Решить эту проблему достаточно просто — просмотрите текст и исправьте все ошибки, которые увидели.

2. Ошибка объявления переменных

Ошибка объявления переменных возникает, когда вы не объявили переменную или объявили две переменные с одинаковым именем. Чтобы устранить эту проблему, вам необходимо проверить все объявления переменных и убедиться, что имена каждой переменной уникальны.

3. Ошибка присваивания значений

Ошибка присваивания значений происходит, когда вы неожиданно меняете тип переменной. Например, пытаетесь присвоить строку числовому значению. Чтобы исправить эту ошибку, вам необходимо убедиться, что присвоение значений происходит только между переменными, которые имеют одинаковый тип.

Ошибки при выполнении программы

Ошибки при выполнении программы возникают, когда код был успешно скомпилирован, но программа не может быть выполнена по какой-то причине. Наиболее распространенные ошибки в Pascal ABC:

1. Ошибка доступа к памяти

Ошибка доступа к памяти возникает, когда программа пытается получить доступ к памяти, которой у нее нет права использовать. Чаще всего это связано с некорректным выходом за пределы массива или использованием неинициализированных переменных. Чтобы решить эту проблему, вам следует внимательно изучить код и найти места, где вы обращаетесь к массивам или переменным.

2. Ошибка деления на ноль

Ошибка деления на ноль возникает, когда программа пытается поделить число на ноль. Чтобы устранить эту проблему, вам следует найти все операции деления в коде и убедиться, что знаменатель в каждой операции деления не может быть равен нулю.

3. Ошибка файловой системы

Ошибка файловой системы возникает, когда программа пытается работать с файлами, которых не существует или на которые у нее нет права доступа. Чтобы устранить эту проблему, вам следует проверить все операции работы с файлами в программе и убедиться, что все файлы, с которыми работает программа, находятся в нужном месте и имеют правильные настройки доступа.

Заключение

В данной статье мы рассмотрели основные ошибки, которые могут возникать при работе с Pascal ABC, и способы их устранения. Если вы столкнулись с ошибкой, которую не можете устранить, не беспокойтесь — ошибки — это часть процесса программирования. Главное — не опускать руки и продолжать искать решение проблемы!