Để thông báo kết quả tính toán s ra màn hình ta có thể dụng lệnh sau

Dịch và sửa lỗi cú pháp (nếu có): nhấn tổ hợp phím Alt + F9. Khi 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 số thông báo lỗ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) Nhấn tổ hợp phím F2 và lưu chương trình với tên là PTB2.PAS lên đĩa. 

c) Dịch và sửa lỗi cú pháp (nếu có): nhấn tổ hợp phím Alt + F9. Khi 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 số thông báo lỗi ở cuối giáo trình.

Sau khi dịch xong chương trình, trên màn hình xuất hiện thông báo "Đã dịch thành công: hãy gõ một phím bất kỳ" để tiếp tục (Hình 4).

d)  Thực hiện chương trình: Nhấn tổ hợp phím Ctrl + F9. Trên màn hình xuất hiện thông báo nhập vào các giá trị a, b, c. Sau khi nhập xong các giá trị a = 1, b = -3, c = 2 thì kết quả của chương trình là x1 = 1.00 x2 = 2.00 (Hình 5).

Lưu ý:

Khi nhập các giá trị a, b, c ta nên gõ dấu cách sau mỗi lần nhập một giá trị.

Để quay trở lại màn hình soạn thảo chương trình, ta gõ phím Enter. Muốn nhập vào các giá trị khác của a, b, c thì ta phải chạy lại chương trình.

e) Nhấn tổ hợp phím Ctrl + F9 rồi nhập các 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 có thể sửa lại chương trình trên khi không dùng biến trung gian D

Chương trình đó 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.

- Khi nhập các bộ dữ liệu 1; -3; 2 và 1; 0; -2 thì kết quả của chương trình không có gì thay đối so với khi dùng biến trung gian D (x1 = 100 x2 = 2.00 và x1 = -1,41 x2 = 1.41

g) Sửa lại chương trình để tính nghiệm x2 bằng hai cách:

Cách 1. Thay công thức x2 : = -b/a - x1; bằng công thức:

x2:= (- b + sqrt(b*b - 4*a*c))/(2*a);

Khi đó chương trình 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 phụ D và thay công thức x2 : = -b/a - x1 ; bằng công thức: x2 : = (- b + sqrt (D) ) / (2*a) ;

Khi đó chương 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ì chương trình đã sửa ở trên ý g) sẽ cho ta kết quả là x1 = 2 x2 = 3) (Hình 7)

i) Với bộ dữ liệu 1; 1; 1 thì khi dịch chương trình sẽ cho ta kết quả là một thông báo lỗi: Error 207: Invalid floating point operation nghĩa là phép toán với dấu phẩy động không hợp lệ (Hình 8).

Loigiaihay.com

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

• 
  Tải app VietJack. Xem lời giải nhanh hơn!

Câu 1: Đoạn chương trình sau sẽ hiển thị kết quả:

Begin

Writeln ('Day la lop TIN HOC');

End.

A. 'Day la lop TIN HOC'

B. Không chạy được vì có lỗi

C. Day la lop TIN HOC

D. "Day la lop TINHOC"

Câu 2: Cho x là biến thực đã được gán giá trị 12.41235. Để thực hiện lên màn hình nội dung “x=12.41” cần chọn câu lệnh nào sau đây ?

A. Writeln(x);

B. Writeln(x:5);

C. Writeln(x:5:2);

D. Writeln(‘x=’ ,x:5:2);

Câu 3: Cho x, y, z là ba biến nguyên. Cách nhập giá trị nào sau đây là sai khi muốn nhập giá trị 3, 4, 5 cho ba biến này từ bàn phím bằng câu lệnh readln(x,y,z); ?

A. Gõ 3, 4, 5 sau đó nhấn phím Enter (giữa hai số liên tiếp gõ dấu phẩy);     

B. Gõ 3, 4, 5 sau đó nhấn phím Enter (giữa hai số liên tiếp gõ một dấu cách);

C. Gõ 3 sau đó nhấn phím Enter rồi gõ 4 sau đó nhấn phím Enter rồi gõ 5 sau đó nhấn phím Enter;

D. Gõ 3 sau đó nhấn phím Tab rồi gõ 4 sau đó nhấn phím Tab rồi gõ 5 sau đó nhấn phím Enter;

Câu 4: Cho S là biến có kiểu xâu (String) và y là biến kiểu thực. Trong các cách sau đây, khi thực hiện câu lệnh readln(S,y) nhập giá trị cho S = ‘ Tran Van Thong’ và y = 7.5 từ bàn phím, cách nhập nào đúng ?

A. Gõ “Tran Van Thong 7.5” sau đó nhấn Enter;

B. Gõ “Tran Van Thong” sau đó nhấn phím Enter rồi gõ “7.5” sau đó nhấn phím Enter;

C. Gõ “Tran Van Thong 7,5” sau đó nhấn phím Enter;

D. Gõ “Tran Van Thong ” rồi gõ dấu phẩy rồi gõ “7.5” sau đó nhấn phím Enter;

Câu 5: Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh

A. Write(a:8:3, b:8);

B. Readln(a,b);

C. Writeln(a:8, b:8:3);    

D. Writeln(a:8:3, b:8:3);

Câu 6: Để nhập giá trị cho 2 biến a và b ta dùng lệnh :

A. Write(a,b);

B. Real(a,b);

C. Readln(a,b);

D. Read(‘a,b’);

Câu 7: Trong ngôn ngữ lập trình Pascal, với câu lệnh như sau (a là một biến kiểu số thực):

a :=2345 ;

Writeln('a = ', a:8:3);

Sẽ ghi ra màn hình?

A. a = 2.345

B. a = 2.345E+01

C. Không đưa ra gì cả

D. a = 2345.000

Câu 8: Để in giá trị lưu trong  2 biến a và b ra màn hình ta dùng lệnh:

A. Write(a,b);

B. Real(a,b);

C. Readln(a,b);

D. Read(‘a,b’);

Câu 9: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x

A. Writeln(‘Nhap x = ’);

B. Writeln(x);

C. Readln(x);       

D. Read(‘X’);

Câu 10: Cho x là biến đã khai báo kiểu thực. Sau khi thực hiện hai câu lệnh sau :

X:= 10;

Writeln (x:7:2);

thì kết quả dạng nào sẽ xuất hiện trên màn hình trong những dạng kết quả sau ?

A. 10;

B. 10.00

C. 1.000000000000000E+001;

D. _ _ 10.00;

Xem thêm các bài Câu hỏi trắc nghiệm Tin học 11 chọn lọc, có đáp án khác:

Giới thiệu kênh Youtube VietJack

• 
  Hỏi bài tập trên ứng dụng, thầy cô VietJack trả lời miễn phí!

Đã có app VietJack trên điện thoại, giải bài tập SGK, SBT Soạn văn, Văn mẫu, Thi online, Bài giảng....miễn phí. Tải ngay ứng dụng trên Android và iOS.

Nhóm học tập facebook miễn phí cho teen 2k5: fb.com/groups/hoctap2k5/

Nếu thấy hay, hãy động viên và chia sẻ nhé! Các bình luận không phù hợp với nội quy bình luận trang web sẽ bị cấm bình luận vĩnh viễn.