putpixel(x24-13,y24+1,0);
putpixel(x24-11,y24+13,0);
{utpixel(x41,y41,14);}
putpixel(x24-19,y24+13,0);
putpixel(x24-14,y24+3,0);
putpixel(x24-47,y24+19,0);
putpixel(x24-7,y24+9,0);
putpixel(x24-21,y24+10,0);
putpixel(x24-7,y24+30,0);
putpixel(x24-6,y24+21,0);
putpixel(x24-4,y24+29,0);
putpixel(x24-86,y24+21,0);
putpixel(x24-19,y24+17,0);
putpixel(x24-13,y24+10,0);
putpixel(x24-11,y24+38,0);
{utpixel(x41,y41,14);}
putpixel(x24-79,y24+23,0);
putpixel(x24-1,y24+3,0);
putpixel(x24-4,y24+19,0);
putpixel(x24-17,y24+9,0);
putpixel(x24-21,y24+20,0);
putpixel(x24-25,y24+17,0);
putpixel(x24-5,y24+21,0);
putpixel(x24-7,y24+9,0);
putpixel(x24-8,y24+41,0);
putpixel(x24-19,y24+17,0);
putpixel(x24-10,y24+1,0);
putpixel(x24-11,y24+17,0);
{utpixel(x41,y41,14);}
putpixel(x24-9,y24+23,0);
putpixel(x24-1,y24+3,0);
putpixel(x24-47,y24+19,0);
putpixel(x24-7,y24+15,0);
setcolor(black);
line(x24,y24,x22,y22);
line(x31,y31,x32,y32);
line(x31,y31,x33,y33);
line(x32,y32,x34,y34);
line(x22,y22,x34,y34);
line(x22,y22,x33,y33);
line(x27,y27,x37,y37);
line(x24,y24,x29,y29);
line(x24,y24,x30,y30);
line(x29,y29,x30,y30);
setcolor(11);
x14:=30+round(xm[h]/2);
y14:=y4-70-round(ym[h]/2);
x17:=30+round(xm[h+1]/2);
y17:=y4-70-round(ym[h+1]/2);
line(x14,y14,x17,y17);
end;
end;
setcolor(white);
line(x24,y24,x22,y22);
line(x31,y31,x32,y32);
line(x31,y31,x33,y33);
line(x32,y32,x34,y34);
line(x22,y22,x34,y34);
line(x22,y22,x33,y33);
line(x24,y24,x29,y29);
line(x24,y24,x30,y30);
line(x29,y29,x30,y30);
setcolor(13);
line(x27,y27,x37,y37);
o:=readkey;
if o<>'E' then break ;
until o='E';
CloseGraph;
end;
end;
Begin
repeat
Menu;
c:=readkey;
clrscr;
case c of
{'2':Dobavlenie;}
'2':PU;
'5':Red1; {'3':Prosmotr;}
'1':Naprava;
'4':Red;
'6':Red2;
'7':Red3;
'3':RezerV;
'9':Red7;
{'5':Poisk;}
end;
until c='8';
{close(f)};
readkey;
end.
4. Результаты
МАССИВЫ ВРЕМЯ ДАЛЬНОСТЬ ВЫСОТА УГОЛ ТАНГАЖА
0 0 100 0 0 0
0.0000 0.0000 0.0000 0.0000 0.0000
0.1000 1.9288 100.8327 0.0026 -0.4116
0.2000 4.3095 101.5585 0.0106 -0.3222
0.3000 7.1373 102.2784 0.0245 -0.2494
0.4000 10.4177 102.9907 0.0455 -0.1852
0.5000 14.1558 103.7003 0.0749 -0.1244
0.6000 18.3558 104.4181 0.1139 -0.0633
0.7000 23.0205 105.1612 0.1635 0.0002
0.8000 28.1509 105.9532 0.2239 0.0677
0.9000 33.7449 106.8241 0.2952 0.1396
1.0000 39.7964 107.8099 0.3764 0.2152
1.1000 46.2938 108.9520 0.4655 0.2931
1.2000 53.2194 110.2951 0.5595 0.3707
1.3000 60.5485 111.8855 0.6545 0.4445
1.4000 68.2510 113.7683 0.7456 0.5104
1.5000 76.2930 115.9848 0.8279 0.5640
1.6000 84.6405 118.5705 0.8963 0.6014
1.7000 93.2633 121.5539 0.9469 0.6196
1.8000 102.1390 124.9559 0.9772 0.6171
1.9000 111.2560 128.7904 0.9868 0.5945
2.0000 120.6148 133.0642 0.9777 0.5550
2.1000 130.2268 137.7783 0.9542 0.5036
2.2000 140.1116 142.9291 0.9228 0.4473
2.3000 150.2924 148.5098 0.8914 0.3943
2.4000 160.7909 154.5141 0.8682 0.3524
2.5000 171.6222 160.9395 0.8603 0.3281
2.6000 182.7906 167.7915 0.8723 0.3248
2.7000 194.2872 175.0857 0.9047 0.3419
2.8000 206.0876 182.8473 0.9536 0.3745
2.9000 218.1541 191.1080 1.0114 0.4139
3.0000 230.4395 199.9000 1.0679 0.4499
3.1000 242.8961 209.2520 1.1140 0.4735
3.2000 255.4850 219.1857 1.1437 0.4793
3.3000 268.1835 229.7166 1.1562 0.4677
3.4000 280.9864 240.8547 1.1564 0.4443
3.5000 293.9001 252.6070 1.1528 0.4182
3.6000 306.9323 264.9804 1.1549 0.3990
3.7000 320.0815 277.9848 1.1694 0.3929
3.8000 333.3289 291.6347 1.1975 0.4004
3.9000 346.6372 305.9490 1.2349 0.4164
4.0000 359.9564 320.9476 1.2739 0.4326
4.1000 373.2347 336.6481 1.3068 0.4416
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.