![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
REC0N |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Пол: Мужской Реальное имя: Миша Репутация: ![]() ![]() ![]() |
Дана матрица 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 ![]() ![]() ![]() Прикрепленные файлы ![]() |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата а на счет goto, каким образом проверить матрица квадратная Легко:repeat
write ('Введите количество строк в матрице:');
readln (m);
write ('Введите количество столбцов в матрице:');
readln (n);
if m<>n then writeln('Матрица должна быть квадратная! ! !');
until m = n;
GoTo выбросилось. |
REC0N |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Пол: Мужской Реальное имя: Миша Репутация: ![]() ![]() ![]() |
|
REC0N |
![]()
Сообщение
#4
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Пол: Мужской Реальное имя: Миша Репутация: ![]() ![]() ![]() |
Можете объяснить почему ми начинаем цикл с i:=2?
|
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 2:45 |