Trở về đầu
Phương pháp giảng dạy: Tạo tình huống gợi vấn đề dạy thủ tục str và val trong bài xâu ký tự string
Đề bài: Giải phương trình ax+b=0 (a ≠ 0)
Yêu cầu:(viết chương trình trên Free Pascal)
- Nhập vào a, b
- Nhập vào giá trị x (làm tròn đến 5 chữ số phần thập phân). Nếu x là nghiệm của phương trình thì báo: đúng đáp án. Ngược lại, báo sai đáp án.
Ví dụ:
a = 4, b = -20, x = 5. Đúng đáp án
a = 4, b = -20, x = 4. Sai đáp án
a = 3, b = -20, x = 6.66667. Đúng đáp án
a = 3, b = -20, x = 6.667. Sai đáp án
Mời các bạn download tại: Click here
uses crt;
var a, b, x, x2: real;
nghiem, dapanmau: string;
BEGIN
CLRSCR;
write('Nhap a = ');readln(a);
write('Nhap b = ');readln(b);
write('Nhap nghiem = ');readln(nghiem);
// nghiem theo quy tac do nguoi dung nhap
val(nghiem, x); // value
str(-b/a:0:5, dapanmau); // dapan theo quy tac // string
val(dapanmau, x2);
if x = x2 then writeln('Dung dap an')
else writeln('Sai dap an');
READLN;
END.