Помогите решить задачу

[akadenstyle]

Помогите решить задачу

Посмотреть вложение Новый точечный рисунок.bmp help me, please!!!:tehnari_ru_837:

 

[Vladimir_S]

Цель лабораторной работы №6: изучение и приобретение навыков обработки двумерных массивов.

Ну так черт Вас подери - изучайте и приобретайте!!! Для этого Вам дана простейшая, глупейшая ясельно-дебильная задачка. Именно чтобы Вы освоили самые-самые азы работы с массивами.
Так нет же, куда там... "Не хочу учиться, а хочу жениться", вы мне решите, я скатаю. Тупо и бездумно.
Чертовы Митрофанушки...
Значит, так. Помощь будет оказана ТОЛЬКО при наличии хоть каких-нибудь с Вашей стороны попыток сделать хоть что-нибудь в плане решения задачки. Пошли учиться - так учитесь, трам-тарарам!

P.S. Вы даже поленились выложить "заданное вариантом правило формирования квадратной матрицы". Конечно - лишь бы не перетрудиться. Фу!

 

[akadenstyle]

Решение данной работы имеется, оно с ошибками, так же имеется блок-схема, а почему не получается ее сделать самому, так это некомпетентность преподавателя, который изначально направил не по тому курсу, и вечно не доволен всем.

P.S. Насчет правила, да, я не указал, в силу того, что не до конца был уверен в том, что на мой вопрос кто-нибудь откликнется!

 

[akadenstyle]

В документе сначала текст программы, далее блок-схема.

 

[Vladimir_S]

P.S. Насчет правила, да, я не указал, в силу того, что не до конца был уверен в том, что на мой вопрос кто-нибудь откликнется!

Так, ну вот я откликнулся - где правило?
И потом - знаете, ну нет мне дела до отысканного Вами неверного решения. Очень хочу, чтобы Вы хотя бы попытались найти таковое самостоятельно, в чем с удовольствием Вам помогу.
Итак?

P.S. Ага, пока писал сообщение, программа с алгоритмом заполнения матрицы появилась. Хорошо, сейчас посмотрю.

 

[Vladimir_S]

Решение данной работы имеется, оно с ошибками,

Да уж... мягко сказано. Там не просто "с ошибками", там буквально ошибка на ошибке.
Ладно, вот Вам без ошибок. Разбирайтесь:

Uses crt;
Const
 n=5;
Type
 mas=array [1..n] of real;
 matrica=array [1..n, 1..n] of real;
Var
 A:matrica;
 i,j:integer;
 max,min,G:real;
 X:mas;
Begin
 Clrscr;
 G:=0;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     A[i,j]:=((abs(3.7-j))-2)*exp((2-i)*Ln(abs(i-4.3)));
     Write(A[i,j]:8:2);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to n do
  begin
   max:=A[i,1];
   min:=A[i,1];
   For j:=2 to n do
    begin
     if A[i,j]>max then max:=A[i,j];
     if A[i,j]<min then min:=A[i,j];
    end;
   X[i]:=abs(max)-abs(min);
   Writeln ('max= ',max:6:2, '  min= ',min:6:2,'  X[',i,']= ',X[i]:6:2);
  end;
 Writeln;
 G:=abs(X[2]-X[1]);
 For i:=2 to n-1 do
  if abs(X[i+1]-X[i])>G then G:=abs(X[i+1]-X[i]);
 Writeln('G= ',G:6:2);
 Readln
End.

 

[akadenstyle]

Спасибо большое!!!