массив

[NewMen]

Код:

end;
end else begin
Меня вот это смущает

точно, я тут лишний end написал, но все равно программа не работает

все равно, иногда повторяются цифры.....

Ну что? Никто не знает?

[cherw9!40k]

У тебя логика неправильная. Если число сгенерировалось то, которое уже было, нет цикла, который выполнялся до тех пор, пока не найден новое число, в то время как цикл for продолжает заполнять массив.

[NewMen]

если тебе не трудно, напиши привельное Решение, а я просто сверю со своим и найду свою ошибку. Просто напиши пожалуйста...)))

[cherw9!40k]

Я тебе уже писал свою версию - тебе ее только адаптировать.

[NewMen]

блин, чё то я не могу её переделать(((

адаптация потерпела КРАХ(

Помоги...Червячок!!!)))

[IT-man]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const val=100;
type vector = array[1..100] of Integer;
var  
        a:vector;
  j,i,n,k:Integer;
        f:Boolean;

begin
  Randomize;
  n:=1;
  for i:=1 to val do
    begin
      repeat
        f:=False;
        k:=Random(val+1);
        for j:=1 to n do
          if k=a[j] then
            begin
              f:=True;
              Break;
            end;
      until not f;
      a[i]:=k;
      n:=n+1;
      write(a[i]:3);
    end;
 readln;
end.

[NewMen]

Спасибо)))

IT-Man а сможешь решить 2ю задачю?

Известно, что цвет трехмерен (RGB), а плоскость экрана двумерная. Задача заключается в том, что бы нарисовать на экране непрерывную палитру, содержащую все цвета.

Для решения задачи вам потребуется немного теории.

Дадим критерий непрерывной палитры:
Две соседних точки (по вертикали или горизонтали), имеющие цвета (R1, G1, B1) и (R2, G2, B2) соответственно должны удовлетворять следующему равенству:
Abs (R1 - R2) + Abs (G1 - G2) + Abs (B1- B2) = 1

В задаче необходимо оперировать палитрой из 4096 цветов (на некоторых мобильных телефонах, к примеру, такая). В ней каждая компонента цвета 4-х разрядная, следовательно, принимает значения от 0 до 15.

Вам потребуется функция преобразования RGB-цвета из данной палитры в 24-х битный цвет экрана. Так же вы должны уметь выводить точки произвольного цвета на экран.


Это задача для Гениев! ))) Кто попробует её Решить?)

[val_nnm]

Вот тебе подсказка:
Я вижу два способа создать палитру с нужими тебе свойствами.

1) Палитра будет размером 16x256 не один цвет не будет повторятся.
2) Палитра 128x128 (но некоторые цвета будут повторятся) Это будет достаточно сложный алгорить. (поэтому его расматрвать не будет)

Первый вариант можно реализовать с помощью следующего кода

var r,g,b:integer;
    x,y:integer;
begin
  x := 0;
  y := 0;
  for x := 0 to 15 do Begin
    for y := 0 to ((16*16)-1) do Begin
      r := x;
      g := y div 16;
      if (((y div 16) mod 2) = 0) then Begin
        b := y mod 16;
      End else Begin
        b := 15-(y mod 16);
      end;
      { Здесь нужно перевести цвета в нужный тебе формат и нарисовать пиксель в кординатах x,y }
    end;
  end;
end;

[NewMen]

мне нужен первы вариант 16х256

[NewMen]

Спасибо)))