массив

[NewMen]

Пипец, задали прогу на массив.....с таким условием, что фиг поймёшь как решить. Кому не трудно, помогите...


1)Условие: Придумайте программу которая заполняет массив длины 100 случайными целыми числами от 0 до 100, так, чтобы каждое число использовалось не более одного раза. Заранее Спасибо!!!

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

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

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

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

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



Обращение к Администраторам: Спасибо за такоё Великолепный Сайт....Он меня не раз спа:сал)

[cherw9!40k]

var a,i,j: integer;

for i:=0 to 99 do
begin
 b:=true
 while(b=true)
 begin
 a:= random(100) //Не помню как случайные числа генерируются, но не в  этом суть
  for j:=0 to i do begin
   if (a=c[j])then
    begin 
    b:=true;
    break;
    end else b:=false;
 end;
massiv[i]:=a;
end

Как-то так. Над правильностью кода не парился - главное суть.

[NewMen]

Спасибо Конечно, но мне нужно точно....
Если можно поточнее.........

[cherw9!40k]

Там точно. Единственное - я не помню, как случайные числа генерировать + ты не указал язык программирования. Ну и потом, как же ты научишься, если все будут делать за тебя?

[NewMen]

randomize;
for i:=1 to 100
for j:=1 to 100
a[i,j]:=random(101);




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

задача реализовывается на TurboPascal

писец, сколько ошибок)))

[cherw9!40k]

Я тебе все написал. Критерий того, чтобы числа не повторялись реализуется в цикле while(b=true)

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

писец, сколько ошибок)))

Дай, угадаю: ты просто вставил и попробовал скомпилировать код?

[NewMen]

я вот смотрю и не понимаю половины.....это на какой ЯП реаливывается это программа?

[IT-man]

это на какой ЯП

это смесь имхо с++ и паскаля))

[NewMen]

нее, мне с++ не нада, мне нужно реализовать только на TurboPascal

[A_r_r_a_y]

cherw9!40k

int a;
int i;
int j;

немного не по паскалевски)