tailieunhanh - Tự học lập trình Pascal tập 1 part 7

Tham khảo tài liệu 'tự học lập trình pascal tập 1 part 7', 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ả | 84 Pascal dành cho học sinh Begin Clrscr Write A 25x5 70x4 - 1 ũũx3 1Ox2 - 27x - 1997 x 2 A1 25 sqr sqr x x A1 A1 70 sqr sqr x A1 A1-1OO sqr x x A1 A1 10 sqr x -27 x-l997 x 3 A2 25 sqr sqr x x A2 A2 70 sqr sqr x A2 A2-100 sqr x x A2 A2 10 sqr x -27 x-1997 Writeln VỚỈ x 2 thì A A1 Write VỚI x 3 thi A A2 Readln End. 2. b. Program CT2b Uses CRT Var B X y integer Begin CLRSCR WrttelnfB x2-y2 - 4xy T x 19 y 10 B sqr x -sqr y -4 x y 1 Writeln Với X- x và y y thì x 17 Phần 2. HƯỚNG DAN 85 B sqr x -sqr y -4 x y 1 Writein với x tx và y y thì x 5 B sqr x - sqr y - 4 x y 1 Write với X- x y- y thì B B Readln End. 3. Program CT3 Uses Crt Var R c S Real Begin Clrscr Write Bán kính hình tròn R readln R C 2 R Pi S Pi sqr R Writeln chu vi của hình tràn lầ C Writeỉn Diện tích của hình trôn S Readln End. 4. a. Program CT4a Uses Crt Var a bh c integer AP Real Begin Clrscr Write AP 5a3-4a2b 10 b2 c a-5Ũb-20c a 3 86 Pascal dành cho học sinh b 6 c 3 AP 5 sqr a a-4 sqr a b AP AP 10 sqr b c a AP AP - 50 b-20 c AP AP c Writelnf Với a a b b c- c thì Write Inf Phần nguyên của AP c là Trunc AP Writeln Phân thập phân của AP c là AP-Trunc AP Readln End. 4. b. Program CT4b Uses Crt Var a b c integer R Real Begin Clrscr WritelnC R 5a3 - 4a2b 10 b2 c a - 50b-20c a -2 b 7 c 5 R 5 sqr a a-4 sqr a b R R 10 sqr b c a R R-50 b-20 C R R c Writeln Phần nguyên của R c là Trunc R Write Phẩn thập phân của R c là R-Trunc A Readln .