подсчитайте кол-во строк заданной целочисленной матрицы A(5,5), являющихся перестановкой чисел 1,2,3,4,5
program poisk;
uses crt;
const n=5; m=5;
var a:array[1..n,1..m] of integer;
i,j:1..n; k:integer; p:boolean;
Begin randomize;
clrscr;
writeln('isx mas');
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(6)+1;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:2);writeln; end;
readln;
End.
как собсно осуществить сам поиск?
31 мая 2008 в 21:01
=)
опять вернулся к этой задачке, вот так чтоли?
for i:=1 to n do begin k:=0;
for j:=1 to m do
if (a[i,j]=1) or (a[i,j]=2) or (a[i,j]=3) or (a[i,j]=4) or (a[i,j]=5)
and (a[i,j]<>a[i,j+1]) then
k:=k+1;
writeln(k);end;
4 мая 2008 в 16:03
Да, надо таким образом проверить каждую цифру от 1 до 5.
4 мая 2008 в 16:01
А как ты определил, что "3" встречается больше одного раза?
Я все веду к тому, что ты ведь понимаешь СОБСТВЕННЫЙ алгоритм решения этой задачи; почему бы не перевести его на паскаль?
4 мая 2008 в 16:01
т.е нужно завести счётчик, и если он будет больше "1" то выход из цикла. да?
4 мая 2008 в 15:04
"3" встречается больше одного раза
4 мая 2008 в 15:03
А как ты это определил?
4 мая 2008 в 15:00
нет)
4 мая 2008 в 14:05
дак я не пониаю как задать, условие перестановки, чтоб потом проверять его
4 мая 2008 в 14:05
Скажи мне: 3,3,3,4,1 является перестановкой 1,2,3,4,5?
4 мая 2008 в 14:02
Напиши алгоритм на русском языке, потом переведи его на паскаль. Ты ведь можешь объяснить как это делается по-русски?
4 мая 2008 в 14:00
Набор чисел a,b,c,d,e является перестановкой 1,2,3,4,5 если каждое из чисел 1,2,3,4,5 встречается среди них ровно по одному разу.
Например, 3,2,1,5,4 – является, а 1,2,1,5,2 – нет.
4 мая 2008 в 14:00
и как это сделать 0_о
4 мая 2008 в 13:04
Ты знаешь, что такое перестановка?
————————————————–
не допонимаю.
и её как-то нужно решить без процедур и функций
4 мая 2008 в 13:03
Напиши функцию, принимающую на вход матрицу и номер строки, которая проверяет, является ли эта строка этой матрицы – перестановкой чисел от 1 до 5. Ты знаешь, что такое перестановка?
Потом примени ее ко всем строкам матрицы.