Pascal циклы и двумерные массивы

[Kyz92009]

Задание1.
Вычислить последователоность значений функции заданной рекурентным соотношением.Вычисления прекратить при условии модуль yn - yn-1 модуль.Во всех заданиях E считать константой 0.01.
yn=5yn-2 + 3yn-1.

К первой задаче я написал программу но училка говорить что в ней что то не правильно и спрашивает что такое i,A,B,Y.
Вот и программа:
Program re;
const c=0.01;
label 1;
var y1,A,y2,B,y:real;
I:real;
begin
write('y1=,y2=');
readln(y1,y2);
A:=y2;B:=y1;I:=3;
1: y:=5*B+3*A
Writeln('y=,y:10:3);
If ABS (Y-A)>C Then
Begin
B:=A;
A:=y;
I:=I+1;
Goto 1
End;
Readln
End.

[IT-man]

Стучи в аську сделаю за вознаграждение

[Kyz92009]

слушай помошник я уже одну задачу зделал и без всякого вознаграждения кому интересно вот:
uses crt;
const
n = 4;
m = 5;
var i, j, ind: integer;
max, temp: real;
a: array[1..n, 1..m] of real;
begin
clrscr;
randomize;
writeln('Massiv 1');
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i, j]:=10*random;
write(a[i,j]:6:2);
end;
writeln;
end;
max:=a[1,1];ind:=1;
for i:= 1 to n do
for j:=1 to m do
if a[i,j] > max then
begin
max:= a[i,j];
ind:= j;
end;
writeln('Max el= ',max:5:2,' v stolbce ',ind);
if ind=2 then
begin
writeln('Perestanovka ne vozmozna!');
readln;
exit;
end
else
for i:=1 to n do
begin
temp:=a[i,2];
a[i,2]:=a[i,ind];
a[i,ind]:=temp;
end;
writeln('Massiv 2');
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:6:2);
writeln;
end;
readln
end.
И люди помогите мне с первой задачей очень прошу!!!

[IT-man]

А почему при ind=2 перестановка не возможна?и менять надо с 1 строкой а не со 2 столбцомстудент

[Kyz92009]

щас буду устранять ошибки

[Kyz92009]

uses crt;
const
n = 4;
m = 5;
var i, j, ind: integer;
max, temp: real;
a: array[1..n, 1..m] of real;
begin
clrscr;
randomize;
writeln('Massiv 1');
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i, j]:=10*random;
write(a[i,j]:6:2);
end;
writeln;
end;
max:=a[1,1];ind:=1;
for i:= 1 to n do
for j:=1 to m do
if a[i,j] > max then
begin
max:= a[i,j];
ind:= j;
end;
writeln('Max el= ',max:5:2,' v stolbce ',ind);
if ind=1 then
begin
writeln('Perestanovka ne vozmozna!');
readln;
exit;
end
else
for i:=1 to n do
begin
temp:=a[i,2];
a[i,1]:=a[i,ind];
a[i,ind]:=temp;
end;
writeln('Massiv 2');
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:6:2);
writeln;
end;
readln
end.
вот

[IT-man]

Ты строки и столбцы отличаешь?

[Kyz92009]

блин если я помощи попросил,значит я что то не понимаю!Верно?Помоги,тут ведь ошибка не значительная!

[Kyz92009]

подскажите пожадуйста что тут надо поменять

[Kyz92009]

нужна помощь!!