Паскаль

[Елена Мин]

program AB;
type vec=array [1..30,1..30] of integer;
var
A,B:vec;
N,i,j: integer;
Procedure MM(V: integer; var D: vec);
var max,i,j: integer;
begin
max:=d[1,1];for i:=1 to V do
begin
for i:=1 to v do
begin
d[i,i];max ; then max:=d[i,i]
end;
end;
end;
if max<1 then
begib
 for i:=1 to V do
 begin
  for j:=1 to V do
  d[i,j]=d[i,j]*10;
  end;
  end;
  else finish;
  end;
  begin
  [основная программа]
  writeln[введите количество строк и столбцов массивов];
  readln(n);writeln('введите 1 массив');
  for i:=1 to n do
  begin
   for j:=1 to n do 
    readln(A[i,j]);
    end;
    writeln('введите 2 массив');
    for i:=1 to n do
    begin for j:=1 to n do
    readln(B[i,j]);end;
    MM(n,A);
    MM(n,B);
    writeln('матрица A:')
    for i:=1 to n do
    begin
     for j:=1 to n do
     writeln (A[i,j]);
     end;
     writeln('матрица B:')
     for i:=1 to n do
     begin
      for j:=1 to ndo
      writeln (B[i,j]);
      end;
      end.

помогите найти ошибку, программа не работает почемуто.

[Serge_Bliznykov]

это не программа, а набор нелепых ошибок. (

давайте начнём с простого.
Ответьте на вопросы:
1) Вы сами написали этот код? И понимаете, какие операторы/строчки для чего нужны?
2) Какую задачу Вы пытаетесь решить с помощью этой программы?

[Елена Мин]

написать помогли!
Задача:Данны два массива А В .Разработайте программу, соединяющую процедуру, выполняющую следующие действия: если наибольший диагональный элемент матриц меньше 1 то все элементы матриц умножить на 10.

[Stilet]

если наибольший диагональный элемент

Какой именно диагонали?

[Елена Мин]

матрица квадратная, диагональные элементы где индексы равны. т.е i=j

[Stilet]

если наибольший диагональный элемент матриц меньше 1 то все элементы матриц умножить на 10.

Procedure Lola(var a:vec); var i,j,m:integer;
begin
 for i:=1 to 30 do if a[i,j]>m then m:=a[i,j]);
 if m>=1 then exit;
 for i:=1 to 30 do for j:=1 to 30 do a[i,j]:=a[i,j]*10;
end;

Годится?

[Елена Мин]

это часть процедуры!! я вставляю эту часть в программу..... и она не работает!((((

[Аватар]

Так её не вставить нужно, а выбросить исходную программу, а к этой процедуре прицепить ввод-вывод и обращение к ней

[Stilet]

это часть процедуры!

Нет. Это полностью процедура.

Procedure Lola(var a:vec); var i,j,m:integer;
begin
 for i:=1 to 30 do if a[i,j]>m then m:=a[i,j]);
 if m>=1 then exit;
 for i:=1 to 30 do for j:=1 to 30 do a[i,j]:=a[i,j]*10;
end;

  begin
  [основная программа]
  writeln[введите количество строк и столбцов массивов];
  readln(n);writeln('введите 1 массив');
  for i:=1 to n do
  begin
   for j:=1 to n do 
    readln(A[i,j]);
  end;

Lola(А); Lola(В);

  for i:=1 to n do
  begin
   for j:=1 to n do 
    writeln(A[i,j]);
  end;
И так далее.

[Елена Мин]

спасибо большое))))правда это еще не самое главное!!!! у меня есть задача на промежуточный контроль. т.к я перевелась с другой группы программирование для меня новый предмет и пока я в нем не разобралась. помогите составить процедуру, от нее завит оценка за семестр.
Разработать программу " Вокзал", которая выдает сведения в следующих аспектах
номер поезда
время отправки
время езды
время прибытия
номер билетов
количество вагонов.
заранее спасибо!!!