Кракозябры вместо строк

[Мизантроп_ЛоЛ]

Модуль:

unit lab3unit;
interface
 type TKomp_chis=object
       z:string[10];
       procedure vvod(var Zdeis, Zmnim: integer);
       function slojenie(a1, b1, a2, b2:integer):string;
       function vichitanie(a1, b1, a2, b2:integer):string;
       function umnojenie(a1, b1, a2, b2:integer):string;
       function delenie(a1, b1, a2, b2:integer):string;
      end;
var deis, mnim: string[3];
    code: integer;
implementation
 procedure Tkomp_chis.vvod(var Zdeis, Zmnim: integer);
 var i, j: byte;
     a, b: string[3];
     znak: char;
 begin
  write ('Vvedite kompleksnoe chislo: ');
  readln (z);
  i:=0;
  j:=0;
  while i<length(z) do
   begin
   i:=i+1;
    if ((ord(z[i])>=48) and (ord(z[i])<=57)) then
     a[i]:=z[i]
    else
     if ((z[i]='+') or (z[i]='-')) then
      znak:=z[i]
     else
      if z[i]='i' then
       while i<length(z) do
        begin
         i:=i+1;
         j:=j+1;
         b[j]:=z[i];
        end;
   end;
  val(a,Zdeis,code);
  if znak='+' then
   val(b,Zmnim,code)
  else
   begin
    val(b,Zmnim,code);
    Zmnim:=-Zmnim;
   end;
 end;


 function Tkomp_chis.slojenie(a1, b1, a2, b2:integer):string;
 var a, b: string[3];
     c:string[10];
 begin
  str(a1+a2,a);
  str(b1+b2,b);
  if b1+b2<>0 then
   begin
    if b1+b2>0 then
     insert('+',b,1);
     insert('i',b,2);
   end;
  slojenie:=concat(a,b);
 end;


 function Tkomp_chis.vichitanie(a1, b1, a2, b2:integer):string;
 var a, b: string[3];
     c:string[10];
 begin
  str(a1-a2,a);
  str(b1-b2,b);
  if b1-b2<>0 then
   begin
    if b1-b2>0 then
    insert('+',b,1);
    insert('i',b,2);
   end;
  vichitanie:=concat(a,b);
 end;


 function Tkomp_chis.umnojenie(a1, b1, a2, b2:integer):string;
 var a, b: string[3];
     c:string[10];
 begin
  str((a1*a2)-(b1*b2),a);
  str((a1*b2)+(b1*a2),b);
  if (b1*a2)+(b2*a1)<>0 then
   begin
    if (a1*b2)+(b1*a2)>0 then
    insert('+',b,1);
    insert('i',b,2);
   end;
  umnojenie:=concat(a,b);
 end;


 function Tkomp_chis.delenie (a1, b1, a2, b2:integer):string;
 var chisA, chisB, znam: integer;
     a, b: string[3];
     c:string[10];
 begin
  if ((a2<>0) and (b2<>0)) then
   begin
    chisA:=(a1*a2)-(b1*(-b2));
    chisB:=(a1*(-b2))+(b1*a2);
    znam:=sqr(a1)+sqr(b1);
     if chisA mod znam=0 then
      str(chisA/znam,a)
     else
      begin
       str(chisA,a);
       insert('/',a,length(a));
       str(znam,c);
       insert(c,a,length(a));
      end;
     if chisB mod znam=0 then
      str(chisB/znam,b)
     else
      begin
       str(chisB,b);
       insert('/',b,length(b));
       str(znam,c);
       insert(c,b,length(b));
      end;
     if (chisB)<>0 then
      begin
       if (chisB/znam)>0 then
       insert('+',b,1);
       insert('i',b,2);
      end;
    delenie:=concat(a,b);
   end;
  else
   write('Delit na 0 nelzya!');
 end;


 begin
 end.

Программа:

program lab3;
uses crt, lab3unit;
var zdeis1, zmnim1, zdeis2, zmnim2: integer;
    znak: string[5];
    otvet: string[10];
    Komp_chis: TKomp_chis;
begin
 clrscr;
 write ('Vvedite deistvie v vide "z1?z2": ');
  readln (znak);
 with Komp_chis do
  begin
   vvod(zdeis1,zmnim1);
   vvod(zdeis2,zmnim2);
   case znak[3] of
    '+': otvet:=slojenie(zdeis1, zmnim1, zdeis2, zmnim2);
    '-': otvet:=vichitanie(zdeis1, zmnim1, zdeis2, zmnim2);
    '*': otvet:=umnojenie(zdeis1, zmnim1, zdeis2, zmnim2);
    '/': otvet:=delenie(zdeis1, zmnim1, zdeis2, zmnim2);
   end;
  end;
 write ('Otvet - ',otvet);
 readln;
end.

Проблема в следующем. Вместо строк a и b появляются какие-то кракозябры и программа не корректно работает. Компилятор TP7.
Пы.Сы. А почему в PascalABC не распознаёт объектный тип?
Спасибо за потраченное время

