Помогите пожалуйста мне разобрать, что в этой программе и зачем делалось.
Я подчеркнул красным что не смог понять.
program z;
const m=5;
var f:text;
a:array[1..m,1..m] of integer;
b:array[1..m] of integer;
i,j:integer;
begin
assign(f,'1.txt');
reset(f);
for i:=1 to m do
for j:=1 to m do
read(f,a[i,j]);
close(f);
for i:=1 to m do
begin
b[i]:=-1;
for j:=2 to m do
if a[i,j-1]<=a[i,j] then b[i]:=1;
end;
append(f);
for i:=2 to m do
write(f,b[i]:3);
close(f);
end.
М | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
для чего потом еще раз после закрытия файла цикл for i:=1 to m do.
До закрытия. Добавляешь в файл (append), вектор b.
да не в программу добавлять не надо ни чего. мне просто нужно понять зачем циклы там и оператор и что они делают.
Что-то туплю я сегодня.
for i:=1 to m do
begin
b[i]:=-1;
for j:=2 to m do
if a[i,j-1]<=a[i,j] then b[i]:=1;
end;
После открытия фаила для перезаписи зачем вот это?
for i:=2 to m do
write(f,b[i]:3);
В файл пишется вектор b.
b[i]:3 вот это что значит?
Отводится 3 позиции на вывод числа
спс тебе
Длина числа + кол-во пробелов.
Например,
Write(x:3); при x=21
выведет число 21 и перед ним один пробел