Гражданинспасибо те большое я за эту работу получмл 5, прафда не успел отчет написать
, да это ладно, на следущей паре напишу
кому надо вот исходник этой картинки
QUOTE
Cls
Const pi = 3.141593
Screen 9
Line (200, 50)-(330, 5), 14
Line (200, 50)-(220, 70), 12, B
Line (200, 70)-(180, 145), 14
Circle (180, 170), 25, 12, , , 2
Circle (235, 195), 55, 14, pi, 3 * pi / 2
Circle (255.5, 233), 21, 12
Line (245, 223)-(270, 243), 12, B
Line (277, 233)-(380, 233), 14
Circle (401, 233), 21, 12
Line (390, 222)-(415, 243), 12, B
Circle (422, 195), 55, 14, 3 * pi / 2
Circle (477, 170), 25, 12, , , 2
Line (457, 70)-(477, 145), 14
Line (436, 50)-(457, 70), 12, B
Line (457, 50)-(331, 5), 14
Circle (331, 35), 30, 12, , , 2
Line (325, 10)-(339, 60), 12, B
Line (220, 50)-(310, 60), 14
Line (436, 50)-(352, 60), 14
Line (352, 60)-(444, 90), 14
Line (310, 60)-(210, 90), 14
Circle (220, 103), 20, 7
Line (200, 103)-(200, 195), 14
Circle (438, 105), 20, 7
Line (458, 103)-(458, 195), 14
Line (200, 195)-(458, 215), 14, B
Circle (220, 103), 15, 6
Circle (220, 103), 10, 15
Circle (438, 105), 15, 6
Circle (438, 105), 10, 15
Line (200, 195)-(236, 215), 10
Line (236, 215)-(290, 195), 10
Line (300, 195)-(344, 215), 10
Line (344, 215)-(380, 195), 10
Line (380, 195)-(416, 215), 10
Line (416, 215)-(458, 195), 10
Circle (243, 60), 110, 2, 3 * pi / 2, 0
Circle (260, 80), 110, 2, 3 * pi / 2, 0
Line (352, 60)-(370, 80), 2
Line (243, 141)-(260, 161), 2
Circle (418, 60), 110, 2, pi, 3 * pi / 2
Circle (397, 80), 110, 2, pi, 3 * pi / 2
Line (310, 60)-(287, 80), 2
Line (418, 141)-(397, 161), 2
LOCATE 20, 30.5
Print "ThIs PiCtUrE By [CRASH]"
LOCATE 13, 32
Print "sOfTorOOm.NeT-fOrEvEr"
LOCATE 22, 30.5
Print "Спасибо модератору под ником Гражданин"