Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44

с центра не идет дальше вниз!

29.05.2011, 15:40. Показов 1078. Ответов 11
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

Program kursovaya;
Uses GraphABC,crt;
Var i:integer;
Begin
HideCursor;
Setwindowsize(800,600);
Centerwindow;
LockDrawing;
For i:=1 to 250 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+i,60,100+i,60);
//Ïðÿìàÿ
Line(100+i,60,100+i,100);
//Êîñàÿ
Line(100+i,100,140+i,60);
//Âåðõ ñïðàâà
Line(140+i,60,220+i,60);
//Äëèííàÿ ñëåâà
Line(30+i,60,30+i,250);
//Êîñàÿ áîëüøàÿ
Line(220+i,60,30+i,250);
//Çàêðàñêà
Floodfill(40+i,70,clRed);
//ðîâíàÿ ëèíèÿ
Line(160+i,130,110+i,180);
//Ïðàâàÿ
Line(160+i,130,210+i,180);
//Ëåâàÿ
Line(110+i,180,160+i,230);
//Ïðàâàÿ â áîê
Line(210+i,180,230+i,160);
//Ëåâàÿ â áîê
Line(160+i,230,140+i,250);
//Ëåâàÿ ñîåä.
Line(140+i,250,230+i,250);
//Ïðàâàÿ ñîåä.
Line(230+i,160,230+i,250);
//Çàêðàñêà
Floodfill(170+i,240,clBlack);
Redraw;
Sleep(5);
End;
{----------------------------------×àñòü 2-------------------------------------}
if i=250 then begin
LockDrawing;
For i:=250 to 400 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30,60+i,100,60+i);
//Ïðÿìàÿ
Line(100,60+i,100,100+i);
//Êîñàÿ
Line(100,100+i,140,60+i);
//Âåðõ ñïðàâà
Line(140,60+i,220,60+i);
//Äëèííàÿ ñëåâà
Line(30,60+i,30,250+i);
//Êîñàÿ áîëüøàÿ
Line(220,60+i,30,250+i);
//Çàêðàñêà
Floodfill(40,70+i,clRed);
//ðîâíàÿ ëèíèÿ
Line(160,130+i,110,180+i);
//Ïðàâàÿ
Line(160,130+i,210,180+i);
//Ëåâàÿ
Line(110,180+i,160,230+i);
//Ïðàâàÿ â áîê
Line(210,180+i,230,160+i);
//Ëåâàÿ â áîê
Line(160,230+i,140,250+i);
//Ëåâàÿ ñîåä.
Line(140,250+i,230,250+i);
//Ïðàâàÿ ñîåä.
Line(230,160+i,230,250+i);
//Çàêðàñêà
Floodfill(170,240+i,clBlack);
Redraw;
Sleep(5);
End;
End;
End.
Выручите ))
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 29.05.2011, 15:40
Ответы с готовыми решениями:

Когда делаю прокрутку мыши вниз она крутит страницу вниз и отдача идёт чуть вверх как исправить?
Когда делаю прокрутку мыши вниз она крутит страницу (в интернете) вниз и отдача идёт чуть вверх как исправить? Мышка новая такая проблема...

Не идет дальше логотипа
не запускается винда, т.е. идет до загрузочного логотипа и зависает..случилось это, как я понял, после того, как я по ошибке, видимо,...

Не идет дальше проверка
Суть проверки в том чтобы найти пользователя с таким мылом и таким паролем, он его находит и пишет правильно, а куки файлы не отдает и не...

11
 Аватар для raptile
0 / 0 / 1
Регистрация: 21.12.2010
Сообщений: 22
29.05.2011, 16:42
надо периресовать значёк касперского, до туда кудаон доехал, а потом вниз его пускать.
0
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44
29.05.2011, 16:58  [ТС]
Цитата Сообщение от raptile Посмотреть сообщение
надо периресовать значёк касперского, до туда кудаон доехал, а потом вниз его пускать.
Знаю Я, вот именно тяжко перерисовывать 100 пудов можно дальше начять двигать просто надо знать подожду еще что нибудь или от достоверенных людей убеждусь )))
0
 Аватар для raptile
0 / 0 / 1
Регистрация: 21.12.2010
Сообщений: 22
29.05.2011, 17:16
я сделал, если дам купиш мне сникерс большой?
0
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44
29.05.2011, 18:22  [ТС]
Цитата Сообщение от raptile Посмотреть сообщение
я сделал, если дам купиш мне сникерс большой?
что за бес какой сникерс !!! вали отсюда !
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
29.05.2011, 18:56
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

