Question

ДОПОМОЖІТЬ! ПИШЕ Встречен конец файла, а ожидался оператор. ДЕ ПОМИЛКА? const n=3; m=4; var i,j,x:integer; mas:array [1..n, 1..m] of integer; begin x:=5; for i:=1 to n do for j:=1 to m do; mas[i,j]:=sqr(x); x:=x+11; for i:=1 to n do begin for j:=1 to m do write (mas [i,j],' '); writeln; end;

Answer 1

Ответ:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

x:=x+1

end;

for i:=1 to n do

begin

for j:=1 to m do write (mas [i,j]:5);

writeln

end

end.

Объяснение:

Убрали лишнюю ; в строке: for j:=1 to m do;

Добавили составной оператор (begin - end) после этой строки

Изменили строку x:=x+11; на x:=x+1

Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет

Добавили в конце end.

Если всё делать в 1 цикле:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

begin

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

write (mas [i,j]:5);

x:=x+1

end;

writeln

end

end.

Answer 2

Проблема в вашому коді полягає у зайвій крапці з комою після оператора for j:=1 to m do. Ви повинні видалити цю крапку з комою. Ось вірний код:

pascalCopy code
const n=3; m=4; 
var i,j,x:integer; 
mas:array [1..n, 1..m] of integer; 

begin 
  x:=5; 
  for i:=1 to n do 
    for j:=1 to m do // Видаліть крапку з комою тут
      mas[i,j]:=sqr(x); 
      x:=x+11; 

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

Зараз код має правильний синтаксис і повинен виконуватися без помилок "Встречен конец файла, а ожидался оператор".