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

Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 5', 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ả | VAR HTV YBV ARRAY OF INTEGER TO BD MAX REAL I J K1 K2 INTEGER SD SB SK STRING BEGIN TC O FOR I l TO ST DO TC TC HT I FOR I l TO ST DO HTV I ROUND 150 HT I TC XX XX I00 SETBKCOLOR 15 SETCOLOR 8 SETTEXTSTYLE O O l Viei flgang chu thuofig SETTEXTJUST1FY 1 1 VÌƠÍ ehinh tarn IF Dl 2 THEN OUTTEXTXY XX YY-200 TAI TRONG DONG DAT T IF 1 12 THEN OUTTEXTXY XX YY-185 VUONG GOC NHA IF Dl 3 THEN OUTTEXTXY XX YY-18õ TAI trong DONG DAT T IF Dl 3 THEN OUTTEXTXY XX YY-170 VUONG GOC NHA EINE XX-5 YY XX Õ YY 51 SETLINESTYLE O O 1 LINE XX YY XX YY-1ÕO SETC0L0R 4 YY1 YY FOR I l TO ST DO BEGIN YY1 YY1-HTV I CIRCLE XX YY1 1 SETLINESTYLE 0 0 3 MOVETO XX YY1 LINEREL -10 0 MOVETO XX YYl LINEREL -2 -2 MOVETO XX YYl LINEREL -2 2 SETTEXTSTYLE O O l Vieí ngang chu thuong SETTEXTJUSTIFY O 1 Viet ben phai STR QV I 10 3 SB OUTTEXTXY XX 2 YY1 SB END END --- PROCEDURE DANGD1 K XX YY D1 INTEGER VAR CKY .CY VAR I J K1 K2 INTEGER CHKY REAL SD SKiSTRỈNG 1 DAJ K 2 RONGỊ 52 BEGIN CHKY CKY K D1 XX XX-340 170 Dl 8 ET B KCOI .OR 15 SETC OLOR 8 SETTEXTSTYLE O O l ỊViet ngữĩig chu thuong SETTEXTJUSTIFY 1 1 Vmỉí chinh tam OUTTEXTXY XX YY-180 DANG DAO DONG THU STR D1 2 SD OUTTEXTXY XX 70 YY-180 SD OUTTEXTXY XX YY-170 CHU KY T STR CHKY 7 4 SK OUTTEXTXY XX 40 YY-170 SK LỈNE XX-Õ YY XX Õ YY FOR i l TO 6 DO BEGIN J 2 I-1 LINE XX-õ J YY XX-10 J YY 5 END SETLINESTYLE 0 0 l LINE XX YY XX YY-150 PH0 110 180 340 PH l ROUND 180-PH0 SETCOLOR 4 .