IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Номер строки с минимальным числом элементов
REC0N
сообщение 3.03.2010 18:31
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Миша

Репутация: -  0  +


Дана матрица NxN.
Помогите вывести номер строки с минимальным число элементов что равны заданному (заданое число вводит пользователь)
Итак, у меня выводит n строк и количество элементов и напротив каждой строки, как вывести лишь минимальную строку?
Вот что наработал:

program matryca;
  uses crt;
  const nmax=1000;
  label 25;

  var Matr:array[1..nmax,1..nmax] of integer;
      Vec:array[1..nmax] of integer;
      n,m,i,j,k,l,min : integer;

  begin
        25:
        write ('Введите количество строк в матрице:');
        readln (m);
        write ('Введите количество столбцов в матрице:');
        readln (n);
        if m<>n then begin writeln('Матрица должна быть квадратная! ! !');goto 25; end;


        //  Ввод матрицы

        writeln('                            ');
        writeln('       -------------------- ');
        writeln('           Ввод матрицы     ');
        writeln('       -------------------- ');
        writeln('                            ');

                for i:=1 to n do
                for j:=1 to m do begin

        write ('Введите элемент матрицы A(',i,';',j,'):');
                readln (Matr[i,j]);
        end;

        // Вывод матрицы

        for i:=1 to n do begin
        write('(',i,'-я строка) ');
        for j:=1 to m do
                         write(Matr[i,j],' ');
                         writeln;
        end;

        // Введення числа


                  write('Введите число: ');
                  read(k);

                           for i:=1 to n do begin vec[i]:=0;
                           for j:=1 to m do begin
                           
                           if k=matr[i,j] then vec[i]:=vec[i]+1
                           end;
                           

                  end;

                  for i:=1 to n do begin
                  write('Количество введенных пользователем символов в ', i,'-й строчке: ', vec [i]);
                  writeln;
                  end;

end.

P.S:Делал на PascalABC
dry.gif dry.gif dry.gif


Прикрепленные файлы
Прикрепленный файл  obch_prak_24.rar ( 664 байт ) Кол-во скачиваний: 126
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 3.03.2010 19:54
Сообщение #2


Гость






Цитата
а на счет goto, каким образом проверить матрица квадратная
Легко:

repeat
        write ('Введите количество строк в матрице:');
        readln (m);
        write ('Введите количество столбцов в матрице:');
        readln (n);
        if m<>n then writeln('Матрица должна быть квадратная! ! !');
until m = n;
GoTo выбросилось.
 К началу страницы 
+ Ответить 
REC0N
сообщение 3.03.2010 20:06
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Миша

Репутация: -  0  +


Цитата(volvo @ 3.03.2010 18:54) *

Легко:

repeat
        write ('Введите количество строк в матрице:');
        readln (m);
        write ('Введите количество столбцов в матрице:');
        readln (n);
        if m<>n then writeln('Матрица должна быть квадратная! ! !');
until m = n;
GoTo выбросилось.

Спасибо good.gif good.gif good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
REC0N
сообщение 3.03.2010 22:45
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Миша

Репутация: -  0  +


Можете объяснить почему ми начинаем цикл с i:=2?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 25.07.2025 2:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"