Program kursovaya;
Uses GraphABC,crt;
Var i:integer;
Begin
HideCursor;
Setwindowsize(800,600);
Centerwindow;
LockDrawing;
For i:=1 to 250 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+i,60,100+i,60);
//Ïðÿìàÿ
Line(100+i,60,100+i,100);
//Êîñàÿ
Line(100+i,100,140+i,60);
//Âåðõ ñïðàâà
Line(140+i,60,220+i,60);
//Äëèííàÿ ñëåâà
Line(30+i,60,30+i,250);
//Êîñàÿ áîëüøàÿ
Line(220+i,60,30+i,250);
//Çàêðàñêà
Floodfill(40+i,70,clRed);
//ðîâíàÿ ëèíèÿ
Line(160+i,130,110+i,180);
//Ïðàâàÿ
Line(160+i,130,210+i,180);
//Ëåâàÿ
Line(110+i,180,160+i,230);
//Ïðàâàÿ â áîê
Line(210+i,180,230+i,160);
//Ëåâàÿ â áîê
Line(160+i,230,140+i,250);
//Ëåâàÿ ñîåä.
Line(140+i,250,230+i,250);
//Ïðàâàÿ ñîåä.
Line(230+i,160,230+i,250);
//Çàêðàñêà
Floodfill(170+i,240,clBlack);
Redraw;
Sleep(5);
End;
{----------------------------------×àñòü 2-------------------------------------}
For i:=1 to 400 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+250,60+i,100+250,60+i);
//Ïðÿìàÿ
Line(100+250,60+i,100+250,100+i);
//Êîñàÿ
Line(100+250,100+i,140+250,60+i);
//Âåðõ ñïðàâà
Line(140+250,60+i,220+250,60+i);
//Äëèííàÿ ñëåâà
Line(30+250,60+i,30+250,250+i);
//Êîñàÿ áîëüøàÿ
Line(220+250,60+i,30+250,250+i);
//Çàêðàñêà
Floodfill(40+250,70+i,clRed);
//ðîâíàÿ ëèíèÿ
Line(160+250,130+i,110+250,180+i);
//Ïðàâàÿ
Line(160+250,130+i,210+250,180+i);
//Ëåâàÿ
Line(110+250,180+i,160+250,230+i);
//Ïðàâàÿ â áîê
Line(210+250,180+i,230+250,160+i);
//Ëåâàÿ â áîê
Line(160+250,230+i,140+250,250+i);
//Ëåâàÿ ñîåä.
Line(140+250,250+i,230+250,250+i);
//Ïðàâàÿ ñîåä.
Line(230+250,160+i,230+250,250+i);
//Çàêðàñêà
Floodfill(170+250,240+i,clBlack);
Redraw;
Sleep(5);
end;
End.
1
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44
29.05.2011, 19:10  [ТС]
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

Program kursovaya;
Uses GraphABC,crt;
Var i:integer;
Begin
HideCursor;
Setwindowsize(800,600);
Centerwindow;
LockDrawing;
For i:=1 to 250 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+i,60,100+i,60);
//Ïðÿìàÿ
Line(100+i,60,100+i,100);
//Êîñàÿ
Line(100+i,100,140+i,60);
//Âåðõ ñïðàâà
Line(140+i,60,220+i,60);
//Äëèííàÿ ñëåâà
Line(30+i,60,30+i,250);
//Êîñàÿ áîëüøàÿ
Line(220+i,60,30+i,250);
//Çàêðàñêà
Floodfill(40+i,70,clRed);
//ðîâíàÿ ëèíèÿ
Line(160+i,130,110+i,180);
//Ïðàâàÿ
Line(160+i,130,210+i,180);
//Ëåâàÿ
Line(110+i,180,160+i,230);
//Ïðàâàÿ â áîê
Line(210+i,180,230+i,160);
//Ëåâàÿ â áîê
Line(160+i,230,140+i,250);
//Ëåâàÿ ñîåä.
Line(140+i,250,230+i,250);
//Ïðàâàÿ ñîåä.
Line(230+i,160,230+i,250);
//Çàêðàñêà
Floodfill(170+i,240,clBlack);
Redraw;
Sleep(5);
End;
{----------------------------------×àñòü 2-------------------------------------}
For i:=1 to 400 do
Begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+250,60+i,100+250,60+i);
//Ïðÿìàÿ
Line(100+250,60+i,100+250,100+i);
//Êîñàÿ
Line(100+250,100+i,140+250,60+i);
//Âåðõ ñïðàâà
Line(140+250,60+i,220+250,60+i);
//Äëèííàÿ ñëåâà
Line(30+250,60+i,30+250,250+i);
//Êîñàÿ áîëüøàÿ
Line(220+250,60+i,30+250,250+i);
//Çàêðàñêà
Floodfill(40+250,70+i,clRed);
//ðîâíàÿ ëèíèÿ
Line(160+250,130+i,110+250,180+i);
//Ïðàâàÿ
Line(160+250,130+i,210+250,180+i);
//Ëåâàÿ
Line(110+250,180+i,160+250,230+i);
//Ïðàâàÿ â áîê
Line(210+250,180+i,230+250,160+i);
//Ëåâàÿ â áîê
Line(160+250,230+i,140+250,250+i);
//Ëåâàÿ ñîåä.
Line(140+250,250+i,230+250,250+i);
//Ïðàâàÿ ñîåä.
Line(230+250,160+i,230+250,250+i);
//Çàêðàñêà
Floodfill(170+250,240+i,clBlack);
Redraw;
Sleep(5);
end;
End.
Спс все работает а что ты убрал или добавил я непонял ?

