Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Поиск значений в матрице, Матрица дробных чисел 
:(
    Опции темы
lomobot
Дата 10.10.2006, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Кто может, помогите пожалуйста решить задачу, формулировка такая:

Дана вещественная матрица дробных чисел. Найти в каждой строке числа с наименьшим знаменателем, а среди них найти самое большое число.

Если можно то сделайте решение как можно более простым и понятным smile
PM MAIL   Вверх
comtat
Дата 12.10.2006, 07:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 8
Всего: 71
Цитата(lomobot @  10.10.2006,  14:52 Найти цитируемый пост)
Дана вещественная матрица дробных чисел

Как ты предполагаешь, в каком виде хранить значения ??
В виде дроби или float  



--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
lomobot
Дата 12.10.2006, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
comtat, наверно так: a[i]:=c/d,
а-массив, 
c,d - вещественные числа
PM MAIL   Вверх
comtat
Дата 12.10.2006, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 8
Всего: 71
Цитата(lomobot @  12.10.2006,  14:38 Найти цитируемый пост)
 наверно так: a[i]:=c/d,

т.е. получается что string  smile если 'c/d'
или если с=1 а d=2 то 0.5


Это сообщение отредактировал(а) comtat - 12.10.2006, 14:44


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Palladin
Дата 12.10.2006, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Задача не ясно поставлена, ты или переформулируй её или попробуй сам сделать а потом код выложи, может из кода будет понятно что ты хочеш smile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Dov
Дата 13.10.2006, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


аСинизатор
***


Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88
Цитата(RooR @  12.10.2006,  21:48 Найти цитируемый пост)
Задача не ясно поставлена,

Да не, нормально всё, вот тока я паскалем не владею, к сожалению.
lomobot, могу тебе на с++ написать, если нуна. Может быть кто-нибудь переведёт, а может ты сам смогешь. Ты скажи.   smile 


--------------------
Тут вечности запах томительный,
И свежие фрукты дешевые, 
А климат у нас – изумительный, 
И только соседи – #уевые. 
                           Игорь Губерман.
PM   Вверх
Kuvaldis
Дата 13.10.2006, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61
Dov, 
проблема в том, что числа представлены дробью в периоде да еще и в двоичной системе счисления. Даже если вычленять цифры из 0.25, например, то это будет 0.24999999 или еще чего нибудь похожее.
Я думал над этой задачей и пробовал. И получается, что знаменатель у всех будет один. Если задасться точностью представления N,  то же 10^(- N)

Точно с конечным числом знаков после запятой будут предствляться числа = сумме степеней двоек 0,5, 0,25,  0,125

Это сообщение отредактировал(а) Kuvaldis - 13.10.2006, 20:36


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
Dov
Дата 13.10.2006, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


аСинизатор
***


Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88
Цитата(Kuvaldis @  13.10.2006,  20:15 Найти цитируемый пост)
Dov, проблема в том, что числа представлены дробью в периоде да еще и в двоичной системе счисления. Даже если вычленять цифры из 0.25, например, то это будет 0.24999999 или еще чего нибудь похожее.Я думал над этой задачей и пробовал. И получается, что знаменатель у всех будет один. Если задасться точностью представления N,  то же 10^(- N)

Kuvaldis, ну тебя и покрутило  smile , ты чего это,  глубоко копаешь, проще нуна на вещи смотреть, проще.  smile  smile 


--------------------
Тут вечности запах томительный,
И свежие фрукты дешевые, 
А климат у нас – изумительный, 
И только соседи – #уевые. 
                           Игорь Губерман.
PM   Вверх
volvo877
Дата 14.10.2006, 00:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 34
Всего: 116
Цитата(Dov @  13.10.2006,  21:31 Найти цитируемый пост)
проще нуна на вещи смотреть
Попробуй посмотреть проще... Только не забудь вот об этом:
Цитата(lomobot @  10.10.2006,  13:52 Найти цитируемый пост)
Дана вещественная матрица дробных чисел. Найти в каждой строке числа с наименьшим знаменателем


Your Turn ...
PM MAIL   Вверх
Dov
Дата 14.10.2006, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


аСинизатор
***


Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88
volvo877, что-то я тебя не понял, условия я читал, зачем их красным выделять.
Ну есть у нас матрица. Задаём ей размер, заполняем значениями, находим то, что требуется найти, выводим на экран... Всё. Вроде ничего не забыл. 


--------------------
Тут вечности запах томительный,
И свежие фрукты дешевые, 
А климат у нас – изумительный, 
И только соседи – #уевые. 
                           Игорь Губерман.
PM   Вверх
lomobot
Дата 16.10.2006, 05:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Сделайте дробь в строке, может проканает...
PM MAIL   Вверх
comtat
Дата 16.10.2006, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 8
Всего: 71
Цитата(lomobot @  16.10.2006,  05:26 Найти цитируемый пост)
Сделайте дробь в строке, может проканает...

Формулируйте точно, что необходимо, потому что в зависимости 
от формулировки возможны различные (кординально отличные) варианты решения


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
lomobot
Дата 16.10.2006, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Код

uses crt;
var a,d,p,f:array [1..10,1..10] of real;

    i,j,n,m,r:integer;
    b,c,min,k:real;

    begin
    clrscr;
    randomize;
     writeln ('введите размеры массива n на m'); writeln;
      readln (n,m);
     for i:=1 to n do begin
      for j:=1 to m do begin
       b:=1+random(9);
        c:=1+random(9);
         a[i,j]:=b;
          d[i,j]:=c;
      end;
     end;

      for i:=1 to n do  begin
       for j:=1 to m  do begin
        write (' ',a[i,j]:1:0,'/',d[i,j]:1:0);end; writeln;end;
        j:=1;
         for I:=1 to n do begin
         for j:=1 to m do begin
          if min>d[i,j] then begin min:=d[i,j]; k:=a[i,j];
          end;
          end;
writeln ('Число с наибольшим знаменателем в строке ',i,'равно ',k:1:0,'/',min:1:0);
       end;
        i:=1; j:=1;
       min:=d[i,j];
        for I:=1 to n do begin
         for j:=1 to m do begin
          if min<d[i,j] then begin min:=d[i,j]; k:=a[i,j];
          end;
          end;
     writeln ('Наибольшее из них равно ',min:1:0,'/',k:1:0);end;
     readkey;
     end.


****************************************************

Вот мой вариант задачи, вот только не могу сделать чтобы циклы работали правильно, исправте пожалста циклы. Если кому не понятно некоторые детали моих действий в проге то отпишитесь я всё обьясню.
с уважением lomobot.


M
alexeis1		Использование тегов "КОД" обязательно!





Это сообщение отредактировал(а) alexeis1 - 16.10.2006, 17:38
PM MAIL   Вверх
Kuvaldis
Дата 16.10.2006, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61
lomobot, 
Код

var
    a, d : array [1..10,1..10] of real;

    max_i, max_j, i, j, n, m : integer;
    b, c : integer;
    min, max : real;

begin
    randomize;
    writeln ('Input matrix size'); writeln;
    readln (n,m);

    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            b := 1 + random(9);
            c := 1 + random(9);
            a[i, j] := b;
            d[i, j] := c;
            write (' ',a[i,j] : 1 : 0 ,'/',d[i,j] : 1 : 0);
        end;
        writeln;
     end;


     for i := 1 to n do
     begin
         min := d[i, 1];    // initialization
         b := i;
         c := 1;
         for j := 1 to m do
         begin
             if (min > d[i, j]) then
             begin
                 min := d[i, j];  
                 c := j;
             end;
         end;
         writeln ('Str ',i, ' min znam number = ', a[b, c] : 1 : 0,'/',d[b, c] : 1 : 0);
         min :=  a[b, c] /  d[b, c];
         if (min > max) then
         begin
            max := min;
            max_i := b;
            max_j := c;
         end;
     end;


     writeln ('Max = ',max : 1 : 0, ' = ', a[max_i, max_j] : 1 : 0,' / ',d[max_i, max_j] : 1 : 0);
   readln;
end.


P.S. Тэгами Код в следующий раз пользуйся, ок?


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
lomobot
Дата 16.10.2006, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Kuvaldis, ок! огромное спасибо!
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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