VPF::[Pascal] Матрицы - Форум программистов

лиса

Дата 10.1.2007, 13:03 (ссылка)

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

Загрузка ...

Новичок

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

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

помогите пожалуйста...никак неполучаеться.....

Найти максимальный среди минимальных элементов каждой из строк матриц В(5,10) и С(10,20). Задачу решить с использованием подпрограммы.

Помогите девушке..ну не понимаю я программирование

Rodman

Дата 10.1.2007, 13:34 (ссылка)

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

Загрузка ...

CIO

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

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

Код


#include <stdio.h>
#define N 20
int mas1[N][N],mas2[N][N];
int n = N;
void vvod ()
{  printf("vvedite elementi massiva B\n");
    for (int i=0;i<5;i++)
        for(int j=0;j<10;j++) 
           scanf("%d",&mas1[i][j]);
   printf("vvedite elementi massiva C\n");
    for (int i=0;i<10;i++)
        for(int j=0;j<20;j++) 
           scanf("%d",&mas2[i][j]);
}
void finder ()
{  int xm, res=-100000;
   for (int i=0;i<5;i++)
    {  xm=100000
        for(int j=0;j<10;j++) 
        { if(mas1[i][j]<xm)
               xm= mas1[i][j];
        }
        if(xm>res)
           res=xm;
    } 
    res=-100000;
    printf("Buggest in B = %d", res);
    for (int i=0;i<10;i++)
    {  xm=100000
        for(int j=0;j<20;j++) 
        { if(mas1[i][j]<xm)
               xm= mas1[i][j];
        }
        if(xm>res)
           res=xm;
    } 
    printf("Buggest in C = %d", res);
}
int main()
{
    vvod ();
    finder();
    return 0;
}

кажется так...

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

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

Лотереи мира

лиса

Дата 10.1.2007, 14:22 (ссылка)

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

Загрузка ...

Новичок

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

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

мммм..а на паскале это как буит выглядеть? smile

Добавлено @ 14:26
я очень сильно извиняюсь..виновата....но после 3 бессоных ночей начинаються глюки..мне на паскале надо..
простите....
я идиотка smile

Igor_St

Дата 11.1.2007, 01:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Зайди на http://skopin.fromru.com/p_mass.htm. Там есть задачка похожая очень на твою, про оптимальность и читабельность сказать ничего не могу. Но из условия похоже что цель у вас одинаковая... smile

лиса

Дата 11.1.2007, 06:09 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо..да действительно похожи....только у меня 2 матритцы сразу...эх...буду пытаться разобраться

Igor_St

Дата 11.1.2007, 08:39 (ссылка)

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

Загрузка ...

Новичок

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

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

так что в задаче надо найти - для каждой матрицы максимальный элемент или из двух матриц один максимальный. Если для каждой матриц то просто применяешь процедуру поиска для каждой... если будут вопросы спрашивай smile

V.A.KeRneL

Дата 11.1.2007, 16:37 (ссылка)

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

Загрузка ...

Vadim A. Kazantsev

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

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

Код


Program matrixes;

uses 
    Crt;

const 
    N = 20;

var 
    mas1 : array[0..N-1, 0..N-1] of integer,
    mas2 : array[0..N-1, 0..N-1] of integer;
    n : integer;
    
procedure vvod;
begin 
    var 
        i, j : integer;
    
    writeln('Vvedite elementi massiva B');
    for i := 0 to 5-1 do begin 
        for j := 0 to 10-1 do begin 
            write('Vvedite B[', i, ',', j, '] := ');
            readln(mas1[i, j]);
        end;
    end;
    
    writeln('Vvedite elementi massiva C');
    for i := 0 to 10-1 do begin 
        for j := 0 to 20-1 do begin 
            write('Vvedite C[', i, ',', j, '] := ');
            readln(mas2[i, j]);
        end;
    end;
end;

procedure finder;
begin 
    var 
        i, j, xm, res : integer;
    
    res := -100000;
    for i := 0 to 5-1 do begin 
        xm := 100000;
        for j := 0 to 10-1 do begin 
            if (mas1[i, j] < xm) 
                xm := mas1[i, j];
        end;
        if (xm > res) 
            res := xm;
    end;
    writeln('The greatest element in B = ', res);
    
    res := -100000;
    for i := 0 to 10-1 do begin 
        xm := 100000;
        for j := 0 to 20-1 do begin 
            if (mas2[i, j] < xm) 
                xm := mas2[i, j];
        end;
        if (xm > res) 
            res := xm;
    end;
    writeln('The greatest element in C = ', res);
end;

BEGIN 
    {SlrScr;}
    
    n = N;
    
    vvod;
    finder;
    
    writeln;
    readln;
END.

Вот, опять таки «вроде так»... Переписал варианит Rodman'а на Pascal, попутно исправив некоторые ошибки... Но тоже не тестировал, а лишь переписал в браузере прогу с Си на Паскаль!..

Это сообщение отредактировал(а) V.A.KeRneL - 12.1.2007, 08:21

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

«C'est un pense-creux d'ici. C'est le meilleur et le plus irascible homme du monde...» © Ф.М. Достоевский, «Бесы»
---/)/)---(\.../)---(\(\
--(':'=)---(=';'=)---(=':')
(")(")..)-(").--.(")-(..(")(")

лиса

Дата 12.1.2007, 03:36 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо большое

V.A.KeRneL

Дата 12.1.2007, 18:34 (ссылка)

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

Загрузка ...

Vadim A. Kazantsev

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

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

Trojan, создай собственную тему! smile

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

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