Нужно найти ошибку!

@konnivok · Регистрация: 08.12.2017

Author24 — интернет-сервис помощи студентам

Ошибка в последней строчке (59), пишет: Ожидалось ";". Несколько раз проверял вроде все закрыто, как решить?

Pascal

program Lab6;
 
var
  a: array[1..100, 1..100] of real; 
  i, j, n, m: integer;
  max: real;
procedure maxdiag(x: integer);
 
begin
  randomize;
  write('Введіть кількість рядків (від 1 до 100): ');
  readln(n);
  write('Введіть кількість стовбців (від 1 до 100): ');
  readln(m);
  Writeln;
  Writeln('Початковий массив:');
  for i := 1 to n do 
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100); 
      write(a[i, j]:5:2, ' '); 
    end;
    writeln;
  end;
  
  for i := 1 to n do 
  begin
    max := a[1, 1];
    for j := 1 to n do
      if a[i, j] > max then max := a[i, j];
    for j := 1 to n do
      a[i, j] := a[i, j] / max;
  end;
  
  writeln;
  writeln('Результат ділення всіх елементів заданої матриці на її найбільший за модулем елемент:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4:2, ' ');
    writeln;
  end;
  readln;
    
    maxdiag(size);
  
  for i := 1 to size do 
  begin
    for j := 1 to size do 
    begin
      write(w[i, j], ' ');
    end;
    writeln();
  end;
  
  readln();
  
end.

@volvo · 10.12.2017, 14:08

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

Несколько раз проверял вроде все закрыто

Процедура закрыта. Где сама основная программа? Либо не хватает реализации процедуры.

@konnivok · 10.12.2017, 14:29 **[ТС]**

Вот моя исходная программа

Pascal

program Lab6;
 
var
  a: array[1..100, 1..100] of real; 
  i, j, n, m: integer;
  max: real;
 
begin
  randomize;
  write('Введіть кількість рядків (від 1 до 100): ');
  readln(n);
  write('Введіть кількість стовбців (від 1 до 100): ');
  readln(m);
  Writeln;
  Writeln('Початковий массив:');
  for i := 1 to n do 
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100); 
      write(a[i, j]:5:2, ' '); 
    end;
    writeln;
  end;
  
  for i := 1 to n do 
  begin
    max := a[1, 1];
    for j := 1 to n do
      if a[i, j] > max then max := a[i, j];
    for j := 1 to n do
      a[i, j] := a[i, j] / max;
  end;
  
  writeln;
  writeln('Результат ділення всіх елементів заданої матриці на її найбільший за модулем елемент:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4:2, ' ');
    writeln;
  end;
  readln;
end.

Мне надо сделать так, чтобы диагонали матрицы заменялись на самый большой по модулю элемент, и я пытался вставить в нее эту подпрограмму, подскажите как сделать пожалуйста

Pascal

      maxdiag(size);
  
  for i := 1 to size do 
  begin
    for j := 1 to size do 
    begin
      write(w[i, j], ' ');
    end;
    writeln('Результат заміни діагональних елементі матриці на найбільший за модулем елемент ');
    writeln();
  end;
  
  readln();

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	10.12.2017, 14:08	2
	Сообщение от konnivok Несколько раз проверял вроде все закрыто Процедура закрыта. Где сама основная программа? Либо не хватает реализации процедуры. 0

	10.12.2017, 14:29