Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Паскаль матрицы 
V
    Опции темы
syoksana
Дата 4.3.2008, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(megabist @ 4.3.2008,  07:37)
тоже самое, что и 
i:=i+1;

Паняно, спасибо!
А задача верно решена?
PM MAIL   Вверх
volvo877
Дата 4.3.2008, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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



Цитата(syoksana @  4.3.2008,  09:54 Найти цитируемый пост)
А задача верно решена? 

Скорее всего она должна решаться так:

Код
program qqq;
const n =3;
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of integer;
  i, j, max, min: integer;

begin
  writeln('vv massiv');
  for i:=1 to n do
    for j:=1 to n do begin
      write('a[',i,',',j,'] = '); readln(a[i, j]);
    end;

  for i := 1 to n do begin
    max := a[i, 1]; min := a[1, i];
    for j := 1 to n do begin
      if max < a[i, j] then max := a[i, j];
      if min > a[j, i] then min := a[j, i];
    end;

    b[i] := max * min;
  end;

  for i := 1 to n do
    writeln('b[', i, '] = ', b[i]);
end.
, потому что у тебя получается что все 3 элемента массива b равны между собой, а это не так: произведение максимума третьей строки (это 4) на минимум третьего столбца (3) будет равно 12, а для первого элемента будет 3 и 2 соответственно, т.е., произведение = 6...

Восьмерки здесь вообще не должно быть.
PM MAIL   Вверх
syoksana
Дата 6.3.2008, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(volvo877 @ 4.3.2008,  11:53)
Цитата(syoksana @  4.3.2008,  09:54 Найти цитируемый пост)
А задача верно решена? 

Скорее всего она должна решаться так:

Код
program qqq;
const n =3;
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of integer;
  i, j, max, min: integer;

begin
  writeln('vv massiv');
  for i:=1 to n do
    for j:=1 to n do begin
      write('a[',i,',',j,'] = '); readln(a[i, j]);
    end;

  for i := 1 to n do begin
    max := a[i, 1]; min := a[1, i];
    for j := 1 to n do begin
      if max < a[i, j] then max := a[i, j];
      if min > a[j, i] then min := a[j, i];
    end;

    b[i] := max * min;
  end;

  for i := 1 to n do
    writeln('b[', i, '] = ', b[i]);
end.
, потому что у тебя получается что все 3 элемента массива b равны между собой, а это не так: произведение максимума третьей строки (это 4) на минимум третьего столбца (3) будет равно 12, а для первого элемента будет 3 и 2 соответственно, т.е., произведение = 6...

Восьмерки здесь вообще не должно быть.

Ок, ясно, просто я не так поняла условие задачи! smile 
Спасибо!
PM MAIL   Вверх
Berserkker
Дата 18.3.2008, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



всем привет не подскажете как создать таблицу кэли?

Добавлено через 3 минуты и 12 секунд
сперва я сделал метод перестановок, но также его надо отсортировать для того чтобы создать таблицу Кэли, на этом я и застрял
PM MAIL   Вверх
ComProMisS
Дата 3.7.2009, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



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


условие:

Дана целоисчисленная матрица С[5,5], в которой имеються 2 одинаковых элемента. найти их и распечатать индексы

мое решение

program z5x2;
var A:array[1..5,1..5] of integer; i,j,n:integer;
begin
 writeln('Vveddite elementy matricy');
 for i:=1 to 3 do
 begin
  for j:=1 to 3 do
  begin
   write('A[',i:2,',',j:2,']=');
   read (a[i,j]);
  end;
  writeln;
 end;
 if (a[i,j]=a[j,i]) then writeln('A[',i:2,',',j:2,']');
 j:=j+1;
 i:=i+1;
end.

заранее спасибо
PM MAIL   Вверх
ФедосеевПавел
Дата 3.7.2009, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Ну самый грубый способ найти два одинаковых элемента в матрице - это организовать две пары циклов после завершения ввода:
Код

  for i:=1 to 5 do begin                            {берём элемент C[i,j]}
    for j:=1 to 5 do begin
        for ii:=1 to 5 do begin                      {и сравниваем его с элементом C[ii,jj]}
          for jj:=1 to 5 do begin
             if (ii=i) AND (jj=j) then Continue; {иключить сравнение с самим собой}
             if C[i,j]=C[ii,jj] then begin
                  WriteLn(i,'   ',j);                       {если найдены одинаковые - напечатать их индексы}
                  Exit;                                        {и выйти}
             end;
           end;
         end;
     end;
  end;

PM   Вверх
ComProMisS
Дата 7.7.2009, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



спасибо smile  мне эта задача на экзамене попалась
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

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


 




[ Время генерации скрипта: 0.0740 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.