Процедуры и функции

[death65]

В одномерных массивах А[1..N] и B[1..M] определить количество чисел – полиндромов ( т.е. таких, десятичная запись которых читается одинаково слева направо и справа налево.). Тот массив, где количество таких чисел больше, рассортировать по возрастанию, а другой – по убыванию.

[Mad_Cat]

язык то какой ?

{Delphi/Pascal}
function Pal_Pas(m:Integer):boolean;
var k:integer;
     r:integer;
n:integer
begin
n:=m;
k:=0;
while N>0 do
  begin
   r:=n mod 10;
    k:=k*10+r;
    n:=n div 10;
  end;
Pal_Pas:=k=m;
end;

[death65]

язык pascal.

[death65]

незнаю даже как это делается непонятное задание

[_-Re@l-_]

Mad_Cat написал вам функцию, которая определяет, является ли число палиндромом или нет - вам остаётся лишь использовать её вместе с массивом.

[Kingdom_Reborn]

вот вам набросок (не компилировал)

const
  _Max = 100;

type TArray = Array[1.._Max] of Longint;

procedure Sort(var A: TArray; const N: Integer; const V: Boolean);
var
  i, j: Integer;
  tmp: Longint;
begin
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if V then begin
        if A[i] > A[j] then begin
          tmp := A[i];
          A[i] := A[j];
          A[j] := tmp;
        end
      end
      else
        if A[i] < A[j] then begin
          tmp := A[i];
          A[i] := A[j];
          A[j] := tmp;
        end;
end;


function Check(const _x: Longint): Boolean;
var
  i: Integer;
  x, y: Longint;
begin
  x := _x;
  y := 0;
  while x <> 0 do begin
    y := y * 10 + x mod 10;
    x := x div 10;
  end;
  Check := y = _x;
end;

var
  A, B: TArray;
  i, j, N, M, q1, q2: Integer;
  tmp: Longint;
  V: Boolean;
begin
  WriteLn('Vvedite N');
  ReadLn(N);
  WriteLn('Vvedite massiv');
  for i := 1 to N do
    Read(A[i]);
  WriteLn;
  WriteLn('Vvedite M');
  ReadLn(M);
  WriteLn('Vvedite massiv');
  for i := 1 to M do
    Read(B[i]);
  q1 := 0;
  for i := 1 to N do
    if Check(A[i]) then Inc(q1);
  q2 := 0;
  for i := 1 to M do
    if Check(B[i]) then Inc(q2);
  V := q1 > q2;
  Sort(A, N, V);
  Sort(B, M, not V);
  WriteLn;
  WriteLn('A:');
  for i := 1 to N do
    Write(A[i], ' ');
  WriteLn;
  WriteLn('B:');
  for i := 1 to M do
    Write(B[i], ' ');
  WriteLn;
  ReadLn;
  ReadLn;
end.

[Mad_Cat]

Mad_Cat написал вам функцию, которая определяет, является ли число палиндромом или нет - вам остаётся лишь использовать её вместе с массивом.

+ дописать процедуры ввода / вывода массива
+ дописать функу высчитывающую количество палиндромов
+ процедуру сортировки по возрастанию / убыванию

[death65]

спасибо огромное всем!

[death65]

а можно вот к этой программе пояснения небольшие а то мне не всё до конца понятно

uses crt;
const
_Max = 100;

type TArray = Array[1.._Max] of Longint;

procedure Sort(var A: TArray; const N: Integer; const V: Boolean);

var
i, j: Integer;
tmp: Longint;

begin
clrscr;
for i := 1 to N - 1 do
for j := i + 1 to N do
if V then begin
if A[i] > A[j] then begin
tmp := A[i];
A[i] := A[j];
A[j] := tmp;
end
end
else
if A[i] < A[j] then begin
tmp := A[i];
A[i] := A[j];
A[j] := tmp;
end;
end;


function Check(const _x: Longint): Boolean;
var
i: Integer;
x, y: Longint;
begin
x := _x;
y := 0;
while x <> 0 do begin
y := y * 10 + x mod 10;
x := x div 10;
end;
Check := y = _x;
end;

var
A, B: TArray;
i, j, N, M, q1, q2: Integer;
tmp: Longint;
V: Boolean;
begin
WriteLn('Vvedite N');
ReadLn(N);
WriteLn('Vvedite massiv');
for i := 1 to N do
Read(A[i]);
WriteLn;
WriteLn('Vvedite M');
ReadLn(M);
WriteLn('Vvedite massiv');
for i := 1 to M do
Read(B[i]);
q1 := 0;
for i := 1 to N do
if Check(A[i]) then Inc(q1);
q2 := 0;
for i := 1 to M do
if Check(B[i]) then Inc(q2);
V := q1 > q2;
Sort(A, N, V);
Sort(B, M, not V);
WriteLn;
WriteLn('A:');
for i := 1 to N do
Write(A[i], ' ');
WriteLn;
WriteLn('B:');
for i := 1 to M do
Write(B[i], ' ');
WriteLn;
ReadLn;
ReadLn;
end.

[Kingdom_Reborn]

death65, ClrScr в процедуру сортировки вы зря воткнули...