TAILIEUCHUNG - Turbo Pascal với chương trình Gió động và Động đất part 4

Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 4', 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ả | END 5 END END TINH XONG HE SOAP LUC DONG CUA CAC TANG Si Ợ__ PROCEDURE HSONU RO REAL R Xi RS Nu RX VAR HSn REAL LABEL 7 8 VAR I J II JI INTEGER KI X X1 Y1 X2 Y2 TG1 TG2 REAL BEGIN ỈRO LIH ỈF K 2 THEN R0 LỊ2Ị ỉ IF RO 1 THEN RO 1 KI TO ÌEKKõTHEN KI Õ IỈSR R HSX X1 HRX Nu FOR I l TO 7 DO IFKKXmi THEN BEGIN Il l-1 GOTO 7 END 39 7 FOR I 1 TO 7 DO BEGIN IF RO R I THEN BEGIN GOTO 8 END END 8 X RO Xl R Jl Yl Nu Jl Il X2 R Jl lỊ Y2 Nu Jl l Il TG1 NSUY X X1 Y1 X2 Y2 X RO Xl R Jl Yl Nu J 1 11 1 X2 R J 1 1 Y 2 Nu J 1 1 11 1 TG2 NSUY X X1 Y1 X2 Y2 X Ki Xl Xi Il Yl TGl X2 Xi Il l Y2 TG2 HSn NSUY X Xl Yl X2 Y2 END Ợt _ __ __ PROCEDURE BIENDOD ST XX YY D1 INTEGER HT TH VAR YV YQ VAR HTV YBV ARRAY OF INTEGER 40 TC BD MAX REAL I eI Kl K2 INTEGER SD SB SK SK1 SB1 S77WG BEGIN IF 01 1 THEN XX -XX-130 IF Dl 2 THEN xx xx 130 TC O MAX ABS YV ST 1 FOR I l TO ST DO TC TC HT I1 FOR 1 1 TO ST DO HTV IỊ ROUND 1ÕO IIT I TC FOR I l TO ST DO IF MAXoO THEN YBV I ROUND 30 YV I D1 MAX SETBKCOLOR 15 SETCOLOR 8 SETTEXTSTYLE O O l VieỂ ngang chu thuongỉ SETTEXT JUST FY 1 l Vieí chinh tarn OUTTEXTXY XX YY-180 BIEN DO DAO DONG THU STR D1 1 SD OUTTEXTXY XX 73 YY-180 SD LIN E XX-Õ YY XX Õ YY SETLỈNESTYLE O O 1 LINE XX YY XX YY-1ÕO .

• Kỹ thuật lập trình
• Turbo Pascal
• lập trình Turbo Pascal
• kỹ thuật 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
• mứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• ứng dụng 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