Помогите с Pascal очень срочно

[notacat]

Последний раз имел дело с Паскалем 5 лет назад, на данный момент в голове пусто. Как назло у жены сессия и проблемы с Паскалем. Имеется две программы которые требуют небольшой доработки и описания. Если имеются люди свободно владеющие данным вопросом прошу отозваться, сессия горит!!!!!!!!!!!!!!! Заранее благодарен!!!!!!!!!!

 

[Admin1]

Выкладывайте задания и наработки все вместе может что решим.

 

[kancher]

По теме...

Советую попросить помощи вот на этом форуме _http://www.sexnarod.ru/index.php?showforum=502 это не реклама а просто вариант помощи, там уже с этим помогали...

 

[Admin1]

или на _http://programmersforum.ru/

 

[notacat]

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

program Kristall;
uses
Graph, crt;
var
x,y,R,i: integer;
Procedyre kris (x:integer; y:integer; R:integer; i: integer);
begin
Circle (x,y,R);
line;
line(469,238,320,464);
line(320,4604,170,238);
line(170,238,320,15);
line(320,15,320,464);
line(320,15,400,260);
line(400,260,469,238);
line(400,260,320,464);
line(239,260,320,15);
line(170,238,239,260);
line(239,260,320,464);
line(400,260,320,270);
line(320,270,239,260);
repeat
for x := 0 to 3 do
for y := 0 to 1 do
begin
setfillstyle(1,random(15));
{setfillstyle(1,random(2)*8+x*2+y);}
floodfill(240+65*x,240+40*y,15);
end;
until keypressed;
readln;
Closegraph;
end.

 

[kancher]

notacat
Я тебе серьезно говорю, лучше ты ещё там по ссылкам которые дали напиши, ибо не факт что здесь ответят быстро...Яб помог но сам в таких задачах профан...Я только по html...

 

[iBragim]

Это ты только часть кода выложил? процедура начата и незакончена... как кристал будет вращаться если линии очерчивают его по статическим координатам не зависящим от переменных? От переменных у тебя зависит только цвет заивки

Помог бы даже, но где счас "Турбо Паскаль" взять не представляю