Один и тот же код по разному работает

@Victor031 · Регистрация: 11.05.2013

Доброго времени суток, уважаемые товарищи! Решил написать код, заполняющий диагональ двумерной матрицы единицами, а остальное - нулями. Написал, работает, но... Собственно говоря вот в чем проблема: в среде делфи код работает правильно, а в среде паскальАВС немного по другому. На скриншоте примеры выполнения кода в двух средах. Подскажите, в чем ошибка? Зараннее спасибо!

Delphi

const n=10;
var i,j:integer;
 
a:array[1..n,1..n] of byte;
begin
for i:=1 to n do
for j:=1 to n do
begin
if i=j then a[i,j]:=1
else a[i,j]:=0;
end;
 for i:=1 to n do
 for j:=1 to n do
 begin
 write(a[i,j]:2);
 if j=10 then writeln;
 
 
 end;
 readln;
 end.

Скриншот:

Комментарий модератора

Файл с изображением перенесён на форум из внешнего ресурса.

@FIL · 24.11.2013, 01:00

Просто две верхние строчки "уехали" за пределы окна. Растяни его и все.

@Victor031 · 24.11.2013, 01:05 **[ТС]**

Благодарствую! Проверил с помощью модуля crt, всё работает.

@FIL Модератор 3488 / 2611 / 741 Регистрация: 19.09.2012 Сообщений: 7,971
	24.11.2013, 01:00	2
	Просто две верхние строчки "уехали" за пределы окна. Растяни его и все. 1

@Victor031 0 / 0 / 1 Регистрация: 11.05.2013 Сообщений: 29
	24.11.2013, 01:05 [ТС]	3
	Благодарствую! Проверил с помощью модуля crt, всё работает. 0

Опции темы