VPF::Срочно нужна помощь в решении 2х задач по Паскалю!

uyflyli

Дата 9.11.2009, 16:24 (ссылка)

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

Загрузка ...

Новичок

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

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

1я задача:

не перемещая значений компонентов массива Х (varX: aaray [1..n] of integer; 1<=X <=m, m <<n), найти все числа, которые встречаются в нём ровно три раза

2я задача:

дана матрица, представленная двумерным массивом a (Var a array [1..n, 1..n] of integer). Известно, что множество значений её компонентов принадлежит диапозону 1..k. Сформировать множество чисел, каждое из которых присутствует среди значений компонентов одной и только одной из строк массива a.

smile

Ymnuk

Дата 10.11.2009, 20:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

1я задача:

не перемещая значений компонентов массива Х (varX: aaray [1..n] of integer; 1<=X <=m, m <<n), найти все числа, которые встречаются в нём ровно три раза

Код


const
n = 10000;
type
Tcint = record//запись для удобства
  num,//число
  count:integer;//количество раз встречающегося числа
end;

var
  x: array[1..n] of integer;
  c: array [1..1000] of Tcint;
  i,j:integer;//Счетчики циклов
  b:integer;//доп. счетчик.
  ins:boolean;//Для себя (проверка найденного числа. Если не найдено, то добавляем новый элемент и присваиваем количество 1)
begin
ins:=false;
b:=0;
for i:=1 to n do
  begin
    if b=0 then
      begin
        c[b+1].num:=x[i];
        c[b+1].count:=1;
      end
    else
      begin
        for j:=1 to b+1 do
          if x[i]=c[j].num then
           begin
             inc(c[j].count);
             ins:=true;
           end;
        if not ins then
         begin
           c[b+1].num:=x[i];
           c[b+1].count:=1;
           ins:=false;
         end;
      end;
   end;
for i:=1 to b+1 do
  if c[i].count=3 then writeln(c[i].num;
end;

Что-то типа этого. Массив можно сделать динамическим.

P.S. За код не ругайте - писал на коленке. smile

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