помогите создать процедуру! плз

[Tashka]

надо написать программу, которая вызывает свою процедуру (или функцию) ЦВЕТ. В ней задан массив цветов, из него надо выбрать случайный и передать переменной в программе. Ну и вывести соответственно

[AngelOfDeath]

Вы хоть что нить попытались написать сами?
Вы просите не помочь, а сделать программу!
С такими требованиями вам только во фриланс

[Tashka]

конечно пыталась!

[-=<[Evklidd]>=-]

Выложите свои наработки, посмотрим

[Kostia]

Ээ... если я правильно понял

function color: longint;
var
  cl: array[1..100]of longint;
  i: integer;
begin
  for i:=1 to 100 do cl[i]:=random($ffffff);
  color:=cl[1+random(100)];
end;

var
  cl: longint;
begin
  randomize;
  cl:=color;
  write(cl);
  readln();
end.

[eoln]

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

cl[i]:=random($ffffff);

Только в Паскале цветов не более 65 тыс с хвостиком (16 в стандартном режиме) - лучше так cl[i]:=random(GetMaxColor). Но если надо просто ввывести "цифру цвета", то можно и так.

[Tashka]

Спасибо вам, ребятки большое!!)
Не знаю, будет ли работать, просто тут задание:
Определить классы и их иерархию, а так же продемонстрировать использование введенных конструкций при работе.
Класс-родитель - лекарства.
потомки: лекарства->микстура и лекарства->таблетки->пилюли.
надо организовать поиск.
Моя программа не работает((((

program two;
uses CRT;
 
type Lekarstva=Object
massiv: array[1..6] of string;
procedure Init(mass: array[1..6] of string);
procedure vvod;
end;

type Miksturi=Object(Lekarstva)
c,v: string;
procedure Init(cn,vn: string);
procedure cvet(cv: string);
procedure vkus(vk: string);
end;

type Tabletki=Objekt(Lekarstva)
k: integer;
f: string;
procedure Init(kn: integer; fn: string);
procedure forma(form: string);
procedure kolvo(kol: integer);
end;

type Piluli=Objekt(Tabletki)
s: string;
procedure Init(sn: string);
procedure strana( str: string);
end;

procedure Lekarstva.Init;
begin
massiv:=mass;
end;

procedure lekarstva.vvod;
var
i:integer;
mass: array[1..6] of string;
begin
writeln(' Miksturi: ');
for i:=1 to 2 do 
begin
writeln(i, '.' );
readln(mass[i]);
end;
writeln(' Tabletki: ');
for i:=3 to 4 do 
begin
writeln(i, '.' );
readln(mass[i]);
end;
writeln(' Piluli: ');
for i:=5 to 6 do 
begin
writeln(i, '.' );
readln(mass[i]);
end;
end;

procedure Miksturi.Init;
begin
c:=cn;
v:=vn;
end;

procedure Mikcturi.cvet;
 { не знаю, как написать } {цвета: красный, зеленый, безцветный}
end;

procedure Mikcturi.vkus;
 { не знаю, как написать } {вкусы: кислый, сладкий, горький, безвкусный}
end;

procedure Tabletki.Init;
begin
k:=kn;
f:=fn;
end;

procedure Tabletki.forma;
 { не знаю, как написать } {формы: круглая, плоская, прямоугольная}
end;

procedure Tabletki.kolvo;
 { не знаю, как написать } {количества: 30, 40, 50}
end;

procedure Piluli.Init;
bedin
sn:=s;
end;

procedure Piluli.strana;
 { не знаю, как написать } {страны: Россия, Германия, Япония}
end;

var
L, imya, m, t, p: string;
i: integer;
begin
L.vvod;
writeln('POISK');
writeln('vvedite nazvanie lekarstva: ');
readln(imya);
for i:=1 to 6 do
begin
if (imya=massiv[1]) or (imya=massiv[2]) then
begin
writeln('cvet: ');
m.cvet;
writeln('vkus: ');
m.vkus;
end;
if (imya=massiv[3]) or (imya=massiv[4]) then
begin
writeln('forma: ');
t.forma;
writeln('kol-vo v upakovke: ');
t.kolvo;
end;
if (imya=massiv[5]) or (imya=massiv[6]) then
begin
writeln('kol-vo v upakovke: ');
p.kolvo;
writeln('strana-proizvoditel: ');
p.strana;
end;
end;
end.

только почему то ничего не работает((