Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.82/1163: Рейтинг темы: голосов - 1163, средняя оценка - 4.82
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 00:35 41
Выкладываю архив с лабой по физике.
Условие задачи следующее.

По обе стороны обевращающегося вала подвешено 2 гирьки с разной массой(точно не помню какой у нас был вес) которые соеденены между собой нерозтяжной(по условии) нитью. Тело с большей массой поднимают на определенную высоту и отпускают, задача найти его ускорение.

Это вкратце - деталей не пню так как прога писалась 4 года назад.

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


завтра буду на работе и подробно отпишу.... так как сейчас нет времени

юзайте на здоровье!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2010, 00:35
Ответы с готовыми решениями:

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале...

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в...

Графика в Турбо Паскаль
Не могли бы вы посоветовать книгу или дать ссылку на форуме где подробно...

Графика в Турбо Паскаль не работает
Люди помогите плиз. У меня windows 7 когда я пытаюсь запустить программу с...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

157
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 11:52 42
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure slrkur(kur:boolean);
var reg:Registers;
    lang:longint;
begin
reg.ah:=1;
if kur then begin
   if lang=$b800 then begin
   reg.ch:=6;
   reg.cl:=7;
   end
   else begin
   reg.ch:=12;
   reg.cl:=13;
   end;
   Intr(16,reg);
   end
   else begin
   reg.ch:=32;
   reg.cl:=7;
   Intr(16,reg);
   end;
   end;
