Ошибка: "нет индексного свойства по умолчанию для типа byte"

@kalanda · Регистрация: 06.02.2018

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
uses  crt    { uses список использумых модулей,библиотека}{cathod ray tube модуль для работы с текстовой информацией на дисплее,клавиатуре};
const m=240;{Раздел для объявления констант. Константы - почти как переменные, но их значения нельзя поменять во время работы программы. }
type 
 massiv = array[1..m] of integer; {type используется при создании пользовательских типов данных}{завод относится}{диапозон индексов от1 до м=255}{тип элементов}{к машине}
var n,z3:integer;{глобальные переменные}{перменные с целыми числами с фиксированной заяптой}
    {файловая переменная}{тип текстового файла}
         a:massiv;{заводу мы задаем другую переменную для использования в не глобальном параметре}{}
    
    procedure RandomMas(na:byte; var a:massiv);//заполнение массива
var i:integer;   
begin //тело
randomize; 
 
for i := 1 to na do //цикл
  begin
  
    a[i] := random(1,99);// присвоение от 1 до 99
  end;
end;
 
procedure printMas(na: byte;  a:massiv); //вывоести мас
var 
  i:byte;
    begin
    for i := 1 to na do 
    write(a[i]:3);
    writeln;
    end; 
    
    
    
   procedure Sortvybora(na: byte; var a: massiv); // сортировка выбора              for i:=0 to n-1 do begin   If  nmin[i]>10 then
  
 
var
  i,j,nmin,c : byte;
begin
 
for i:=1 to na-1 do   //сравнение и перестановка
 If  (nmin>10) and (nmin<100) then  writeln (nmin[i]:4);
nmin := i;   //нашли запомнили
for j:=i+1 to na do  //поиск мин знач
 
if a[j]<a[nmin] then nmin:=j; //сравнение
if nmin <> i then  begin //сравнение
c:=a[i];//запминает пересылка элемента
a[i]:=a[nmin];//
a[nmin]:=c;//перестановка если нужна
 
end;end;
 
 
    
   
    
 
 
 
 
begin  
RandomMas(m,a);write('------------------------------------------------------------------------------------------------------------------------');write('                                          массив рандомный');writeln;writeln('------------------------------------------------------------------------------------------------------------------------');
printMas(m,a);writeln;writeln;write('------------------------------------------------------------------------------------------------------------------------');writeln('                  массив в котором сохранено местоположение и выводятся только двузнач числа');writeln('------------------------------------------------------------------------------------------------------------------------');
 
Sortvybora(m,a);
 
writeln;writeln;write('------------------------------------------------------------------------------------------------------------------------');write('                                массив отсартированный по возврастанию');writeln;writeln('------------------------------------------------------------------------------------------------------------------------');
printMas(m,a);
end.

@JuriiMW · 29.03.2018, 12:14

А чем программа представленная мною не устроила?
Отсортировать в массиве только двузначные числа , а однозначные оставить на своих местах

Вы же просили совместить представленный volvo код с вашим.
Что и было сделано!

Ещё и было упрощено разукрашивание в вашем стиле…
Всё за зря ;–)

@kalanda · 29.03.2018, 12:15 **[ТС]**

