Bài tập - Chương trình đơn giản

TRỈÅÌNG THPT ÂÄNG H TÄØ TIN HC THAO GING CHO MỈÌNG NGY THNH LÁÛP HÄÜI LHPN VIÃÛT NAM 20-10 Tiãút BAèI TP Lỏỷp trỗnh õồn giaớn ã Cỏu lóỷnh g ạn • S ỉ í dủng th tủc READ/READLN • S ỉ í dủng th tủc WRITE/WRITELN I L THUYÃÚT Cáu lãûnh g aïn: Biãún := Biãø u thỉ ïc ; Th tủc nháûp dỉ ỵ liãûu: READ/READLN (Biãún 1, Biãún Th2, ) xút dỉ ỵ liãûu: tủc WRITE/WRITELN(BT 1, BT2, ) Gii thût tê nh to ạn: B1: Nháûp d ỉ ỵ liãûu B2: Tê nh g iạ trë the o c äng thỉ ïc B3: In kãút q u II BI TÁÛP Bi 1: Viãút c ạc c äng thỉ ïc s au the o daûng Turbo Pas c al Ax + By + C − b + delta b) a) A2 + B 2a c) y+ x y− 1+ x d) 1+ x sin x Giaíi: a (-b - S QRT(De lta))/(2*a) b (A*x+b*y+C)/S QRT(A*A+B*B) c (y+1/x)/(y-1/(x+1)) d S QR(S IN((1 + x)/(x*x*x))) y II BAÌI TÁÛP a Baìi 2: (S äú - trang 36 - S GK) -a a Dỉ ỵ liãûu v o /ra:   Vo: Ra: Bạn kê nh A Diãûn tê c h S -a Täø c hæ ïc d ỉ ỵ liãûu: Hàịng: P = 3.1416 Biãún: A, S : S äú thỉ ûc (REAL) Gii thuáût: B1: Nháûp g iaï trë A B2: Tê nh S the o c äng thæ ïc S :=A*A*P/2; Chổ ồng trỗ nh PROGRAM BAI_9 ; CONS T P = 3.1416 ; VAR A, S : REAL ; BEGIN WRITE(‘Nhap Ban kinh :’) ; READLN(A); S := A*A*P/2; WRITELN(‘Die n tic h = ’ , S : 12 : ) ; READLN; END Baìi 3: (S äú 10 - trang 36 - S GK) Dỉ ỵ liãûu v aìo /ra:  Vaìo: H  Ra: V Täø c hỉ ïc d ỉ ỵ liãûu:   Hàịng: G=9.8 Biãún: V, H: S äú thỉ ûc (REAL) Gii thût: B1: Nháûp giạ trë H B2: Tênh V theo cäng thỉïc B3: In kãút qu: V Chổ ồng trỗ nh PROGRAM BAI_10; CONS T G=9.8; VAR V,H: REAL ; BEGIN WRITE(‘Nhap c ao h :’); READLN(H) ; V := S QRT(2*G*H) ; WRITELN(‘Van to c v= ’ , V:12:2) ; READLN; END Baìi 4: Baìi toaùn: Vióỳt chổồng trỗnh tờnh dióỷn tờch toaỡn phỏửn cuớa hỗnh truỷ vồùi sọỳ õo cuớa chióửu cao h v bạn kênh âạy R nháûp vo tỉì bn phêm Mọỹt baỷn õaợ vióỳt chổồng trỗnh nhổ sau, em haợy sàõp xãúp lải thỉï tỉû cạc cáu lãûnh cho âụng chổồng trỗnh { } BEGIN { } VAR BK,CC,STP: REAL; } PROGRAM Peace; } STP :=2*BK*Pi*CC+ 2*BK*BK*Pi; } WRITE(‘ Nháûp säú âo ban kinh: ’ ); } READLN(BK); } WRITE(‘ Dien têch TP = ’ , STP:10: 4); } WRITE(‘ Nháûp säú âo chieu cao: ’ ); } READLN(CC); 10} CONST PI = 3.1416; 11} READLN; 12} END { { { { { { { { { { Dỉ ỵ liãûu v aìo /ra:  Vaìo: BK, CC  Ra: S TP R Täø c hæ ïc d æ î liãûu:   Hàòng: PI = 3.1416 Biãún: BK,CC, S TP: S äú thỉ ûc Gii thût: B1: Nháûp giaï trë BK,CC B2: Tênh S TP = S XQ + 2*S âạy B3: In kãút qu: STP h { 1} BEGIN { { { { { { { { { { { VAR BK,CC,STP: REAL; PROGRAM Peace; STP :=2*BK*Pi*CC+ 2*BK*BK*Pi; WRITE(‘ Nháûp säú âo ban kinh: ’ ); READLN(BK); WRITE(‘ Dien têch TP = ’ , STP:10: 4); WRITE(‘ Nháûp säú âo chieu cao: ’ ); READLN(CC); CONST PI = 3.1416; READLN; END 2} 3} 4} 5} 6} 7} 8} 9} 10 } 11} 12} {3 } { 10} {2 } {1 } {5 } {6 } {8 } {9 } {4 } {7 } 4); { 11} { 12} PROGRAM Peace; CONST PI = 3.1416; VAR BK,CC,STP: REAL; BEGIN WRITE(‘Nháûp säú âo ban kinh: ’ ); READLN(BK); WRITE(‘Nháûp säú âo chieu cao: ’ ); READLN(CC); STP :=2*BK*Pi*CC+ 2*BK*BK*Pi; WRITE(‘Dien têch TP = ’ , STP:10: READLN; END BI 5: Viãút s ang dảng biãø u thỉ ïc to aïn ho üc : A/B*2 A*B*C/2 1/A*B/C B/S QRT(A*A+B) BI GII: A/B*2 A*B*C/2 1/A*B/C -> A B -> ABC -> B AC B B/S QRT(A*A+B) -> A2 + B Bài 6: HÃy viết biểu thức lôgic cho kết True toạ độ (x, y) điểm nằm vùng gạch chéo (kể biên) hình sau y y 1 -1 -1 x x -1 (ABS(x) A2 + B Bài 6: HÃy viết biểu thức lôgic cho kết True toạ độ (x, y) điểm nằm vùng gạch chéo (kể biên) hình sau y y 1 -1 -1 x x -1 (ABS(x)