Dịch cùng sửa lỗi cú pháp (nếu có): nhấn tổ hợp phím alternative text + F9. Lúc dịch chương trình, nếu thấy có thông báo lỗi, các bạn nên xem phụ lục 7: một vài thông báo lỗi nghỉ ngơi cuối giáo trình.
a) Gõ chương trình
program Giai__PTB2 ;
uses crt ;
var a, b, c, D: real ;
x1, x2: real;
begin
clrscr ;
write ( "a, b, c : " ) ,
readln(a, b, c) ;
D:=b*b - 4*a*c;
x1:= (-b - sqrt(D) ) / (2*a),
x2:= -b/a - x1 ;
write("x1= x1:6:2," x2 = ",x2:6:2) ;
readln ;
end.
Bạn đang xem: Bài tập và thực hành 1 tin học 11
b) Nhấn tổng hợp phím F2 và lưu lịch trình với tên là PTB2.PAS lên đĩa.
c) Dịch với sửa lỗi cú pháp (nếu có): nhấn tổng hợp phím alt + F9. Khi dịch chương trình, ví như thấy có thông tin lỗi, các bạn nên xem phụ lục 7: một số trong những thông báo lỗi nghỉ ngơi cuối giáo trình.
Sau lúc dịch xong chương trình, trên màn hình xuất hiện thêm thông báo "Đã dịch thành công: hãy gõ một phím bất kỳ" để liên tiếp (Hình 4).
d) triển khai chương trình: Nhấn tổng hợp phím Ctrl + F9. Bên trên màn hình mở ra thông báo nhập vào những giá trị a, b, c. Sau khoản thời gian nhập dứt các quý giá a = 1, b = -3, c = 2 thì kết quả của công tác là x1 = 1.00 x2 = 2.00 (Hình 5).
Lưu ý:
Khi nhập những giá trị a, b, c ta cần gõ dấu cách sau các lần nhập một giá trị.
Để tảo trở lại màn hình hiển thị soạn thảo chương trình, ta gõ phím Enter. Muốn nhập vào những giá trị không giống của a, b, c thì ta đề xuất chạy lại chương trình.
Xem thêm: Vì Sao Trái Đất Có Sự Sống Ngoài Trái Đất, Vì Sao Trái Đất Có Sự Sống
e) Nhấn tổng hợp phím Ctrl + F9 rồi nhập những giá trị 1; 0; -2. Kết quả trên màn hình sẽ là:
X1 = -1.41 x2 = 1.41 (Hình 6).
f) Ta hoàn toàn có thể sửa lại công tác trên khi không dùng biến trung gian D
Chương trình kia là:
program Giai__PTB2 ;
uses crt ;
var a, b, c: real ;
x1, x2: real;
begin
clrscr ;
write ( "a, b, c : " ) ,
readln(a, b, c) ;
x1:= (-b - sqrt(b*b - 4*a*c) ) / (2*a),
x2:= -b/a — x1 ;
write("x1= x1:6:2," x2 = ",x2:6:2) ;
readln ;
end.
- lúc nhập những bộ tài liệu 1; -3; 2 với 1; 0; -2 thì tác dụng của chương trình không tồn tại gì nạm đối so với khi sử dụng biến trung gian D (x1 = 100 x2 = 2.00 và x1 = -1,41 x2 = 1.41
g) Sửa lại công tác để tính nghiệm x2 bởi hai cách:
Cách 1. Thay cách làm x2 : = -b/a - x1; bởi công thức:
x2:= (- b + sqrt(b*b - 4*a*c))/(2*a);
Khi đó công tác sẽ là:
Program Giai__PTB2 ,
uses crt;
var
a, b, c: real ;
x1, x2: real ;
begin
clrscr;
write("a, b, c: ") ;
readln(a, b, c) ;
x1:= (-b — sqrt(b*b — 4*a*c))/(2*a) ;
x2:= (- b + sqrt(b*b - 4*a*c))/(2*a) ;
write("xl = xl:6:2," x2 = ",x2:6:2) ; readln ;
end.
Cách 2: Dùng biến hóa phụ D với thay cách làm x2 : = -b/a - x1 ; bằng công thức: x2 : = (- b + sqrt (D) ) / (2*a) ;
Khi đó lịch trình sẽ là:
program Giai_PTB2 ,
uses crt ;
var a, b, c, D: real ,
x1, x2: real ;
begin
clrscr ,
write(" a, b, c: ") ;
readln(a, b, c) ;
D:= b*b - 4*a*c ;
x1:= (-b — sqrt (D) ) / (2*a) ,
x2:= (-b + sqrt(D))/(2*a) ;
write("x1 = x1 :6:2," x2 = ",x2:6:2) ;
readln ;
end.
h) Với bộ dữ liệu 1; -5; 6 thì công tác đã sửa sống trên ý g) sẽ mang đến ta kết quả là x1 = 2 x2 = 3) (Hình 7)
i) Với bộ tài liệu 1; 1; 1 thì khi dịch công tác sẽ cho ta tác dụng là một thông báo lỗi: Error 207: Invalid floating point operation tức là phép toán với vết phẩy động chưa hợp lệ (Hình 8).