Program z_6;

var Mass1:array[1 ... 2,1 ... 100000000] of real;

Mass2:array[1 ... 2,1 ... 100000000] of real;

Mass:array[1 ... 2,1 ... 100000000] of real;

i, j, a, b, c, k, m, n, i1, min, j1:integer;

p, x1, x2, x3, x4:real;

begin

min:=2;

read (n) ;

for I1:=1 to N do begin

for j:=1 to 2 do

read (Mass1[j, i1]) ; end;

read (m) ;

for I:=1 to M do

for j1:=1 to 2 do begin

read (Mass2[j1, i]) ; end;

for I:=1 to M do

for I1: = 1 to N do

for j:=1 to 2 do begin

begin

x1:=Mass1[1, i1];

x2:=Mass1[2, i1];

x3:=Mass2[1, i];

x4:=Mass2[2, i];

If sqrt (sqr (x3-x1) + sqrt (x4-x2)) end;

for i1:=1 to n do

writeln (Mass[1, i1],' ', Mass[2, i1]) ;

end.

Почему выводит нули?

Question

Информатика

Нордика

15 января, 06:50

Program z_6;

var Mass1:array[1 ... 2,1 ... 100000000] of real;

Mass2:array[1 ... 2,1 ... 100000000] of real;

Mass:array[1 ... 2,1 ... 100000000] of real;

i, j, a, b, c, k, m, n, i1, min, j1:integer;

p, x1, x2, x3, x4:real;

begin

min:=2;

read (n) ;

for I1:=1 to N do begin

for j:=1 to 2 do

read (Mass1[j, i1]) ; end;

read (m) ;

for I:=1 to M do

for j1:=1 to 2 do begin

read (Mass2[j1, i]) ; end;

for I:=1 to M do

for I1: = 1 to N do

for j:=1 to 2 do begin

begin

x1:=Mass1[1, i1];

x2:=Mass1[2, i1];

x3:=Mass2[1, i];

x4:=Mass2[2, i];

If sqrt (sqr (x3-x1) + sqrt (x4-x2)) end;

for i1:=1 to n do

writeln (Mass[1, i1],' ', Mass[2, i1]) ;

end.

Почему выводит нули?

+4

Ответы (1)

Знаете ответ на вопрос?

Амджед · Answer 1

В Вашей программе на вывод попадают элементы массива Mass:

for i1:=1 to n do

writeln (Mass[1, i1],' ', Mass[2, i1]) ;

В программе ни одному их этих элементов ничего не присвоено. А нули выводятся, потому что Ваш компилятор при создании массива прописал всю отведенную для него область нулями. Но так поступают не все компиляторы. Например, Free Pascal не делает инициализации, поэтому в нем результат вывода был бы непредсказуем.