Моя программа предупреждает меня о недоступном коде pascal - PullRequest
Новая
       99

Моя программа предупреждает меня о недоступном коде pascal

5 голосов
/ 09 мая 2020

, почему его pascal дает мне недостижимый код на дорожках (8,21) и (8,12). Я не знаю, почему это простой код для преобразования восьмеричного числа из трех цифр в десятичное. Программа все в порядке b c дает мне правильный результат, но я не знаю, почему free pascal дает мне недостижимый код в этом разделе программы. Я использую 3.0.4 бесплатно pascal на Linux, я использую только команду, которую я опубликовал для компиляции, я не изменяю ничего из бесплатного pascal Я использую следующую команду для компиляции fpc -Co -Cr -Miso -gl

PROGRAM Ejercicio21;
VAR decimal,octal,a,b,c:integer;
BEGIN
    writeln('Ingrese el valor decimal: ');
    readln(octal);
    a:=(octal div 100);
    b:=(octal mod 100) div 10;
    c:=octal mod 10;
    decimal:=(a*sqr(8)+(b*8)+c);
    writeln('Octal',octal,'=',decimal); 
END.
...