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

notacat

New member
Регистрация
6 Июн 2008
Сообщения
2
Реакции
0
Баллы
0
Адрес
Новодвинск
Последний раз имел дело с Паскалем 5 лет назад, на данный момент в голове пусто. Как назло у жены сессия и проблемы с Паскалем. Имеется две программы которые требуют небольшой доработки и описания. Если имеются люди свободно владеющие данным вопросом прошу отозваться, сессия горит!!!!!!!!!!!!!!! Заранее благодарен!!!!!!!!!!
 

Admin1

Главный вредитель
Команда форума
Регистрация
10 Фев 2008
Сообщения
845
Реакции
8
Баллы
18
Выкладывайте задания и наработки все вместе может что решим.
 

kancher

KENNY
Регистрация
19 Апр 2008
Сообщения
643
Реакции
1
Баллы
0
Адрес
Северодвинск
По теме...

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

Admin1

Главный вредитель
Команда форума
Регистрация
10 Фев 2008
Сообщения
845
Реакции
8
Баллы
18
или на _http://programmersforum.ru/
 

notacat

New member
Регистрация
6 Июн 2008
Сообщения
2
Реакции
0
Баллы
0
Адрес
Новодвинск
В данной программе имеется кристал, необходимо чтобы он вращался по своей горизонтальной оси. Вращение требуют выполнить в процедуре.

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

KENNY
Регистрация
19 Апр 2008
Сообщения
643
Реакции
1
Баллы
0
Адрес
Северодвинск
notacat
Я тебе серьезно говорю, лучше ты ещё там по ссылкам которые дали напиши, ибо не факт что здесь ответят быстро...Яб помог но сам в таких задачах профан...Я только по html...
 

iBragim

New member
Регистрация
25 Дек 2008
Сообщения
6
Реакции
0
Баллы
0
Это ты только часть кода выложил? процедура начата и незакончена... как кристал будет вращаться если линии очерчивают его по статическим координатам не зависящим от переменных? От переменных у тебя зависит только цвет заивки :)

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