IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Работа с литереыми переменными
сообщение
Сообщение #1


Гость






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

вот задачка:

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

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

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

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


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


удалено

Сообщение отредактировано: Client -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 57
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


зарегись и пиши в личку,решим этот вопрос.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Проверьте плизз прогу, исправьте что не так, а то не робит 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.

 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2020 19:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name