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.
Почему выводит нули?
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.
Почему выводит нули?
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.
Почему выводит нули?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа выводит нули, потому что вы не присваиваете значения массиву Mass после выполнения вычислений вложенного цикла. В конце вложенного цикла, когда вы вычисляете значение итогового массива Mass для каждого i1, вы должны присвоить это значение элементу массива Mass.
Таким образом, после вычислений вложенного цикла вам нужно добавить следующую строку:
Mass[1,i1] := вычисленное значение1;
Mass[2,i1] := вычисленное значение2;
где вычисленное значение1 и вычисленное значение2 - это результаты вычислений вложенного цикла для каждого i1.
Это позволит корректно сохранить значения в массиве Mass и вывести их на экран.