Вот скрин:
Прога.jpg

[eoln]

Кракозябры из-за различия в кодировках. В Windows обычно 1251, а в DOS (TP для доса) 866. Запускать лучше из под DOSBox'a с руссификатором.
В чём эта некорректность заключается? На корректность работы этой программы кодировка не должна влиять.
По поводу PascalABC, так в топку его, ставь FreePascal или Lazarus

[Мизантроп_ЛоЛ]

Сообщение от eoln

Кракозябры из-за различия в кодировках. В Windows обычно 1251, а в DOS (TP для доса) 866. Запускать лучше из под DOSBox'a с руссификатором.

Как это сделать?)

В чём эта некорректность заключается? На корректность работы этой программы кодировка не должна влиять.

В том что переменным Zdeis и Zmnim не передаётся никакого значения из за такой хрени. Попробуй запустить и пошагово выполнить отслеживая a, b, Zdeist и Zmnim (вроде этих достаточно) и увидишь.

По поводу PascalABC, так в топку его, ставь FreePascal или Lazarus

Он мне больше нравится. Интерфейс попроще и красивее. Но видимо менее функциональный =\

[Stilet]

Как это сделать?)

Установить DosBOX и почитать к нему инструкцию. Там написано как запускать старые программы. Плюс возможно понадобится настроить Досбокс на кириллицу (тоже там же читать)

почему в PascalABC не распознаёт объектный тип?

Там вместо object нужно писать class если не ошибаюсь.

[Мизантроп_ЛоЛ]

Сообщение от Stilet

Установить DosBOX и почитать к нему инструкцию. Там написано как запускать старые программы. Плюс возможно понадобится настроить Досбокс на кириллицу (тоже там же читать)

А это только для русских букв? А то мне там надо только цифры.

[Stilet]

Это касается всех, что не попадают под кодировку Latin-1. Русских, украинских букв. Цифры пройдут конечно же.

[Мизантроп_ЛоЛ]

Сообщение от Stilet

Это касается всех, что не попадают под кодировку Latin-1. Русских, украинских букв. Цифры пройдут конечно же.

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

[Serge_Bliznykov]

Мизантроп_ЛоЛ,
по-первых, выложенный вами исходник имеет опечатку, из-за которой вообще не компилируется:

function Tkomp_chis.delenie (a1, b1, a2, b2:integer):string;
 var chisA, chisB, znam: integer;
     a, b: string[3];
     c:string[10];
 begin
  if ((a2<>0) and (b2<>0)) then
   begin
    chisA:=(a1*a2)-(b1*(-b2));
    chisB:=(a1*(-b2))+(b1*a2);
    znam:=sqr(a1)+sqr(b1);
     if chisA mod znam=0 then
      str(chisA/znam,a)
     else
      begin
       str(chisA,a);
       insert('/',a,length(a));
       str(znam,c);
       insert(c,a,length(a));
      end;
     if chisB mod znam=0 then
      str(chisB/znam,b)
     else
      begin
       str(chisB,b);
       insert('/',b,length(b));
       str(znam,c);
       insert(c,b,length(b));
      end;
     if (chisB)<>0 then
      begin
       if (chisB/znam)>0 then
       insert('+',b,1);
       insert('i',b,2);
      end;
    delenie:=concat(a,b);
   end;
  else
   write('Delit na 0 nelzya!');

потом, что проверить наличие таких глюков, как Вы описали,
Вы бы начали с того, что описали, что Вы в вашу программу вводите!

Вот, например,
сначала ваша программа спрашивает:
Vvedite deistvie v vide "z1?z2":
что Вы вводите?

потом дважды
'Vvedite kompleksnoe chislo: '
что Вы вводите?

в отладчике проходили, смотрели, чему равны Ваши
zdeis1,zmnim1 zdeis2,zmnim2 ?

[Мизантроп_ЛоЛ]

Сообщение от Serge_Bliznykov

Мизантроп_ЛоЛ,
по-первых, выложенный вами исходник имеет опечатку, из-за которой вообще не компилируется

Я извиняюсь, а где там конкретно ошибка? А то у меня модуль скомпилировался без проблем.

Вот, например,
сначала ваша программа спрашивает:
Vvedite deistvie v vide "z1?z2":
что Вы вводите?

Опять таки прошу прощения, тут вместо знака вопроса поставить знак "+", "-", "/", или "*", т.е. знак действия которое необходимо произвести.

потом дважды
'Vvedite kompleksnoe chislo: '
что Вы вводите?

Комплексное число в виде a+ib.

в отладчике проходили, смотрели, чему равны Ваши
zdeis1,zmnim1 zdeis2,zmnim2 ?

Это должны быть действительные и мнимые части соответствующих комплексных чисел, но из-за того что переменные a и b изначально получают какие-то непонятные значения (сразу же после объявления), им не передаётся никакое значение.