дело в том что нужно в процедурах все и именно на языке паскаль ( можете подправить в коде что не так?

@JuriiMW · 29.03.2018, 12:21

Сообщение от kalanda

можете подправить в коде что не так?

Подправить то, безусловно, можно…

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const m=240;
 
procedure RandomMas(na:byte; var a : array of Integer) := a := ArrRandomInteger(na, 1, 99);
 
procedure Sortvybora(var r : array of Integer);
begin
  var a := r;
  r := a.Select((v, i) -> v in [10 .. 99] ? a.Where(z -> z in [10 .. 99]).OrderBy(z -> z).ElementAt(a.Take(i).Count(x -> x in [10 .. 99])) : v).ToArray();
end;
 
procedure WriteCenter(s : String) := WriteLn(s:60+s.Length div 2);
 
begin  
  randomize; 
  var a : array of Integer;
  RandomMas(m, a);
  WriteLn('-'*120);WriteCenter('массив рандомный');WriteLn;WriteLn('-'*120);
  a.Println;
  WriteLn;WriteLn;
  WriteLn('-'*120);WriteCenter('массив в котором сохранено местоположение и выводятся только двузнач числа');WriteLn('-'*120);
  Sortvybora(a);
  WriteLn;WriteLn;
  WriteLn('-'*120);WriteCenter('массив отсартированный по возврастанию');WriteLn;WriteLn('-'*120);
  a.Println;
end.

Вот вам процедуры!

@kalanda · 29.03.2018, 12:24 **[ТС]**

спасиб за код , но не могли бы вы посмотреть мой , я вашим воспользуюсь но преподователь может не принять

@volvo · 29.03.2018, 15:10

Сообщение от kalanda

не могли бы вы посмотреть мой

Посмотрел. Исправил:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
uses crt    { uses список использумых модулей,библиотека}{cathod ray tube модуль для работы с текстовой информацией на дисплее,клавиатуре};
 
const
  m = 240;{Раздел для объявления констант. Константы - почти как переменные, но их значения нельзя поменять во время работы программы. }
 
type
  massiv = array[1..m] of integer;{type используется при создании пользовательских типов данных}{завод относится}{диапозон индексов от1 до м=255}{тип элементов}{к машине}
 
 
procedure RandomMas(na: byte; var a: massiv);//заполнение массива
var
  i: integer;
begin//тело
  randomize; 
  
  for i := 1 to na do //цикл
  begin
    
    a[i] := random(1, 99);// присвоение от 1 до 99
  end;
end;
 
procedure printMas(na: byte; a: massiv);//вывоести мас
var
  i: byte;
begin
  for i := 1 to na do 
    write(a[i]:3);
  writeln;
end;
 
 
 
procedure Sortvybora(na: byte; var a: massiv);// сортировка выбора
var
  i, j, nmin, c: byte;
begin
  for i := 1 to na do
  begin
    if a[i] < 10 then continue;
    nmin := i;
    for j := i + 1 to na do
      if (a[j] > 9) and (a[j] < a[nmin]) then nmin := j;
    
    if nmin <> i then begin//сравнение
      c := a[i];//запминает пересылка элемента
      a[i] := a[nmin];//
      a[nmin] := c;//перестановка если нужна
    end; 
  end;
end;
 
 
 
 
 
 
 
var
  //n, z3: integer;{глобальные переменные}{перменные с целыми числами с фиксированной заяптой}
    {файловая переменная}{тип текстового файла}
  a: massiv;{заводу мы задаем другую переменную для использования в не глобальном параметре}{}
 
 
begin
  RandomMas(m, a);
  write('------------------------------------------------------------------------------------------------------------------------');
  write('                                          массив рандомный');
  writeln;
  writeln('------------------------------------------------------------------------------------------------------------------------');
  printMas(m, a);
  writeln;
  writeln;
  write('------------------------------------------------------------------------------------------------------------------------');writeln('                  массив в котором сохранено местоположение и выводятся только двузнач числа');writeln('------------------------------------------------------------------------------------------------------------------------');
  
  Sortvybora(m, a);
  
  writeln;
  writeln;
  write('------------------------------------------------------------------------------------------------------------------------');write('                                массив отсартированный по возврастанию');writeln;writeln('------------------------------------------------------------------------------------------------------------------------');
  printMas(m, a);
end.

Теперь нормально сортирует массив...

@kalanda · 29.03.2018, 15:34 **[ТС]**

огромное спасибо , работает лучше чем в задании))))

Добавлено через 20 минут
А как сделать чтобы числа больше 100 не сортировало так же кау и однозначные?

@volvo · 29.03.2018, 16:45

Изменить процедуру сортировки вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Sortvybora(na: byte; var a: massiv);// сортировка выбора
var
  i, j, nmin, c: byte;
begin
  for i := 1 to na do
  begin
    if (a[i] < 10) or (a[i] > 99) then continue;
    nmin := i;
    for j := i + 1 to na do
      if (a[j] > 9) and (a[j] < 100) and (a[j] < a[nmin]) then nmin := j;
    
    if nmin <> i then begin//сравнение
      c := a[i];//запминает пересылка элемента
      a[i] := a[nmin];//
      a[nmin] := c;//перестановка если нужна
    end; 
  end;
end;

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Ошибка: "нет индексного свойства по умолчанию для типа byte"

Решение

Решение

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	29.03.2018, 12:14
	А чем программа представленная мною не устроила? Отсортировать в массиве только двузначные числа , а однозначные оставить на своих местах Вы же просили совместить представленный volvo код с вашим. Что и было сделано! Ещё и было упрощено разукрашивание в вашем стиле… Всё за зря ;–) 0

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	29.03.2018, 12:15 [ТС]
	дело в том что нужно в процедурах все и именно на языке паскаль ( можете подправить в коде что не так? 0

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	29.03.2018, 12:24 [ТС]
	спасиб за код , но не могли бы вы посмотреть мой , я вашим воспользуюсь но преподователь может не принять 0

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	29.03.2018, 15:34 [ТС]
	огромное спасибо , работает лучше чем в задании)))) Добавлено через 20 минут А как сделать чтобы числа больше 100 не сортировало так же кау и однозначные? 0