tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 3

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 3', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 90 Lý thuyết và Bài tập Pascal biến khai báo trong chương trình chinh biến toàn cục Do dó khi kết thúc thủ tục duong glá trị xi x2 sẽ có giá trị mỡl là gỉá trị được gân trong thủ tục duong. Với phương trình bậc hai AX2 BX c 0 nếu A 0 bãi toán trở thành giải phương trình bậc nhất BX c 0. Nếu A khác 0 Delta B2 - 4AC nếu Delta 0 Phương trình võ nghiệm. Delta 0 Phương trình có 1 nghiệm kép X -B 2A. Delta 0 Phương trình có 2 nghiệm - xl -b-SQRTÍ delta 2A - x2 -b SQRT delta 2A Program Giaipt_B2 uses crt var a b c delta xl x2 real procedure ptb1 a b real begin if aoO then writelnpPT co nghiem x -b a 0 2 if a 0 then begin if b 0 then writelnCPT co VO so nghiem else writelnCPT VO nghiem end end Chương 1 Phẩn căn bản 91 procedure am begi n writelnCPT vo nghiêm end procedure không begin writelnCPT co 1 nghiêm kep writelnpx 1 -b 2 a 0 2 end procedure duong begin xl -b-sqrt delta 2 a x2 -b sqrt delta 2 a writeinf PT co 2 nghiem don writelnCXl x1 0 2 writeln X2 x2 O 2 end Begin clrscr writeCHe so A readln a writel He so B readln b writef He so c readln c if a 0 fhen ptbl b c 92 Lý thuyết và Bài tập Pascal else begin delta b b-4 a c if delta 0 then duong if delta o then khong if delta 0 then am end readln end. Bài . Chương trình mỉnh họa cách sử dụng biến ở chương trình chính và chương trinh con. Nếu tên biến cục bộ khai bão trong chương trình con trũng vớỉ tên biến toàn cục khaỉ báo trong chương trình chính. Khl chạy chương trình con. biến cục bộ khai báo trong chương trình con sẽ được hiểu lã một biến mới biến toàn cục cùng tẽn ưong chương trình chính tạm thơi bị che. Kết thúc chương trinh con giá trị biến cục bộ bị hủy và biến toàn cục tiếp tục có hiệu lực. Ví du Khi chạy Lệnh 25 lần đầu tiên trong vông lặp For giá trị biến 1 0 và hàm gt n được gọi. dõng lệnh 7 sẽ tạo một biến i cục bộ mới có giã trị chưa xác định tạm thởỉ che biến i 0 của chương trình chính nên khi thực hiện đến dòng 12 giá trị i lũc này 12 do vòng for 10 gán trị 1 2 vã kết thúc luôn vĩ không thỏa điều .