Получить последовательность по правилу

@CCCR77 · Регистрация: 06.04.2010

Author24 — интернет-сервис помощи студентам

прошу помощи.

1 Дана матрица целых чисел. получить последовательность Х1, Х2, ... Хn что состоит из 0 и 1 в которой bi = 1 тогда когда все элементы равны между собой.

2. ТОчно такая же как и первая только неравны между собой (можно просто словами обьяснить что как менять).

Буду благодарен за помощь!!!

@Puporev · 27.07.2011, 13:58

Сообщение от CCCR77

все элементы равны между собой.

В строках или в столбцах?
Матрица квадратная или не обязательно?

Добавлено через 22 секунды
Задание списать полностью и то лень...

Добавлено через 5 минут

Сообщение от CCCR77

как и первая только неравны между собой

В смысле все элементы разные, не повторяются?

@CCCR77 · 27.07.2011, 14:33 **[ТС]**

Задание переписано полностью...
На счёт матрицы просто ряд чисел должен быть.

На счёт второй всё правильно понял...

@Puporev · 27.07.2011, 14:51

Сообщение от CCCR77

Задание переписано полностью...

Да не фига не полностью. Можно проверять строки матрицы, а можно столбцы. Да и про размеры матрицы обычно пишется в условии задачи.
Ну раз тебе пофиг, то держи, переделывать не буду.
1.

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    x:array[1..nmax] of byte;
    m,n,i,j:byte;
    s:integer;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов  до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите построчно элементы матрицы, целые числа:');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  x[i]:=1;
  j:=2;
  while(j<=m) and(x[i]=1) do
  if a[i,j]<>a[i,j-1] then x[i]:=0
  else j:=j+1;
 end;
writeln('Массив Х:');
for i:=1 to n do
write(x[i],' ');
readln
end.

2.

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    x:array[1..nmax] of byte;
    m,n,i,j,k:byte;
    s:integer;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов  до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите построчно элементы матрицы, целые числа:');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  x[i]:=1;
  j:=2;
  while(j<=m) and(x[i]=1) do
   begin
    for k:=1 to m do
    if (a[i,j]=a[i,k])and(j<>k) then x[i]:=0;
    if x[i]=1 then j:=j+1;
   end;
 end;
writeln('Массив Х:');
for i:=1 to n do
write(x[i],' ');
readln
end.

@CCCR77 · 27.07.2011, 17:31 **[ТС]**

Спасибо большое - жаль только оно в карман не влазит.

@CCCR77 0 / 0 / 0 Регистрация: 06.04.2010 Сообщений: 66
		1
	Получить последовательность по правилу 27.07.2011, 13:27. Показов 1193. Ответов 4 Метки нет (Все метки) прошу помощи. 1 Дана матрица целых чисел. получить последовательность Х1, Х2, ... Хn что состоит из 0 и 1 в которой bi = 1 тогда когда все элементы равны между собой. 2. ТОчно такая же как и первая только неравны между собой (можно просто словами обьяснить что как менять). Буду благодарен за помощь!!! 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.07.2011, 13:58	2
	Сообщение от CCCR77 все элементы равны между собой. В строках или в столбцах? Матрица квадратная или не обязательно? Добавлено через 22 секунды Задание списать полностью и то лень... Добавлено через 5 минут Сообщение от CCCR77 как и первая только неравны между собой В смысле все элементы разные, не повторяются? 0

@CCCR77 0 / 0 / 0 Регистрация: 06.04.2010 Сообщений: 66
	27.07.2011, 14:33 [ТС]	3
	Задание переписано полностью... На счёт матрицы просто ряд чисел должен быть. На счёт второй всё правильно понял... 0

@CCCR77 0 / 0 / 0 Регистрация: 06.04.2010 Сообщений: 66
	27.07.2011, 17:31 [ТС]	5
	Спасибо большое - жаль только оно в карман не влазит. 0

Получить последовательность по правилу

Решение