Работа с литереыми переменными Опции

[-asmodeus-]

Люди прошу вас о помощи помогите плиз с задачкой ибо сам не справляюсь Времени у меня до четверга Если кто поможет буду очень благодарен за помощь на вас последняя надежда тк больше не к кому обратиться

вот задачка:

работа с функциями: CHR, ORD, PRED, SUCC.

В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов.

Определить, удовлетворяется ли следующее свойство:

Текст состоит из чередования букв и цифр, причем если текст начинается с буквы, то он должен и заканчиваться буквой, если с цифры – цифрой (например: 1р2о3р4и4п3, p5g6e4d);

[Client]

удалено

Сообщение отредактировано: Client - 11.02.2008 7:09

[О_Джей_Симпсон]

зарегись и пиши в личку,решим этот вопрос.

[Гость]

Проверьте плизз прогу, исправьте что не так, а то не робит
Задание:
Для матрицы А(m, n), 1<(m, n)<10, определить количество строк, в которых нет элементов, удовлетворяющих условию -3 < АI,J< 8. Переставить строки по возрастанию значений максимальных элементов строк.

Код

Program Matric1;

Type

MatrA=array[1..10,1..10] of integer;

MasB=array[1..10] of integer;

Var

A:matrA;

B:MasB;

I,j,z,y,n,KS,max,buf:integer;

Begin

Writeln(' Vvedite kolichestvo stolbsov kvadratnoi matrici ');
Readln(n);

For i:=1 to n do
For j:=1 to n do
begin
Writeln(' Vvedite znachenie elementa matrici A [',i,',',j,'] =');
Readln(A[i,j]);
End;


writeln;
   Writeln('Vivod matrici');

For i:=1 to n do
Begin
writeln;
For j:=1 to n do
  begin
  Write(A[I,J],' ');
  End;
writeln;
End;

KS:=0;

For j:=1 to n do
For i:=1 to n do
If (A[i,j]<(-3))and(A[i,j]>8) then
begin
KS:=KS+1;
break;
End;

Max:=0;


For z:=1 to n do
begin
Begin
For j:=z to n do
For i:=1 to n do
If a[i,j]>max then
  begin
  max:=a[i,j];
  buf:=j;
  writeln(max,' ',buf);
  end;
end;


For j:=1 to n do
b[j]:=A[j,z];
For j:=1 to n do
A[j,z]:=A[j,buf];
For j:=1 to n do
A[j,buf]:=B[j];
end;
   writeln;
   Writeln('Vivod matrici');

For i:=1 to n do
Begin
writeln;
For j:=1 to n do
  begin
  Write(A[I,J],' ');
  End;
writeln;
End;



writeln;
writeln(KS);

readln;

End.