Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа с литереыми переменными
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
-asmodeus-
Люди прошу вас о помощи помогите плиз с задачкой ибо сам не справляюсь !mol1.gif Времени у меня до четверга sad.gif Если кто поможет буду очень благодарен за помощь на вас последняя надежда тк больше не к кому обратиться sad.gif

вот задачка:

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

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

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

Текст состоит из чередования букв и цифр, причем если текст начинается с буквы, то он должен и заканчиваться буквой, если с цифры – цифрой (например: 1р2о3р4и4п3, p5g6e4d);
cray.gif
Client
удалено
О_Джей_Симпсон
зарегись и пиши в личку,решим этот вопрос.
Гость
Проверьте плизз прогу, исправьте что не так, а то не робит smile.gif
Задание:
Для матрицы А(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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.