VPF::HELP!!! - Форум программистов

Horse

Дата 7.1.2007, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.1.2007

Репутация: нет
Всего: нет

Помогите разобраться в чем ошибка:

Код


program massiv;{ЛР6 - Коновалов К.А.}
{Преобразование массивов: Большее из Xi и Yi  принять за Xi ,а меньшее за Yi.\
Вх. Данные: n - длина массивов
            x - первый массив
            y - второй массив
Вых. данное:Xi,Yi - результирующий массив.
В заданной матрице поменять местами последнюю строку со сторокой,
содержащей минимальный элемет матрицы.
Вх. данные: str - количество строк матрицы
            stb - количество столбцов
            А - матрица целых чисел.
Вых. данное:А - преобразованная матрица.}
Const R=10;
Type Tind=1..R;
     Tmas=Array [Tind] of Integer;
     Tmatr=Array [Tind,Tind] of Integer;
var
   x,y:array [1..100] of integer;
   n:integer;
   k,strm,stbm,str,stb,j,i:Tind;
   A:Tmatr;
   T,max:Integer;
begin {$R+}
     {Преобразование массива}
     writeln('Введите длину массивов:');
     readln(n);
     writeln('Введите массив X:');
     for i:=1 to n
     Do  read(x[i]);
     writeln('Введите массив Y:');
     for i:=1 to n
     Do read(y[i]);
     for i:=1 to 50
     Do if x[i]<y[i]
        then begin a:=x[i];
                   x[i]:=y[i];
                   y[i]:=a;
             end;
    writeln('Результирующий массив:');
    for i:=1 to n
    Do write(x[i]);
    writeln;
    for i:=1 to n
    Do write(y[i]);
    readln;
    {Преобразование матрицы}
    Write ('Введите количество строк и столбцов:');
    ReadLn(str,stb);
    Write ('Введите матрицу размером ',str,' * ',stb,' : ');
    For i:=1 To str
    Do For j:=1 To stb
       Do Read (A[i,j]); ReadLn;
    max:=A[1,1];strm:=1;
    For i:=1 To str
    Do Begin For j:=1 To stb
             Do Begin If max<A[i,j]
                      Then Begin max:=A[i,j];
                                 strm:=i;
                           End;
                End;
       End;
    For j:=1 To stb
    Do Begin T:=A[strm,j];
             A[strm,j]:=A[str,j];
             A[str,j]:=T;
       End;
    WriteLn('Преобразованная матрица:');
    For i:=1 To str
    Do Begin For j:=1 To stb
             Do Write(A[i,j],' ');
             WriteLn;
       End;
    ReadLn;
end.

Само задание в приложенном файле....

Присоединённый файл ( Кол-во скачиваний: 4 )

_______.jpg 71,18 Kb

Rodman

Дата 7.1.2007, 20:56 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Ошибку в студию...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Zero

Дата 8.1.2007, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Rodman, тебе кода мало???

Цитата(Horse @ 7.1.2007, 20:44

)

Помогите разобраться в чем ошибка:

Horse, у тебя в этом цикле:

Код


for i:=1 to 50

количество проходов стоит 50, а тип переменной i

Код


Const
  R=10;
....
Type
  Tind=1..R;
....
Var
  i:Tind;

равен на 10 значений, т.е. у тебя есть такие варианты, либо ты заместо i, используешь другую переменную, которая будет например типа integer, либо количество проходов делаешь не больше 10, либо придумываешь что-нибудь ещё.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »