TAILIEUCHUNG - Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 10

Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 10', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | TS. Bùi Thế Tâm 180 Giáo trình Turbo Pascal setcolor yellow outtextxy 215 55 1-1 2O t 1 end procedure VeHopSangf integer begin setcolor white setfillstyle 1 blue bar 201 53 j-1 20 42 9 66 j-1 20 outtextxy 215 55 j-1 20 t j end procedure dohoal begin cleardevice fillellipse 320 240 150 150 readkey end procedure dohoa2 begin cleardevice bar3d 130 200 400 290 50 true readkey end procedure dohoa3 begin cleardevice fillellipse 320 240 150 80 readkey end Begin t 0 MENU CHINH DO HOA t 1 11. Chuông trinh do hoa 1 t 2 2. Chuông trinh do hoa 2 t 3 3. Chuông trinh do hoa 3 t 4 4. Ket thuc gd detect initgraph gd gm setbkcolor lightgray j 1 LI cleardevice settextstyle 0 0 0 setfillstyle 1 cyan bar 200 20 430 40 setcolor magenta rectangle 200 20 430 40 setcolor yellow outtextxy 215 25 t 0 for i l to somuc do VeThanh i VeHopSang j while true do Ặ begin cl readkey if cl 0 then c2 readkey if cl 13 and j somuc then break else if cl 0 and c2 80 or c2 72 then begin if c2 80 then begin inc j if j l then VeThanh j-l if somuc l then J 1 - VeHopSang j end else begin dec j if j somuc and j -l then VeThanh j 1 if j l then j somuc VeHopSang j end end else if cl 13 then begin case j of 1 dohoal 2 dohoa2 3 dohoa3 end goto LI end end closegraph End. Bài 13 chương 9 chùm ánh sáng chiếu vào gương Uses graph crt var gd gm r uO v0 ul vl u2 v2 x0 yũ xl yl x2 y2 u3 v3 x3 y3 u4 v4 x4 y4 u5 u6 u7 u8 v5 v6 v7 v8 x5 x6 x7 x8 y5 y6 y7 y8 XX yy dai rong xll xl2 xl3 xl4 yl1 yl2 yl3 yl4 integer c char k real procedure Doi u V xO yO integer var X y integer begin X x0 u y y0-v end begin gd detect initgraph gd gm 1 setcolor lightred setbkcolor cyan K r 315 dai 10 0 rong 6 0 xll 320-dai-3ũ yll 400 30 xl2 320 dai-30 yl2 400 30 xl3 320 dai 30 yl3 400-30 xl4 320-dai 30 yl4 400-3ũ repeat TS Bùi Thế Tâm 181 Giáo trình Turbo Pascal ------------ Ve guong------------- setfillstyle 1 white setcolor white line xll yll xl2 yl2 line xl3 yl3 xl2 yl2 line xl3 yl3 xl4 y 4 line xll yll xl4 yl4 floodfill 320 400 .

• Kỹ thuật lập trình
• Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• ứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• mứng dụng Turbo Pascal
• lập trình Turbo Pascal
• kinh nghiệm lập trình Turbo Pascal
• hướng dẫn lập trình Turbo Pascal
• phương pháp lập trình Turbo Pascal
• Ngôn ngữ lập trình Pascal
• Bài giảng Ngôn ngữ lập trình Pascal
• Thực hành Turbo Pascal
• Turbo Pascal Version 5
• Turbo Pascal Version 7
• Cách khởi động Turbo Pascal
• Lập trình bằng Turbo Pascal
• đề cương Turbo Pascal