Добавлено через 2 минуты
Цитата Сообщение от HaXoq4uBbIu' :) Посмотреть сообщение
Спс все работает а что ты убрал или добавил я непонял ?
Все понял +250 )))
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
29.05.2011, 19:13
Учись оптимизировать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

Program kursovaya;
Uses GraphABC,crt;
Var i:integer;
 
procedure KIS(l,i:integer);
begin
ClearWindow(clyellow);
SetPenWidth(2);                   //Òîëùèíà ëèíèè
Setpencolor (clBlack);           //Òèï ëèíèè
Roundrect(15,15,785,585,15,15); //Ïðÿìîóãîëüíèê ñ çàêðóãëåííûìè óãëàìè
Floodfill(20,20,claqua);
//Âåðõ ñëåâà
Line(30+l,60+(i-250),100+l,60+(i-250));
//Ïðÿìàÿ
Line(100+l,60+(i-250),100+l,100+(i-250));
//Êîñàÿ
Line(100+l,100+(i-250),140+l,60+(i-250));
//Âåðõ ñïðàâà
Line(140+l,60+(i-250),220+l,60+(i-250));
//Äëèííàÿ ñëåâà
Line(30+l,60+(i-250),30+l,250+(i-250));
//Êîñàÿ áîëüøàÿ
Line(220+l,60+(i-250),30+l,250+(i-250));
//Çàêðàñêà
Floodfill(40+l,70+(i-250),clRed);
//ðîâíàÿ ëèíèÿ
Line(160+l,130+(i-250),110+l,180+(i-250));
//Ïðàâàÿ
Line(160+l,130+(i-250),210+l,180+(i-250));
//Ëåâàÿ
Line(110+l,180+(i-250),160+l,230+(i-250));
//Ïðàâàÿ â áîê
Line(210+l,180+(i-250),230+l,160+(i-250));
//Ëåâàÿ â áîê
Line(160+l,230+(i-250),140+l,250+(i-250));
//Ëåâàÿ ñîåä.
Line(140+l,250+(i-250),230+l,250+(i-250));
//Ïðàâàÿ ñîåä.
Line(230+l,160+(i-250),230+l,250+(i-250));
//Çàêðàñêà
Floodfill(170+l,240+(i-250),clBlack);
Redraw;
Sleep(5);
end;
 
Begin
HideCursor;
Setwindowsize(800,600);
Centerwindow;
LockDrawing;
For i:=1 to 584 do
 if i<=250 then KIS(i,250)
 else KIS(250,i);
End.
1
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44
29.05.2011, 19:21  [ТС]
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Учись оптимизировать.
хорошо буду учиться в целых 36 строк меньше ну прям )) токо я не понял что по чем но разберусь ! че за KIS в конце не понял
Pascal
1
2
3

For i:=1 to 100 do
 if i<=250 then KIS(i,250)
 else KIS(250,i);
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
29.05.2011, 19:22
вызов процедуры http://www.kaspersky.ru/kasper... t_security KIS.
0
 Аватар для HaXoq4uBbIu' :)
1 / 1 / 1
Регистрация: 11.01.2011
Сообщений: 44
29.05.2011, 19:24  [ТС]
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
вызов процедуры http://www.kaspersky.ru/kasper... t_security KIS.
xD да не сам KIS (kaspersky_internet_security) ! а что как работает с этим KIS
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
29.05.2011, 19:26
так же как и твои два фрагмента.только координаты я передаю в процедуру.Всё тоже самое что и в первой мной исправленной программе.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 29.05.2011, 19:26
Помогаю со студенческими работами здесь

Доходит до функции и дальше не идет
Помогите #include &lt;clx.h&gt; #include &lt;stdio.h&gt; #include &lt;conio.h&gt; #pragma hdrstop float stepen (int i, float p); int fact (int...

Дальше Boot logo не идёт
При включении спикер даёт сигнал что всё в порядке и появляется заставка мат. платы. После 10-20 секунд экран гаснет и всё повторяется...

Дальше логотипа загрузка не идёт
Здравствуйте, у меня проблемы с загрузкой Windows. Вчера комп ни с того ни с сего начал перезагружаться на ровном месте, выключится он...

Спираль от центра вправо вниз.
Как заполнить двумерный массив в StringGrid по направлению? Допустим есть 5 на 5 строк и столбцов и мне надо заполнить допустим...

Победитель двигается дальше, а проигравший падает вниз
Добрый день! Подскажите пожалуйста, как сделать, или где почитать. Проблема такова: В спортивных протоколах по олимпийской системе в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
 http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru