функция crt window не реализована

[dimka123]

 Pascal ABC
  uses   crt;
  
  var a:array[1..50,1..50]of real;
  x,y,m,n,i,j,x1,x2,y1,y2: integer;
Begin 

    Write('Введите n (< 100) = ');readln(n); 
    Write('Введите m (< 100) = ');readln(m); 
    writeln('Координаты');
    x:=random(5);write('x=',x); 
    y:=random(5);;writeln('y=',y); writeln;
    writeln('Размеры окна');
    x1:=random(50);Writeln('x1 = ',x1);
    y2:=random(50)+50;Writeln('y1 = ',y1);
    x2:=random(100);Writeln('x2 = ',x2); 
    y2:=random (100)+50;Write(' y2 = ',y2); writeln;
   For i:=1 to m do
    begin;
   For j:=1 to m do
        begin ;
        a[i,j]:=random(30)-20; 
         write(a[i,j]:4);
         delay(300);
          end;
         writeln;end;
 TextBackground(random(8));
 clrscr;
 window(x1,y1,x2,y2);
 GotoXY(x,y);  
 textcolor(random(10));

 
    for i := 1 to m do 
        begin
        for j := 1 to n do 
        begin
        write(a[i,j],'   ');
        end;
        writeln();
        end;
End.

как можно обойти эту проблемку?
"функция crt window не реализована" как я понял не изменяется экран.
или чтоб избежать эту проблему нужен турбо паскаль?

[Stilet]

чтоб избежать эту проблему нужен турбо паскаль?

Рекомендую забыть про ABC навсегда.
Бери турбо - для такого кода не пожалеешь.

[FIDE]

А еще лучше юзать Free Pascal...Ибо проблем с установкой нет, и модуль Graph работает.

[dimka123]

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

Рекомендую забыть про ABC навсегда.
Бери турбо - для такого кода не пожалеешь.

я бы с радостью, но турбо с вин.8.1 не дружит что то
или я не ту версию ищу
123.jpg

[min@y™]

У тебя паскакаль пиратский!



У мну Win8.1x64.

[dimka123]

Сообщение от min@y™

У тебя паскакаль пиратский!



У мну Win8.1x64.

а можно ваш exeШник?)

[min@y™]

а можно ваш exeШник?)

Имя файла expected. Тебе какой?

[Serge_Bliznykov]

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

а можно ваш exeШник?)

dimka123, дело не в EXE-шнике, он у него такой же (в принципе), как и у Вас!

Просто DOS приложения надо запускать через программу DOSBox (что и видно по скриншоту), и всё будет работать хоть на x32, хоть на x64

[min@y™]

Просто DOS приложения надо запускать через программу DOSBox (что и видно по скриншоту)

На скрине аффтара тоже жеж DosBox.
Скачать мой лицензионный паскакаль! Притащил домой из универа на дискетах в 1996 году. Так и кочует из компа в комп уже 18 лет.

[dimka123]

Сообщение от min@y™

Имя файла expected. Тебе какой?

у меня даже такого файлика нет)