паскаль, ошибка 105...

@[-alex-] · Регистрация: 15.04.2010

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

Общее условие:Заполнение массива случайными целыми значениями из диапазона - 50 до 50 . Размеры массива м или n взять постоянными, равными целым числам от 5 до 10 требуется выводить на экран массив до сортировки и после сортировки.
Задача:дана целочисленная прям. Матрица размера м/N . Таким образом переставить строки матрицы, чтобы их первые элементы располагались в порядке неубывания. Метод сортировки выбором
Паскаль:

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
uses crt;
const n=6;m=6;
type arr=array[1..n,1..m] of integer;
{ sort }
procedure Sort(var A : arr);
    var
      i, j, ms : Integer;
      x : arr;
    begin
      { find s 1 to m - 1 }
      for i := 1 to m - 1 do
        begin
          ms := i;
          x[1] := A[i];
          { see not selected item }
          for j := i + 1 to m do
            { if find a < m, rec in m position, in x - value }
            if x[1,1] > A[j,1] then
              begin
                ms := j;
                x[1] := A[j];
              end;
            { obmen }
            A[ms] := A[i];
            A[i] := x[1];
        end;
    end;
{ end sort  }
var a:arr;
    i,j:integer;
begin
clrscr;
randomize;
writeln('UcxodHa9 matrica:');
{Matrix}
for i:=1 to m do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(101)-50;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{main}
 
Sort(a);
 
{to disp}
writeln('polu4enna9 matrica:');
for i:=1 to m do
 begin
   for j:=1 to m do
    begin
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
readln
end.

Проблема:
Почему то при n < m (константы) паскаль выдает ошибку 105(file not open for output).
Помогите найти ошибку...

@Puporev · 15.04.2010, 21:45

Pascal
1
2
const n=6;m=6;
type arr=array[1..n,1..m] of integer;

но значение n нигде в программе не используется, поучается полный испуг для компилятора.

Добавлено через 52 секунды
Просто объявляете матрицу как например 5х6, а везде пытаетесь что-то делать для размеров 6х6

@[-alex-] · 15.04.2010, 21:46 **[ТС]**

Эм....во вводе и выводе матрицы исправил с

Pascal
1
2
3
for i:=1 to m do
 begin
   for j:=1 to m do

на

Pascal
1
2
3
for i:=1 to n do
 begin
   for j:=1 to m do

Теперь вывод полученной матрицы кривой(( что то я совсем уже...

В сортировке m ли надо использовать?...

Сменил в сортировке на n, теперь с цветами чудеса в паскале...

@Puporev · 15.04.2010, 21:52

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
uses crt;
const nmax=20;
type arr=array[1..nmax,1..nmax] of integer;
{ sort }
procedure Sort(var A : arr;n,m:byte);
    var
      i, j, ms : Integer;
      x : arr;
    begin
      { find s 1 to m - 1 }
      for i := 1 to n - 1 do
        begin
          ms := i;
          x[1] := A[i];
          { see not selected item }
          for j := i + 1 to m do
            { if find a < m, rec in m position, in x - value }
            if x[1,1] > A[j,1] then
              begin
                ms := j;
                x[1] := A[j];
              end;
            { obmen }
            A[ms] := A[i];
            A[i] := x[1];
        end;
    end;
{ end sort  }
var a:arr;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Љ®«ЁзҐбвў® бва®Є ¤® ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Љ®«ЁзҐбвў® бв®«Ўж®ў ¤® ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('UcxodHa9 matrica:');
{Matrix}
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(101)-50;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{main}
 
Sort(a,n,m);
 
{to disp}
writeln('polu4enna9 matrica:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
readln
end.

@[-alex-] · 15.04.2010, 22:05 **[ТС]**

Просто глюк с цветами, проблему вроде нашел. Спасибо)

Добавлено через 10 минут
Хм, ваш вариант при n<m дает пару строк с 0...

@Puporev · 15.04.2010, 22:08

Хм, ваш вариант при n<m дает пару строк с 0...

Да я понятия не имею что Вы там творите в программе, я просто ответил на Ваш вопрос по ошибке.

@[-alex-] · 15.04.2010, 22:28 **[ТС]**

Конечный вариант такой....

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
uses crt;
type arr=array[1..11,1..11] of integer;
{ sort }
procedure Sort(var A : arr;n,m:integer);
    var
      i, j, ms : Integer;
      x : arr;
    begin
      { find s 1 to m - 1 }
      for i := 1 to n - 1 do
        begin
          ms := i;
          x[1] := A[i];
          { see not selected item }
          for j := i + 1 to n do
            { if find a < m, rec in m position, in x - value }
            if x[1,1] > A[j,1] then
              begin
                ms := j;
                x[1] := A[j];
              end;
            { obmen }
            A[ms] := A[i];
            A[i] := x[1];
        end;
    end;
{ end sort  }
var a:arr;
    n,m,i,j:integer;
begin
clrscr;
randomize;
write('Strok = ');
readln(n);
write('Stolbcov = ');
readln(m);
writeln('UcxodHa9 matrica:');
{Matrix}
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(101)-50;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{main}
 
Sort(a,n,m);
 
{to disp}
writeln('polu4enna9 matrica:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
readln
end.

Тему можно закрывать вроде что)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@[-alex-] 408 / 3 / 1 Регистрация: 15.04.2010 Сообщений: 40
	15.04.2010, 22:05 [ТС]
	Просто глюк с цветами, проблему вроде нашел. Спасибо) Добавлено через 10 минут Хм, ваш вариант при n<m дает пару строк с 0... 0