API tools faq
paste
Advertisement
Guest User

prgmNEW1

a guest
Dec 10th, 2016
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
FreeBasic 9.29 KB | None | 0 0
raw download clone embed print report
  1. 0→<PIPE>N
  2. Lbl 0
  3. ClrDraw
  4. FnOff
  5. AxesOff
  6. 0→Xmin
  7. 0→Ymin
  8. 94→Xmax
  9. 62→Ymax
  10. ClrHome
  11. ClrDraw
  12. GridOff
  13. PlotsOff
  14. Full
  15. Line(80,8,94,8
  16. Text(55*3.75,83,"UGO
  17. Line(70,0,94,0
  18. Line(70,50,83,50
  19. Text(13*3.75,71,"by
  20. Line(70,42,94,42
  21. Text(1*3.75,18,"vecteur
  22. Line(2,61,66,61
  23. Line(67,60,67,3
  24. Line(2,2,66,2
  25. Line(1,3,1,60
  26. Line(2,54,66,54
  27. For(X,0,6
  28.    Text((7X+9)*3.75,6,sub("coord.vecteur AB = (X,Y), B = ? xAB +/- yAC colinearite . sans coordonnees quit ",18X+1,18
  29. End
  30. DelVar X
  31. getKey→K
  32. Repeat max(Ans={105
  33.    If Ans
  34.    Then
  35.        If Ans=25 or Ans=34
  36.        Then
  37.            Line(3,52-7X,3,47-7X,0
  38.            Line(65,52-7X,65,47-7X,0
  39.            X+(Ans=34)-(Ans=25
  40.            Ans+7((Ans<0)-(Ans>6→X
  41.        End
  42.    End
  43.    Line(3,52-7X,3,47-7X
  44.    Line(65,52-7X,65,47-7X
  45.    getKey
  46. End
  47. If not(X
  48. Then
  49.    Goto 1
  50. End
  51. If X=1
  52.    Goto 2
  53. If X=2
  54.    Goto 3
  55. If X=3
  56.    Goto 15
  57. If X=4
  58.    Goto 0
  59. If X=5
  60.    Goto 21
  61. If X=6
  62.    Goto 70
  63. Lbl 1
  64. ClrHome
  65. Menu(" COORD. VECTEUR ","Coord. Vecteur",6,"3Pts -> 4e Pts",5,"MENU",7
  66. Lbl 7
  67. Goto 0
  68. Lbl 5
  69. ClrDraw
  70. Line(0,60,6,60
  71. Line(5,59,5,61
  72. Text(3*3.75,0,"AB = (X,Y)
  73. Text(9*3.75,0,"C = (XC,YC)
  74. Text(54*3.75,53,"B
  75. Text(23*3.75,24,"A
  76. Pt-On(30,35,3
  77. Pt-On(60,5,3
  78. Line(30,35,60,5
  79. Pt-On(75,10,3
  80. Text(51*3.75,78,"C
  81. Pause
  82. ClrHome
  83. Disp "Vect. AB (X,Y)
  84. Input "X=",A
  85. Input "Y=",B
  86. Disp "
  87. Disp "Point C=
  88. Input "XC=",C
  89. Input "YC=",D
  90. ClrHome
  91. ClrDraw
  92. Text(0,0,"COOR.DE D TEL QUE 'AB DC'
  93. Text(6*3.75,0,"SOIT UN PARALLELOGRAMME:
  94. Text(15*3.75,0,"AB = (",A," : ",B,") POINT C = (",C," : ",D,")
  95. Text(21*3.75,0,"ABDC = PARA, DONC AB=DC
  96. Text(30*3.75,0,"CD = (XD-XC : YD-YC)
  97. Text(36*3.75,0,"CD = (XD-",C," : YD-",D,")
  98. Text(43*3.75,0,"AB=DC <=>
  99. A+C→E
  100. B+D→F
  101. Text(49*3.75,0," ",A,"= XD-",C
  102. Text(49*3.75,40,"XD= ",A," + ",C," = ",E
  103. Text(55*3.75,0," ",B,"= YD-",D
  104. Text(55*3.75,40,"YD= ",B," + ",D," = ",F
  105. Pause
  106. ClrDraw
  107. Goto 1
  108. Lbl 6
  109. ClrHome
  110. Disp " A(XA,YA)
  111. Disp " B(XB,YB)
  112. Disp "
  113. Input "XA=",A
  114. Input "YA=",B
  115. Input "XB=",C
  116. Input "YB=",D
  117. C-A→E
  118. D-B→F
  119. ClrHome
  120. ClrDraw
  121. Text(0,0,"COORDONNE VECTEUR"
  122. Text(7*3.75,5,"A(",A," : ",B,")
  123. Text(13*3.75,5,"B(",C," : ",D,")
  124. Text(24*3.75,0,"AB = (XB-XA : YB-YA)
  125. Text(30*3.75,0,"AB = (",C,"-",A," : ",D,"-",B,")
  126. Text(43*3.75,0,"AB = (",E," : ",F,")
  127. Line(0,39,6,39
  128. Line(5,38,5,40
  129. Line(0,20,6,20
  130. Line(5,19,5,21
  131. Pause
  132. ClrDraw
  133. Goto 1
  134. Lbl 2
  135. ClrHome
  136. Disp "Vecteur AB:
  137. Disp "Point A:
  138. Input "XA=",A
  139. Input "YA=",B
  140. Disp "
  141. Disp "Coordonnee AB=
  142. Input "X=",C
  143. Input "Y=",D
  144. ClrHome
  145. ClrDraw
  146. Text(0,0,"VECTEUR AB :
  147. Text(6*3.75,0,"COORDONNE VECTEUR= (",C," : ",D,")
  148. Text(12*3.75,0,"POINT A= (",A," : ",B,")
  149. Text(20*3.75,0,"XB-XA = ",C,"
  150. Text(26*3.75,0,"YB-YA = ",D
  151. Text(20*3.75,50,"XB-",A," = ",C
  152. Text(26*3.75,50,"YB-",B," = ",D
  153. C+A→E
  154. D+B→F
  155. Text(34*3.75,0," ",C," + ",A," = ",E
  156. Text(40*3.75,0," ",D," + ",B," = ",F
  157. Text(50*3.75,20,"B = (",E," : ",F,")
  158. Pause
  159. ClrDraw
  160. Goto 0
  161. Lbl 3
  162. ClrHome
  163. Menu(" xAB +/- yAC ","AM=xAB +/- yAC",8,"AC= xAB, B=?",19,"AB=[X/Y]AC,B=?",20,"MENU",10
  164. Lbl 20
  165. ClrDraw
  166. Text(0,0,"AB = [X/Y] AC.
  167. Text(25*3.75,0,"A (XA , YA)
  168. Text(31*3.75,0,"C (XC , YC)
  169. Text(38*3.75,0,"B (?? , ??)
  170. Line(45,40,75,10
  171. Pt-On(75,10,3
  172. Pt-On(55,30,3
  173. Text(14*3.75,43,"A
  174. Text(25*3.75,57,"B (?)
  175. Text(45*3.75,77,"C
  176. Pause
  177. ClrHome
  178. Disp "AB=[X/Y]AC. B=?
  179. Disp "Points A=
  180. Input "XA=",A
  181. Input "YA=",B
  182. Disp ""
  183. Disp "Vecteur AC=
  184. Input "X=",C
  185. Input "Y=",D
  186. ClrHome
  187. Disp "AB= [X/Y]AC
  188. Disp ""
  189. Input "X= ",X
  190. Output(7,1,"AB=[
  191. Output(7,5,X
  192. Input "Y= ",Z
  193. Output(7,1,"AB=[
  194. Output(7,5,X
  195. Output(7,7,"/ ]AC
  196. Output(7,8,Z
  197. Output(8,1,"B= (??:??) =>
  198. Pause
  199. ClrHome
  200. ClrDraw
  201. Text(0,0,"VECTEUR AC(",C," : ",D,")
  202. Text(6*3.75,0,"Points: A(",A," : ",B,")
  203. Text(5*3.75,61,"AB( AC)
  204. Text(1*3.75,74*3.33,X
  205. Line(73,54,81,54
  206. Text(9*3.75,74*3.33,Z
  207. Text(15*3.75,3.33,X
  208. Text(23*3.75,3.33,Z
  209. Line(0,40,7,40
  210. Text(19*3.75,9*3.33,"AC = (
  211. Text(15*3.75,29*3.33,X,"*",C
  212. Text(23*3.75,36*3.33,Z
  213. Line(28,40,50,40
  214. Text(19*3.75,52*3.33,":
  215. Text(15*3.75,55*3.33,X,"*",D
  216. Line(54,40,75,40
  217. Text(23*3.75,62*3.33,Z
  218. Text(19*3.75,78*3.33,")
  219. Text(34*3.75,0,"AB
  220. Line(10,32,10,19
  221. Text(30*3.75,12*3.33,"XB - ",A
  222. Text(37*3.75,12*3.33,"YB - ",B
  223. Text(34*3.75,37*3.33,"=
  224. X*C→E
  225. X*D→F
  226. Text(30*3.75,43*3.33,"[",E," / ",Z,"]
  227. Text(37*3.75,43*3.33,"[",F," / ",Z,"]
  228. Text(50*3.75,2*3.33,"B
  229. Line(10,16,10,2
  230. Text(46*3.75,12,"XB = [",E," / ",Z,"] + ",A
  231. Text(53*3.75,12,"YB = [",F," / ",Z,"] + ",B
  232. Pause
  233. ClrDraw
  234. Goto 3
  235. Lbl 19
  236. ClrDraw
  237. Text(0,0,"AC = xAB.
  238. Text(25*3.75,0,"A (XA , YA)
  239. Text(31*3.75,0,"C (XC , YC)
  240. Text(38*3.75,0,"B (?? , ??)
  241. Line(45,40,75,10
  242. Pt-On(75,10,3
  243. Pt-On(55,30,3
  244. Text(14*3.75,43,"A
  245. Text(25*3.75,57,"B (?)
  246. Text(45*3.75,78,"C
  247. Pause
  248. ClrHome
  249. Disp "AC = xAB, B=?
  250. Input "AB*",E
  251. Disp "vecteur AC pts:
  252. Input "XA=",A
  253. Input "YA=",B
  254. Disp ""
  255. Input "XC=",C
  256. Input "YC=",D
  257. ClrHome
  258. ClrDraw
  259. Text(0,0,"VECTEUR AC = ",E,"AB
  260. Text(6*3.75,0,"points = A(",A," : ",B,") C(",C," : ",D,")
  261. Text(14*3.75,0,"X: ",C," - ",A," = ",E,"(XB - ",A,")
  262. Text(20*3.75,0,"Y: ",D," - ",B," = ",E,"(YB - ",B,")
  263. C-A→G
  264. D-B→H
  265. E*A→I
  266. E*B→J
  267. G+I→O
  268. H+J→P
  269. Text(27*3.75,0,"X: ",G," = ",E,"XB - ",I
  270. Text(33*3.75,0,"Y: ",H," = ",E,"YB - ",J
  271. Text(40*3.75,0,"X: ",G," + ",I," = ",E,"XB
  272. Text(46*3.75,0,"Y: ",H," + ",J," = ",E,"YB
  273. Text(55*3.75,0," B ( [",O," / ",E,"] : [",P," / ",E,"] )
  274. Pause
  275. ClrDraw
  276. Goto 3
  277. Lbl 10
  278. ClrHome
  279. Goto 0
  280. Lbl 8
  281. ClrHome
  282. Disp "AM =xAB + yAC"
  283. Input "xAB= AB*",P
  284. Input "yAC= AC*",E
  285. Disp "Vecteur AB=
  286. Input "X=",A
  287. Input "Y=",B
  288. Disp "Vecteur AC=
  289. Input "X=",C
  290. Input "Y=",D
  291. ClrHome
  292. ClrDraw
  293. Text(0,0,"CALCULE DE AM = ",P,"AB + ",E,"AC
  294. Text(8*3.75,0,"VECTEUR AB = (",A," : ",B,")
  295. Text(14*3.75,0,"VECTEUR AC = (",C," : ",D,")
  296. E*C→F
  297. E*D→G
  298. P*A→Q
  299. P*B→R
  300. Text(23*3.75,0," ",P,"AB = (",P,"*",A," : ",P,"*",B,") = (",Q," : ",R,")
  301. Text(29*3.75,0," ",E,"AC = (",E,"*",C," : ",E,"*",D,") = (",F," : ",G,")
  302. Line(1,40,11,40
  303. Line(10,39,10,41
  304. Q+F→H
  305. R+G→I
  306. Text(38*3.75,0,P,"AB + ",E,"AC = (",Q,"+",F," : ",R,"+",G,")
  307. Text(44*3.75,0,P,"AB + ",E,"AC = (",H," : ",I,")
  308. Text(54*3.75,0,"VECTEUR AM = (",H," : ",I,")
  309. Line(30,9,36,9
  310. Line(35,8,35,10
  311. Pause
  312. ClrDraw
  313. Goto 3
  314. Lbl 15
  315. ClrHome
  316. Menu(" COLINEARITE ","Coli/AIign Pts",16,"Parallelisme",17,"MENU",18
  317. Lbl 18
  318. ClrHome
  319. Goto 0
  320. Lbl 16
  321. ClrDraw
  322. Line(0,60,6,60
  323. Line(5,59,5,61
  324. Text(3*3.75,0,"AB = (X,Y)
  325. Text(9*3.75,0,"AC = (X,Y)
  326. Pt-On(30,35,3
  327. Pt-On(60,5,3
  328. Pt-On(49,16,3
  329. Line(30,35,60,5
  330. Text(23*3.75,34,"A
  331. Text(52*3.75,63,"C
  332. Text(38*3.75,51,"B
  333. Text(40*3.75,0,"ALIGN-
  334. Text(46*3.75,0,"-EMENT DE
  335. Text(52*3.75,0,"A - B - C
  336.  
  337. Pause
  338. ClrHome
  339. Disp "Vecteur AB=
  340. Input "X=",A
  341. Input "Y=",B
  342. Disp "
  343. Disp "Vecteur AC=
  344. Input "X=",C
  345. Input "Y=",D
  346. ClrHome
  347. ClrDraw
  348. Text(0,0,"COLI/ALIGN. DE A - B - C
  349. Text(9*3.75,0,"VECTEUR AB = (",A," : ",B,")
  350. Text(15*3.75,0,"VECTEUR AC = (",C," : ",D,")
  351. Text(23*3.75,0,"TABLEAU DE PRPORTIONALIT:
  352. Text(31*4,2,A
  353. Text(31*4,12,C
  354. Text(40*4,2,B
  355. Text(40*4,12,D
  356. Line(0,15,0,32
  357. Line(0,32,20,32
  358. Line(20,32,20,15
  359. Line(20,15,0,15
  360. Line(0,24,20,24
  361. Line(10,32,10,15
  362. A*D→E
  363. C*B→F
  364. Text(31*4,22,"(",A," * ",D,") = ",E
  365. Text(38*4,22,"(",C," * ",B,") = ",F
  366. Line(0,12,6,12
  367. Line(5,11,5,13
  368. Line(18,12,24,12
  369. Line(23,11,23,13
  370. If E=F
  371. Then
  372.     Text(51*4,0,"AB ET AC SONT COLINEAIRE
  373.    Text(57*4,0,"ET A - B - C SONT ALIGNEE.
  374. End
  375. If E≠F
  376. Then
  377.     Text(51*4,0,"AB ET AC NE SONT PAS
  378.    Text(57*4,0,"COLINEAIRE, NI ALIGNEE.
  379. End
  380. Pause
  381. ClrDraw
  382. Goto 15
  383. Lbl 17
  384. ClrDraw
  385. Line(0,60,6,60
  386. Line(5,59,5,61
  387. Text(3*4,0,"AB = (X,Y)
  388. Text(9*4,0,"DC = (X,Y)
  389. Pt-On(30,35,3
  390. Pt-On(60,5,3
  391. Text(23*4,34,"A
  392. Text(52*4,63,"B
  393. Line(30,35,60,5
  394.  
  395.  
  396. Text(40*4,0,"PARAL-
  397. Text(46*4,0,"-LELISM
  398. Text(52*4,0,"DE AB, DC
  399. Pt-On(45,40,3
  400. Pt-On(65,20,3
  401. Line(45,40,65,20
  402. Text(16*4,48,"D
  403. Text(40*4,68,"C
  404. Pause
  405. ClrHome
  406. Disp "Paralelism Entre
  407. Disp "Vecteurs AB,DC:
  408. Disp "Vecteur AB=
  409. Input "X=",A
  410. Input "Y=",B
  411. Disp "Vecteur DC=
  412. Input "X=",C
  413. Input "Y=",D
  414. ClrHome
  415. ClrDraw
  416. Text(0,0,"PARLELISM ENTRE VECT AB,DC
  417. Text(9*4,0,"VECTEUR AB = (",A," : ",B,")
  418. Text(15*4,0,"VECTEUR DC = (",C," : ",D,")
  419. Text(23*4,0,"TABLEAU DE PRPORTIONALIT:
  420. Text(31*4,2,A
  421. Text(31*4,12,C
  422. Text(40*4,2,B
  423. Text(40*4,12,D
  424. Line(0,15,0,32
  425. Line(0,32,20,32
  426. Line(20,32,20,15
  427. Line(20,15,0,15
  428. Line(0,24,20,24
  429. Line(10,32,10,15
  430. A*D→E
  431. C*B→F
  432. Text(31*4,22,"(",A," * ",D,") = ",E
  433. Text(38*4,22,"(",C," * ",B,") = ",F
  434. If E=F
  435. Then
  436.    Text(51*4,0,"AB ET DC SONT COLINEAIRE
  437.     Text(57*4,0,"ET PARALLELE.
  438. End
  439. If E≠F
  440. Then
  441.    Text(51*4,0,"AB ET DC NE SONT PAS
  442.     Text(57*4,0,"COLINEAIRE, NI PARALLELE.
  443. End
  444. Pause
  445. ClrDraw
  446. Goto 15
  447. Lbl 21
  448. ClrHome
  449. Menu("Sans coordonnees","AB+BC+CA",22,"AB-AC+BC-BA",24,"AB-CD-AC",25,"MENU",23
  450. Lbl 25
  451. ClrDraw
  452. Line(90,35,70,55
  453. Line(70,55,60,35
  454. Line(60,35,90,35
  455. Line(70,55,80,15
  456. Line(90,35,80,15
  457. Line(80,15,60,35
  458. Text(0,71,"A
  459. Text(29*4,58,"D
  460. Text(27*4,90,"B
  461. Text(47*4,84,"C
  462. Line(12,58,17,58
  463. Line(16,58,16,59
  464. Line(24,58,29,58
  465. Line(28,58,28,59
  466. Line(36,58,41,58
  467. Line(40,58,40,59
  468. Text(5*4,0,"u = AB-CD-AC
  469. Text(11*4,0,"u = AB+DC+CA
  470. Text(17*4,0,"u = AB+DA
  471. Text(23*4,0,"u = DA+AB
  472. Text(39*4,0,"u = DB
  473. Line(12,24,17,24
  474. Line(16,24,16,25
  475. Pause
  476. Goto 21
  477. Lbl 24
  478. ClrDraw
  479. Line(60,35,90,35
  480. Line(90,35,70,55
  481. Line(70,55,60,35
  482. Text(0,71,"A
  483. Text(29*4,60,"C
  484. Text(27*4,90,"B
  485. Line(12,58,17,58
  486. Line(16,58,16,59
  487. Line(24,58,29,58
  488. Line(28,58,28,59
  489. Line(38,58,43,58
  490. Line(42,58,42,59
  491. Line(50,58,55,58
  492. Line(54,58,54,59
  493. Text(5*4,0,"u = AB-AC + BC-BA
  494. Text(11*4,0,"u = AB+CA + BC+AB
  495. Text(17*4,0,"u = CA+AB + AB+BC
  496. Text(23*4,0,"u = CB+AC
  497. Text(29*4,0,"u = AC+CB
  498. Text(39*4,0,"u = AB
  499. Line(12,24,17,24
  500. Line(16,24,16,25
  501. Pause
  502. Goto 21
  503. Lbl 22
  504. ClrDraw
  505. Line(60,35,90,35
  506. Line(90,35,70,55
  507. Line(70,55,60,35
  508. Text(0,71,"A
  509. Text(29*4,60,"C
  510. Text(27*4,90,"B
  511. Line(12,58,17,58
  512. Line(16,58,16,59
  513. Line(24,58,29,58
  514. Line(28,58,28,59
  515. Line(36,58,41,58
  516. Line(40,58,40,59
  517. Text(5*4,0,"u = AB+BC+CA
  518. Text(11*4,0,"u = [ AC ]+CA
  519. Text(21*4,0,"u = o
  520. Line(11,41,16,41
  521. Line(15,41,15,42
  522. Pause
  523. Goto 21
  524.  
  525. Lbl 23
  526. Goto 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!