Дана задача
Пусть дана матрица A(N x N), а симметричная строка – такая строка, у которой все ее элементы симметричны относительно ее центрального элемента. Воспользуйтесь логической функцией, определяющей симметричность i-й строки, а также функцией, подсчитывающей количество таких строк в заданной матрице.
Что я сделал
program One;
const
N = 100;
M = 10;
var
A : array[1..N, 1..M] of real;
i, Count, Row, MaxCount : integer;
{ Ввод исходной матрицы }
procedure InputMatrix;
var
i, j : integer;
begin
writeln( ‘+++ Введите исходную матрицу +++’ );
for i := 1 to N do
for j := 1 to M do
begin
write( ‘A[’, i, ‘;’, j, ‘] = ’ );
readln( A[i, j] );
end;
end;
{ Вывод матрицы на экран }
procedure PrintMatrix;
var
i, j : integer;
begin
writeln( ‘+++ Матрица A +++’ );
for i := 1 to N do
begin
for j := 1 to M do
write( A[i,j], ‘ ’ );
writeln;
end;
end;
{ Проверка, является ли число симметричным }
function TestSym( x : integer ) : boolean;
var
y, z : integer;
begin
y := 0;
z := x;
while z > 0 do
begin
y := y * 10 + z mod 10;
z := z div 10;
end;
TestSym := x = y;
end;
{ Подсчёт в строке симметричных чисел }
function CalculateRow( x : integer ) : integer;
var
i, Count : integer;
begin
Count := 0;
for i := 1 to M do
if TestSym( A[x,i] ) then Count := Count + 1;
CalculateRow := Count;
end;
begin
InputMatrix;
writeln; writeln;
PrintMatrix;
MaxCount := 0;
Row := 0;
for i := 1 to N do
begin
Count := CalculateRow( i );
if Count > MaxCount then
begin
MaxCount := Count;
Row := i;
end;
end;
writeln; writeln;
if Row = 0 then
writeln( ‘Нет строк с симметричными числами’ );
else
writeln( ‘Строка с макс. кол-вом сим. чисел: ’, Row );
end.
Объединить все это в одну программу, и запустить.
Ты не указываешь проблему, которая у тебя возникла. С чего ты взял, что достаточно вывалить сюда куски кода, и кто-то будет искать ошибки ЗА ТЕБЯ? Ты расскажи, ГДЕ у тебя ошибки/недочеты...
Не понял, в задании требуется проверить симметричность чисел в строке, а ты проверяешь симметричность одного числа, это немного не то.
во первых вылезла ошибка в блоке подсчета
if TestSym( A[x,i] ) then Count := Count + 1;
Это потому что массив real, а функция с параметром integer. Но все равно - ты надергал кусков из разных программ, но делают они (в частности функция TestSym) не то.
Хорошо, а как тогда сделать то? Я так понял что только первая часть правильна, остальное бред полный! Я проверил код, он вообще не работает, а его я переделывал с методички которую нам училка дала. Но потом и её пример проверил, балалайка - не работает . Капец какой-то, дают примеры которые не работают Ладно, будем пробывать дальше
Функция TestSym должна быть примерно такой:
function TestSym(j:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=1 to n div 2 do
b:=b and (a[j,i]=a[j,n-i+1]);
test:=b;
end;
if TestSym(i) then Count := Count + 1;
Посмотрите пожалуйста так на что то уже похоже
program One;
Const
N=10; {число СТРОК!}
N=10; {число СТОЛБЦОВ!}
type
TElem = integer;
Matrix = array[1..N,1..N] of TElem;
(* Построчный ввод матрицы *)
Procedure ReadMatr(var A:Matrix; var n,n:word );
var
i,j:word;
begin
repeat
write('Vvedide kol-vo strok: '); readln(N)
until (N>0) and (N<=N);
repeat
write('Vvedide kol-vo stolbcov: '); readln(n)
until (n>0) and (N<=N);
For i:=1 to n do
begin
For j:=1 to n do
begin
write('A[',i,j,']= ');
readln(A[i,j])
end
end
end;
(* Построчный вывод матрицы *)
Procedure PrintMatr(A:Matrix; n,n:word);
Var
i,j:word;
begin
For i:=1 to n do
begin
For j:=1 to n do write(A[i,j],' ');
writeln
end
end
{ тестовая программа}
var
n,n:word;
a:matrix;
Begin
Readmatr(a,n,n);
PrintMatr(a,n,n)
end;
function TestSym(j:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=1 to n div 2 do
b:=b and (a[j,i]=a[j,n-i+1]);
test:=b;
end;
а где дальше?
RaV да я вижу что не то получается, три не будет мало?
ребят, не злитесь. Я ж только учусь, и поэтому не успеваю так же быстро соображать в паскале как Вы. Пока тайм-аут.
нифига не выходит чувствую себя полным идиотом, блин в задаче разобраться не могу. а мне до понедельника ещё 7 решить надо. почему так тяжко
уже второй час долблюсь с этой задачей. Malice, Volvo прошу вас добейте её и я отстану от вас
Const
N=5;
type
Matrix = array[1..N,1..N] of integer;
var a:matrix;
Procedure ReadMatr(var A:Matrix);
var
i,j:word;
begin
For i:=1 to n do begin
For j:=1 to n do begin
write('A[',i,',',j,']= ');
readln(A[i,j])
end
end
end;
Procedure PrintMatr(A:Matrix);
Var
i,j:word;
begin
For i:=1 to n do begin
For j:=1 to n do write(A[i,j],' ');
writeln
end
end;
function TestSym(var a:matrix;j:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=1 to n div 2 do
b:=b and (a[j,i]=a[j,n-i+1]);
testSym:=b;
end;
function TestSymStr(var a:matrix):integer;
var i,c:integer;
begin
c:=0;
for i:=1 to n do inc(c,byte(testsym(a,i)));
testsymstr:=c;
end;
Begin
Readmatr(a);
PrintMatr(a);
writeln (testSymStr(a));
readln;
end.
Malice, Volvo громаднейшее спасибо