Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.10.2008, 13:19   #1
Tashka
 
Регистрация: 12.10.2008
Сообщений: 8
По умолчанию помогите создать процедуру! плз

надо написать программу, которая вызывает свою процедуру (или функцию) ЦВЕТ. В ней задан массив цветов, из него надо выбрать случайный и передать переменной в программе. Ну и вывести соответственно
Tashka вне форума Ответить с цитированием
Старый 12.10.2008, 15:06   #2
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Восклицание

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

Последний раз редактировалось AngelOfDeath; 12.10.2008 в 15:09.
AngelOfDeath вне форума Ответить с цитированием
Старый 12.10.2008, 15:16   #3
Tashka
 
Регистрация: 12.10.2008
Сообщений: 8
По умолчанию

конечно пыталась!
Tashka вне форума Ответить с цитированием
Старый 12.10.2008, 15:37   #4
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Выложите свои наработки, посмотрим
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 12.10.2008, 15:58   #5
Kostia
Участник клуба
 
Аватар для Kostia
 
Регистрация: 21.11.2007
Сообщений: 1,691
По умолчанию

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

Код:
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.
Kostia вне форума Ответить с цитированием
Старый 12.10.2008, 16:29   #6
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Цитата:
Сообщение от Kostia Посмотреть сообщение
cl[i]:=random($ffffff);
Только в Паскале цветов не более 65 тыс с хвостиком (16 в стандартном режиме) - лучше так cl[i]:=random(GetMaxColor). Но если надо просто ввывести "цифру цвета", то можно и так.
eoln вне форума Ответить с цитированием
Старый 13.10.2008, 01:25   #7
Tashka
 
Регистрация: 12.10.2008
Сообщений: 8
По умолчанию

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


Код:
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.

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

Последний раз редактировалось Alex21; 13.10.2008 в 08:46.
Tashka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите оптимизировать процедуру Cold Went Компоненты Delphi 4 29.04.2008 15:11
Как создать процедуру и функцию? Absent Общие вопросы Delphi 1 18.11.2007 17:36
помогите оптимизировать процедуру _XspeC_ Общие вопросы Delphi 12 08.04.2007 02:05