Графика в Турбо Паскаль - Turbo Pascal - Страница 3

@ateccc · 31.03.2010, 00:35

Студворк — интернет-сервис помощи студентам

Выкладываю архив с лабой по физике.
Условие задачи следующее.

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

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

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

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

юзайте на здоровье!!!

@ateccc · 31.03.2010, 11:52

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).

@Puporev · 31.03.2010, 12:05

ateccc, Я так понял, это для текстового режима?

@ateccc · 31.03.2010, 12:14

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, Я так понял, это для текстового режима?

Да все верно!

@Puporev · 31.03.2010, 12:20

Да все верно!

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

@ateccc · 31.03.2010, 12:24

Может я не в этой теме это все выкладываю так напишите где выложить ?
(просто решил описать всю свою прогу и текстовой режим и графический)

@Puporev · 31.03.2010, 12:27

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

@ateccc · 31.03.2010, 12:33

Сообщение от Puporev

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

ок!

Выкладываю по мере наличия времени.

@Quatroom · 31.03.2010, 19: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.

@Puporev · 01.04.2010, 06:21

Пингвин, дельфин
https://www.cyberforum.ru/post604502.html
Кто следующий?

@Helfer · 01.04.2010, 21:28

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.

@eryana · 06.04.2010, 18:20

Кот
шевелит двумя усами из шести

@Puporev · 06.04.2010, 19:34

Чуть поправил программу с Котом.

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.

@Rom@ · 16.04.2010, 23:35

не знаю возможно такая тема уже бьіла "Авто"

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.

@7joni7 · 18.04.2010, 17:18

Рисование забора

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.

@Puporev · 18.04.2010, 17:18

7joni7, Прежде чем лепить что-то на форум, думать нужно. Откуда у людей Ваш самопальный модуль graph0 ?

@yura` · 24.04.2010, 17:09

Деталька:

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.

@WolfCF · 26.04.2010, 05:35

Не по теме:

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

@Puporev · 26.04.2010, 05:39

Wolf, Этот модуль идиотский, это просто инициализация графического режима. Его нужно выкинуть, добавить 2 переменные типа

Pascal
1
var gd,gm:integer;

выкинуть процедуру Init и написать

Pascal
1
2
gd:=0;
initgraph(gd,gm,'');

@WolfCF · 26.04.2010, 06:02

Не по теме:

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

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

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@ateccc 0 / 0 / 0 Регистрация: 30.01.2010 Сообщений: 10
	31.03.2010, 00:35
	Выкладываю архив с лабой по физике. Условие задачи следующее. По обе стороны обевращающегося вала подвешено 2 гирьки с разной массой(точно не помню какой у нас был вес) которые соеденены между собой нерозтяжной(по условии) нитью. Тело с большей массой поднимают на определенную высоту и отпускают, задача найти его ускорение. Это вкратце - деталей не пню так как прога писалась 4 года назад. Структура моей проги довольно сложная - используется много разных процедур, и писалась она еще обычном редакторе Паскаля(под дос) потому в архиве и есть кейрус. Прделагаю сделать полный розбор полета - найдете много полезных готовых процедур который можно разобрать...и и спользовать в своих прогах. завтра буду на работе и подробно отпишу.... так как сейчас нет времени юзайте на здоровье!!! 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2010, 12:05
	ateccc, Я так понял, это для текстового режима? 0

@ateccc 0 / 0 / 0 Регистрация: 30.01.2010 Сообщений: 10
	31.03.2010, 12:24
	Может я не в этой теме это все выкладываю так напишите где выложить ? (просто решил описать всю свою прогу и текстовой режим и графический) 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2010, 12:27
	ateccc, Давай здесь, отдельной темы пока нет, хотя создание ее (работа с модулем CRT и вообще всякие прибамбасы в текстовом режиме) было бы полезно. Может позднее создадим. Просто все что касается текстового режима как-то помечать. Потом если что, перекинем. 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.04.2010, 06:21
	Пингвин, дельфин https://www.cyberforum.ru/post604502.html Кто следующий? 0

@eryana 0 / 0 / 1 Регистрация: 10.03.2010 Сообщений: 66
	06.04.2010, 18:20
	Кот шевелит двумя усами из шести 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.04.2010, 17:18
	7joni7, Прежде чем лепить что-то на форум, думать нужно. Откуда у людей Ваш самопальный модуль graph0 ? 0

@WolfCF
	26.04.2010, 05:35
	Не по теме: yura`, а можно модуль MyGraph выложить? а лучше без него сделать. 0

@WolfCF 3319 / 1381 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	26.04.2010, 06:02
	Не по теме: Puporev, блин,до чего дожили,чтобы постоянно не писать эти 2 строчки написали модуль. Добавлено через 12 минут Не по теме: кстати,на фронтальной и профильной проекции невидимые линии ни к чему,так как есть разрез на горизонтальной плоскости. 0