Модераторы: 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   Вверх
Dov
Дата 16.10.2006, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Dov @  13.10.2006,  22:31 Найти цитируемый пост)
проще нуна на вещи смотреть, проще.

А, говорил же я, говорил, не верили.  smile
 А алгоритмик-то мой передрали 1 : 1. smile   
Цитата(Dov @  14.10.2006,  00:53 Найти цитируемый пост)
Ну есть у нас матрица. Задаём ей размер, заполняем значениями, находим то, что требуется найти, выводим на экран...

Но всё равно,  код на С++ смотрится красивше.  smile  Да и вобще, как вы там ориентируетесь в этом паскале, вместо имён переменных - весь английский алфавит, там что, запрещено давать переменным осмысленные имена.  smile  Кошмар просто. Хорошо хоть, что у Kuvaldis`а,  код отформатирован, а то бы вабще нифуя не понял бы.  smile А С++, ИМХО, всё-таки лучше.


З.Ы. А я говорю, что  код на С++ смотрится красивше. И не спорьте.  smile

А код-то, вот он.
Код
#include <stdio.h>
#include <stdlib.h> 
#include <time.h>

const int     row = 4;                           // количество строк матрицы
const int     col = 6;                           // количество столбцов матрицы    

// дробь "и её компоненты"
struct fraction 
{
    int       numer;                             // числитель
    int       denom;                             // знаменатель
    double    value;                             // значение дроби 
};

int main(int argc, char *argv[] )
{
    srand((unsigned)time(NULL));                 // "запускаем" генератор случайных чисел
    
    fraction  matr[row][col];                     // матрица дробных чисел
    fraction  low_denom;                         // число с наименьшим знаменателем
    fraction  max_fract = {0, 1, 0};             // наибольшее число среди чисел с наименьшим знаменателем    
    
    puts("Source matrix:");
    
    // инициализируем матрицу и выводим её значения на экран в виде: ЧИСЛИТЕЛЬ/ЗНАМЕНАТЕЛЬ
    for(int i = 0; i < row; i++)
    {
        for(int j = 0; j < col; j++)
        {
            matr[i][j].numer = rand() % 10   + 1;
            matr[i][j].denom = rand() % 1000 + 2; // знаменатель не должен быть равен 0 
            matr[i][j].value = (double)matr[i][j].numer / matr[i][j].denom;
            printf("%3d/%-5d", matr[i][j].numer, matr[i][j].denom);
        }
        putchar('\n');
    }
    
    puts("\nNumbers with lowest denominator:");
    
    // в каждой строке матрицы...   
    for(i = 0; i < row; i++)
    {
        // ...начиная с нулевого элемента...
        low_denom.numer = matr[i][0].numer;                
        low_denom.denom = matr[i][0].denom;                
        low_denom.value = matr[i][0].value;
        
        // ...ищем число с наименьшим знаменателем...
        for(int j = 1; j < col; j++)
        {
            // ...и если находим, ...
            if(low_denom.denom > matr[i][j].denom)
            {
                // ...то "запоминаем" его
                low_denom.numer = matr[i][j].numer;
                low_denom.denom = matr[i][j].denom;
                low_denom.value = matr[i][j].value;
            } 
        }
        
        // сравнивая найденные числа, находим самое большое    из них 
        if(max_fract.value < low_denom.value)
        {            
            max_fract.numer = low_denom.numer;
            max_fract.denom = low_denom.denom;
            max_fract.value = low_denom.value;
        } 
        
        // выводим числа с наименьшим знаменателем в виде: № СТРОКИ. ЧИСЛИТЕЛЬ/ЗНАМЕНАТЕЛЬ = ЗНАЧЕНИЕ
        printf("%3d.%3d/%-3d = %g\n", i + 1, low_denom.numer, low_denom.denom, low_denom.value);    
    }
    
    // выводим наибольшее среди найденных чисел в виде: ЧИСЛИТЕЛЬ/ЗНАМЕНАТЕЛЬ = ЗНАЧЕНИЕ
    printf("\nMax value:\n%7d/%-3d = %g\n\n", max_fract.numer, max_fract.denom, max_fract.value);
    
    return 0;
}
 

Это сообщение отредактировал(а) Dov - 12.1.2007, 01:33


--------------------
Тут вечности запах томительный,
И свежие фрукты дешевые, 
А климат у нас – изумительный, 
И только соседи – #уевые. 
                           Игорь Губерман.
PM   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

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


 




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


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

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