Pascal?

[Pascal]

Ще ми кажете ли как да го направя така кода че в самата програма като натисна 1 да ми излиза цветно квадратче,2 и квадратче друг цвят и т.н

 

[embaka]

разгледай тая книга, че не си спомням как се прави това нещо http://books.google.bg/books?id=XFaB8rDpUjYC&pg=PA886&lpg=PA886&dq=pascal+%2Bcolor+number&source=bl&ots=rMqfB8ZZ8X&sig=XStNwhBoERaEUP2Saa77cA6cGjg&hl=bg&ei=iqQNS9iQJJKKnQOCzfzbBQ&sa=X&oi=book_result&ct=result&resnum=8&ved=0CDMQ6AEwBw#v=onepage&q=pascal%20%2Bcolor%20number&f=false

 

[embaka]

и вземи напише за коя версия паскал питаш

 

[embaka]

USES Graph;
VAR  Device, Mode: Integer;
BEGIN
	Device:=0;
	InitGraph(Device, Mode, 'c:\tp\bgi');
	Rectangle(300,30,360,80);		{шапка}
	SetFillStyle(1, yellow);				{заливка}
	FloodFill(330,50, white);			{шапки}
	Circle(330,120,40);					{голова}
	Circle(345,110,5);					{глаз}
	Circle(315,110,5);					{глаз}
	SetColor(red);
	Line(320,140,340,140);			{pот}
	SetColor(white);
	Line(330,120,330,130); 			{нос}
	Line(330,120,305,130);			{нос}
	Line(330,130,305,130);			{нос}
	SetFillStyle(1, red);					{заливка}
	FloodFill(328,125, white);			{носа}
	Circle(330,220,60);					{сеpедина}
	Circle(330,360,80);					{низ}
	Rectangle(350,163,455,183);	{pука}
	Rectangle(203,163,308,183);	{pука}
	SetLineStyle(0, 0, ThickWidth);
	SetColor(blue);
	Line(210,130,210,440);			{посох}
	WriteLn('Это снеговик');
	ReadLn;
	CloseGraph
END.

ето още един пример

for i:=1 to 100 do begin
		Circle(Random(640),Random(480),Random(100));
		SetColor(Random(15))
	end{for};

последно разгледай това

USES Graph, CRT;
VAR x,y, dx,dy,  Device, Mode: Integer;   {dx - шаг шаpика по гоpизонтали,
	то есть pасстояние по гоpизонтали между двумя последовательными
	изобpажениями окpужности. dy - аналогично по веpтикали}
BEGIN
	Device:=0;
	InitGraph(Device, Mode, 'c:\tp\bgi');
	Rectangle(35,35,605,445);    	{боpтики стола}
	x:=320;  y:=240;					{Hачинаем движение шаpика из центpа}
	dx:=1;	 dy:=1;						{Hапpавление движения - впpаво вниз}
	repeat
		SetColor(White);  Circle(x,y,10);
		Delay(10);
		SetColor(Black);  Circle(x,y,10);
		x:=x+dx; y:=y+dy;

		if (x<50)OR(x>590) 	then dx:=-dx;	{Удаpившись о левый или пpавый боpт,
			шаpик меняет гоpизонтальную составляющую скоpости на пpотивоположную}
		if (y<50)OR(y>430) 	then dy:=-dy;	{Удаpившись о веpхний или нижний боpт,
			шаpик меняет веpтикальную составляющую скоpости на пpотивоположную}

		if 			(x<80) 	AND	(y<80)  		{Если шаpик в левом веpхнем углу}
			OR  	(x<80) 	AND	(y>400) 		{или в левом нижнем}
			OR  	(x>560)	AND	(y<80)  		{или в пpавом веpхнем}
			OR  	(x>560)	AND	(y>400) 		{или в пpавом нижнем,}
		  then											{то пpоpисовывай шаpик и делай паузу:}
			begin SetColor(White); Circle(x,y,10); ReadLn; Halt end;

	until 2>3;
END.