Данная процедура делает невидимым либо же видимым курсор в зависимости от значения переменной kur:boolean (false or true).
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
31.03.2010, 12:05 43
ateccc, Я так понял, это для текстового режима?
0
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 12:14 44
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure box(x1,y1,x2,y2: integer; color:byte);
var k:integer;
begin
textcolor(color);
GotoXY(x1,y1);write(#201);
For k:=x1+1 to x2-1 do write(#205);
write(#187);
For k:=y1+1 to y2-1 do begin
GotoXY(x1,k);write(#186);
GotoXY(x2,k);write(#186);
                       end;
GotoXY(x1,y2);write(#200);
for k:=x1+1 to x2-1 do write(#205);
write(#188);
end;
Рисуем рамку с координатами x1,x2,y1,y2 и цветом color
x1,x2 - координаты левого верхнего угла;
y1,y2 - координаты правого нижнего угла;
Пример:
Pascal
1
box(3,3,33,9,7);
не забивайте это все еще текстовой режим !!!

Добавлено через 2 минуты
Цитата Сообщение от Puporev Посмотреть сообщение
ateccc, Я так понял, это для текстового режима?
Да все верно!
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
31.03.2010, 12:20 45
Да все верно!
Но в графическом режиме курсор не видим, а от этой процедуры он все рано не покажется.
А в текстовом хорошо работает. А то есть только стандартный способ уменьшить его до минимальных размеров.
0
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 12:24 46
Может я не в этой теме это все выкладываю так напишите где выложить ?
(просто решил описать всю свою прогу и текстовой режим и графический)
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
31.03.2010, 12:27 47
ateccc, Давай здесь, отдельной темы пока нет, хотя создание ее (работа с модулем CRT и вообще всякие прибамбасы в текстовом режиме) было бы полезно. Может позднее создадим. Просто все что касается текстового режима как-то помечать. Потом если что, перекинем.
0
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 12:33 48
Цитата Сообщение от Puporev Посмотреть сообщение
ateccc, Давай здесь, отдельной темы пока нет, хотя создание ее (работа с модулем CRT и вообще всякие прибамбасы в текстовом режиме) было бы полезно. Может позднее создадим. Просто все что касается текстового режима как-то помечать. Потом если что, перекинем.
ок!

Выкладываю по мере наличия времени.
0
Quatroom
3 / 3 / 0
Регистрация: 12.10.2009
Сообщений: 47
31.03.2010, 19:49 49
Полигоны. Пингвин


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
uses crt,graph;
var a,b:array [1..100] of PointType;
i,j,x,y,gd,gm,k:integer;
begin
clrscr;
write('Vvedite rozmer setki: ');
readln(x); y:=x;
gd:=Detect;
InitGraph(gd,gm,'');
i:=0; j:=0;
SetBkColor(15);
SetPalette(5,0);
SetColor(5);
while i<=x*13 do begin
Line(0+i,0,0+i,y*21);
i:=i+x;
end;
while j<=y*21 do begin
Line(0,0+j,x*13,0+j);
j:=j+y;
end;
i:=1;
a[i].x:=x*11; a[i].y:=y*6; inc(i);
a[i].x:=x*11; a[i].y:=y*8; inc(i);
a[i].x:=x*10; a[i].y:=y*10; inc(i);
a[i].x:=x*10; a[i].y:=y*12; inc(i);
a[i].x:=x*11; a[i].y:=y*14; inc(i);
a[i].x:=x*9; a[i].y:=y*16; inc(i);
a[i].x:=x*9; a[i].y:=y*18; inc(i);
a[i].x:=x*8; a[i].y:=y*20; inc(i);
a[i].x:=x*5; a[i].y:=y*20; inc(i);
a[i].x:=x*7; a[i].y:=y*19; inc(i);
a[i].x:=x*5; a[i].y:=y*18; inc(i);
a[i].x:=x*7; a[i].y:=y*18; inc(i);
a[i].x:=x*7; a[i].y:=y*17; inc(i);
a[i].x:=x*8; a[i].y:=y*18; inc(i);
a[i].x:=x*8; a[i].y:=y*15; inc(i);
a[i].x:=x*7; a[i].y:=y*15; inc(i);
a[i].x:=x*6; a[i].y:=y*14; inc(i);
a[i].x:=x*6; a[i].y:=y*16; inc(i);
a[i].x:=x*7; a[i].y:=y*16; inc(i);
a[i].x:=x*3; a[i].y:=y*18; inc(i);
a[i].x:=x*4; a[i].y:=y*17; inc(i);
a[i].x:=x*2; a[i].y:=y*17; inc(i);
a[i].x:=x*4; a[i].y:=y*16; inc(i);
a[i].x:=x*3; a[i].y:=y*15; inc(i);
a[i].x:=x*5; a[i].y:=y*15; inc(i);
a[i].x:=x*5; a[i].y:=y*13; inc(i);
a[i].x:=x*4; a[i].y:=y*12; inc(i);
a[i].x:=x*4; a[i].y:=y*9; inc(i);
a[i].x:=x*6; a[i].y:=y*4; inc(i);
a[i].x:=x*5; a[i].y:=y*3; inc(i);
a[i].x:=x*3; a[i].y:=y*3; inc(i);
a[i].x:=x*5; a[i].y:=y*2; inc(i);
a[i].x:=x*6; a[i].y:=y*1; inc(i);
a[i].x:=x*8; a[i].y:=y*1; inc(i);
a[i].x:=x*9; a[i].y:=y*2; inc(i);
a[i].x:=x*9; a[i].y:=y*3; inc(i);
a[i].x:=x*11; a[i].y:=y*6; inc(i);
k:=i;
i:=1;
b[i].x:=x*6; b[i].y:=y*4; inc(i);
b[i].x:=x*9; b[i].y:=y*6; inc(i);
b[i].x:=x*8; b[i].y:=y*8; inc(i);
b[i].x:=x*7; b[i].y:=y*8; inc(i);
b[i].x:=x*5; b[i].y:=y*9; inc(i);
b[i].x:=x*9; b[i].y:=y*9; inc(i);
b[i].x:=x*10; b[i].y:=y*7;
SetColor(5);
SetLineStyle(0,1,3);
DrawPoly(k,a);
DrawPoly(i,b);
Circle(x*6,y*2,1);
ReadKey;
end.
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
01.04.2010, 06:21 50
Пингвин, дельфин
http://www.cyberforum.ru/post604502.html
Кто следующий?
0
Helfer
ЙожЪ
63 / 59 / 17
Регистрация: 23.10.2009
Сообщений: 652
01.04.2010, 21:28 51
Puporev,
Слоник =)

думаю полигонов хватит..
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
Program Slonik;
uses graph,crt;
const a=23; {max = 23}
      b=20;c=27;
      x: array[1..34] of PointType =  ((X: 2*a;  Y: 13*a), (X: 4*a;  Y: 11*a),  (X: 5*a;  Y: 8*a),  (X: 8*a;  Y: 6*a),
                                       (X: 12*a; Y: 5*a),  (X: 12*a; Y: 5*a),   (X: 13*a; Y: 7*a),  (X: 16*a; Y: 9*a),
                                       (X: 17*a; Y: 8*a),  (X: 18*a; Y: 8*a),   (X: 19*a; Y: 9*a),  (X: 20*a; Y: 9*a),
                                       (X: 22*a; Y: 11*a), (X: 21*a; Y: 12*a),  (X: 19*a; Y: 12*a), (X: 19*a; Y: 13*a),
                                       (X: 20*a; Y: 13*a), (X: 20*a; Y: 15*a),  (X: 18*a; Y: 19*a), (X: 16*a; Y: 17*a),
                                       (X: 17*a; Y: 15*a), (X: 17*a; Y: 14*a),  (X: 16*a; Y: 14*a), (X: 16*a; Y: 19*a),
                                       (X: 13*a; Y: 19*a), (X: 13*a; Y: 13*a),  (X: 8*a;  Y: 13*a), (X: 9*a;  Y: 17*a),
                                       (X: 8*a;  Y: 17*a), (X: 8*a;  Y: 18*a),  (X: 5*a;  Y: 18*a), (X: 6*a;  Y: 14*a),
                                       (X: 5*a;  Y: 11*a), (X: 2*a;  Y: 13*a));
                                       
      y: array[1..23] of PointType =  ((X: 17*a;  Y: 2*a),  (X: 19*a; Y: 3*a),  (X: 23*a;  Y: 3*a),  (X: 25*a; Y: 2*a),
                                       (X: 27*a;  Y: 4*a ), (X: 27*a; Y: 8*a),  (X: 24*a;  Y: 10*a), (X: 23*a; Y: 8*a),
                                       (X: 23*a;  Y: 12*a), (X: 22*a; Y: 13*a), (X: 19*a;  Y: 13*a ),(X: 19*a; Y: 12*a),
                                       (X: 21*a ; Y: 12*a ),(X: 22*a; Y: 11*a), (X: 20*a;  Y: 9*a ), (X: 19*a; Y: 9*a),
                                       (X: 19*a;  Y: 9*a ), (X: 18*a; Y: 8*a),  (x: 17*a;  y: 8*a),  (X: 16*a; Y: 9*a ),
                                       (X: 13*a ; Y: 7*a),  (X: 12*a ; Y: 5*a), (X: 17*a ; Y: 2*a));
                                       
var gd,gm:integer; i,j:byte;
begin
     initgraph(gd,gm,'');
     for i:=1 to b do line (a,a*i,c*a,a*i);
     for i:=1 to c do line (a*i,a,a*i,b*a);
     setcolor(13);
     SetLineStyle(0,0,thickwidth);
     drawpoly(34,x);
     drawpoly(23,y);
     setcolor(3);
     circle(18*a,6*a,a-7);
     circle(22*a,6*a,a-7);
     readln;
     closegraph;
     end.
0
eryana
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 66
06.04.2010, 18:20 52
Кот
шевелит двумя усами из шести
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
06.04.2010, 19:34 53
Чуть поправил программу с Котом.
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
Uses GRAPH,crt;
Var
   GD,GM,i,j:integer;
BEGIN
GD:=detect;
initgraph(GD,GM,'C:\TP\BGI');
SetBkColor(0);
SetColor(white);
outtextXY(300,getmaxY-40,'Press any key...');
Circle(250,300,60);
setcolor(5);
Circle(250,300,20);
floodfill(250,300,5);
circle(250,200,40);
circle(240,200,6);
circle(260,200,6);
line(180,215,250,215);
line(250,215,325,215);
circle(250,215,3);
line(315,200,250,215);
line(315,235,250,215);
line(189,200,250,215);
line(191,235,250,215);
line(240,163,230,150);
line(260,163,270,150);
line(230,167,230,150);
line(270,167,270,150);
setcolor(5);
circle(185,330,10);
floodfill(185,330,5);
setcolor(5);
circle(170,340,10);
floodfill(170,340,5);
setcolor(5);
circle(157,328,10);
floodfill(157,328,5);
i:=0;
repeat
i:=i+1;
if i=16 then i:=1;
   setcolor(i);
   setfillstyle(1,i);
   circle(240,200,5);
   floodfill(241,201,i);
   setcolor(i+1);
   setfillstyle(1,i+1);
   circle(260,200,5);
   floodfill(260,200,i+1);
   setcolor(6);             {vot tyt usi}
   line(180,215,250,215);
   line(250,215,325,215);
   delay(1000);
   setcolor(0);
   line(180,215,250,215);
   line(250,215,325,215);
   setcolor(6);
   line(185,195,250,215);
   line(250,215,330,195);
   delay(1000);
   setcolor(0);
   line(185,195,250,215);
   line(250,215,330,195);
until keypressed;
END.
0
Rom@
22 / 22 / 12
Регистрация: 29.11.2009
Сообщений: 210
16.04.2010, 23:35 54
не знаю возможно такая тема уже бьіла "Авто"
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
program Speed;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
{koleca}
{1-e}
circle (180,330,30);
circle (180,330,40);
Line (180,330,165,315);
Line (180,330,195,315);
Line (180,330,195,330);
Line (180,330,165,330);
Line (180,330,165,345);
Line (180,330,195,345);
Line (180,345,180,315);
{2-e}
circle (450,330,30);
circle (450,330,40);
Line (435,330,465,330);
Line (450,315,450,345);
Line (465,315,435,345);
Line (435,315,465,345);
{rama}
Line (143,315,120,315);
Line (120,315,110,330);
Line (110,330,60,330);
Line (60,330,55,320);
Line (55,320,55,280);
Line (55,280,64,280);
Line (63,280,90,240);
Line (90,240,180,225);
Line (180,225,210,160);
Line (210,160,510,160);
Line (510,160,480,210);
Line (489,195,540,300);
Line (540,300,491,330);
Line (491,330,540,330);
Line (540,330,510,355);
Line (510,355,481,355);
Line (540,330,540,300);
Line (418,355,212,355);
Line (147,355,60,355);
Line (60,355,60,330);
Line (105,240,86,280);
Line (86,280,60,280);
Line (220,330,410,330);
Line (480,210,450,210);
Line (450,210,440,160);
Bar (60,300,90,305);
{DBEPU}
Line (165,270,300,270);
Line (165,270,165,292);
Line (165,270,213,165);
Line (213,165,420,165);
Line (420,165,420,240);
Line (420,240,360,320);
Line (360,320,310,320);
Line (310,320,305,315);
Line (305,315,330,240);
Line (330,240,420,240);
Line (330,270,360,270);
Line (330,240,330,165);
Line (180,260,220,170);
Line (220,170,320,170);
Line (320,170,300,270);
Line (180,260,300,260);
Line (300,270,283,320);
Line (283,320,220,320);
Line (255,300,285,300);
Setcolor (10);
Line (55,287,165,287);
Line (385,287,533,287);
Line (102,247,175,247);
Line (416,247,514,247);
Readln
end.
1
7joni7
2 / 2 / 0
Регистрация: 25.10.2009
Сообщений: 54
18.04.2010, 17:18 55
Рисование забора

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
program za6oP;
uses crt, graph,graph0;
var x,y,r,i:integer;
begin
writeln('BBeDuTe Pa3MeP 3a6oPa ');
readln(x);
writeln('BBeDuTe Pa3MeP 1u DoCku');
readln(y);
Init('f:\pas\bp\bgi');
i:=x div y;
r:=y;
y:=0;
   for i:=1 to i do
   begin
   Moveto(y,50);
   setcolor(i);
   setfillstyle(i,i);
   Lineto(y+(r div 2),30);
   lineto(y+r,50);
   lineto(y+r,250);
   lineto(y,250);
   Lineto(y,50);
   floodfill(y+1,60,i);
   y:=y+r+1;
   end;
   reADLN;
end.
Добавлено через 7 минут
Рисуем ёлочки

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
 program fforest;
uses Crt,Graph,Graph0;
procedure Triangle(x,y,h:integer;style,col1,col2:byte);
 
 
begin
setcolor(col2);
moveto(x,y);
linerel(h div 2,h);
linerel(-h,0);
linerel(h div 2,-h);
setfillstyle(style,col2);
floodfill(x,y+ (h div 2),col2);
 
 
end;
procedure fir(a,b,h,stl,color1,color2:word);
var I:byte;
begin
For i:=1 to 3 do
    begin
      triangle(a,b,h,stl,color1,color2);
      b:=b+h;
      h:=h+5
      end;
rectangle(a- (h div 10),b,a+(h div 10),b+h);
setfillstyle(stl,color2);
floodfill(a- (h div 10)+1,b+1,color2);
end;
 
procedure Forest (N:byte);
var i:byte;
    stl,a,b,color1,color2,h:integer;
begin
  Randomize;
  for i:=1 to n do
  begin
       h:=random(30)+10;
      a:=random(600)+20;
      b:=random(400)+5;
      color1:=random(15)+1;
      color2:=random(15)+1;
      stl:=random(11)+1;
      fir(a,b,h,stl,color1,color2);
  end;
end;
 
Procedure Wait;
begin
  OutTextXY(200,10,'Нажмите пробел');
  readkey
end;
 
begin
  init('c:\bp\bgi');
  Forest(25);
  Wait;
  CloseGraph
end.
0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
18.04.2010, 17:18 56
7joni7, Прежде чем лепить что-то на форум, думать нужно. Откуда у людей Ваш самопальный модуль graph0 ?
0
yura`
11 / 8 / 0
Регистрация: 09.02.2010
Сообщений: 107
24.04.2010, 17:09 57
Деталька:
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
Program build;
uses Crt, Graph, MyGraph;
var
 x,y,a:integer;
 
Procedure bok;
begin
x:=GetMaxX div 8;
y:=GetMaxY div 8;
Line(x-a,y-a,x,y-a);
Ellipse(x+a,y-a,180,360,a,a div 2);
Line(x+2*a,y-a,x+2*a+a div 2,y-a);
Line(x+2*a+a div 2,y-a,x+2*a+a div 2,y-a div 2);
Line(x+2*a+a div 2,y-a div 2,x+3*a+a div 2,y-a div 2);
Line(x+3*a+a div 2,y-a div 2,x+3*a+a div 2,y-a);
Line(x+3*a+a div 2,y-a,x+4*a+a div 4,y-a);
Line(x+4*a+a div 4,y-a,x+4*a+a div 4,y);
Line(x+4*a+a div 4,y,x-a,y);
Line(x-a,y,x-a,y-a);
SetLineStyle(3,5,1);
Line(x-a,y-a+a div 4,x+a div 6,y-a+a div 4);
Line(x+2*a-a div 6,y-a+a div 4,x+2*a+a div 2,y-a+a div 4);
Line(x+3*a+a div 2,y-a+a div 4,x+4*a+a div 4,y-a+a div 4);
end;
 
Procedure verh;
begin
SetLineStyle(0,5,1);
x:=GetMaxX div 8;
y:=GetMaxY div 3;
Rectangle(x-a,y-a,x+4*a+a div 4,y+a div 2);
Rectangle(x,y-a,x+2*a,y+a div 2);
Rectangle(x+2*a+a div 2,y-a,x+3*a+a div 2,y+a div 2);
Rectangle(x-a,y-a,x,y-a+a div 4);
Rectangle(x-a,y+a div 4,x,y+a div 2);
SetFillStyle(3,15);
FloodFill(x-a div 2,y-a+a div 8,15);
FloodFill(x-a div 2,y+a div 3,15);
Rectangle(x+2*a,y-a,x+2*a+a div 2,y-a+a div 4);
Rectangle(x+2*a,y+a div 4,x+2*a+a div 2,y+a div 2);
FloodFill(x+2*a+a div 4,y-a+a div 8,15);
FloodFill(x+2*a+a div 4,y+a div 3,15);
Rectangle(x+3*a+a div 2,y-a,x+4*a+a div 4,y-a+a div 4);
Rectangle(x+3*a+a div 2,y+a div 4,x+4*a+a div 4,y+a div 2);
FloodFill(x+4*a,y-a+a div 8,15);
FloodFill(x+4*a,y+a div 3,15);
SetLineStyle(2,5,1);
Line(x-a-a div 2,y-a div 4,x+5*a-a div 4,y-a div 4);
end;
 
Procedure pered;
begin
x:=GetMaxX div 8;
y:=GetMaxY div 8;
SetLineStyle(0,5,1);
Line(x+6*a,y-a,x+6*a+a div 4,y-a);
Line(x+6*a+a div 4,y-a,x+6*a+a div 4,y-a+a div 4);
Line(x+6*a+a div 4,y-a+a div 4,x+7*a+a div 4,y-a+a div 4);
Line(x+7*a+a div 4,y-a+a div 4,x+7*a+a div 4,y-a);
Line(x+7*a+a div 4,y-a,x+7*a+a div 2,y-a);
Line(x+7*a+a div 2,y-a,x+7*a+a div 2,y);
Line(x+7*a+a div 2,y,x+6*a,y);
Line(x+6*a,y,x+6*a,y-a);
SetLineStyle(3,5,1);
Line(x+6*a,y-a div 2,x+7*a+a div 2,y-a div 2);
SetLineStyle(2,5,1);
Line(x+7*a-a div 4,y-a-a div 8,x+7*a-a div 4,y+a div 8);
end;
 
Label start;
Begin
start: ClrScr;
TextColor(white);
write('Размер->');readln(a);
if (a<20) or (a>50)
then
 begin
  ClrScr;
  TextColor(red);
  writeln('Неправильный ввод');
  readkey; goto start
 end
else
begin
 Init;
 bok;
 verh;
 pered;
 readkey;
 CloseGraph;
end;
End.
0
WolfCF
26.04.2010, 05:35
  #58

Не по теме:

yura`, а можно модуль MyGraph выложить? а лучше без него сделать.

0
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
26.04.2010, 05:39 59
Wolf, Этот модуль идиотский, это просто инициализация графического режима. Его нужно выкинуть, добавить 2 переменные типа
Pascal
1
var gd,gm:integer;
выкинуть процедуру Init и написать
Pascal
1
2
gd:=0;
initgraph(gd,gm,'');
0
WolfCF
3291 / 1353 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
26.04.2010, 06:02 60

Не по теме:

Puporev, блин,до чего дожили,чтобы постоянно не писать эти 2 строчки написали модуль.



Добавлено через 12 минут

Не по теме:

кстати,на фронтальной и профильной проекции невидимые линии ни к чему,так как есть разрез на горизонтальной плоскости.

0
26.04.2010, 06:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2010, 06:02

Графика в Турбо Паскаль. Нарисовать телефон
Кто может нарисовать такое??

Построение графика функции в турбо-Паскаль
Как построить график данной функции в...

Графика в Турбо Паскаль. Нарисовать флаг Македонии
Помогите пожалуста, нужно нарисовать флаг Македонии у паскале.


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

Или воспользуйтесь поиском по форуму:
60
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru