PPT Bài tập và thực hành 1

Một số chương trình hoàn chỉnh:... Ví dụ 1: Chương trình giải phương trình bậc 2 trường hợp có hai nghiệm... sử dụng sai thao tác với số thực ở đây là do delta âm nên hàm sqrt không th

TIẾT 9 + 10:

BÀI TẬP THỰC HÀNH 1

1 Một số chương trình hoàn chỉnh:

Ví dụ 1: Chương trình giải phương trình bậc

2 (trường hợp có hai nghiệm)

Program giai_ptb2;

Uses crt;

Var a, b, c, d, x1, x2: real;

Begin

Clrscr;

Write(’nhap 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);

Writeln(’x1 = ’,x1:6:2,’ x2 = ’,x2:6:2); Readln

End.

Chúng ta sẽ thử với các trường hợp cụ thể sau:

 Trường hợp 1: a = 1; b = 1; c = 2;

Khi chạy chương trình sẽ thấy thông báo lỗi: Ivanlid floating point operation (sử dụng sai thao tác với số thực)

ở đây là do delta âm nên hàm sqrt không thực hiện được.

 Trường hợp 2: a = 1; b = 2; c = 1;

Khi chạy chương trình cho ta kết quả: x1 = -1.00; x2 =

-1.00;

 Trường hợp 3: a = 1; b = -3; c = 2;

Khi chạy chương trình cho ta kết quả: x1 = 1.00; x2 =

-2.00;

Ví dụ 2: Viết chương trình nhập từ bàn phím 2 số nguyên a và b, tính và đưa ra màn hình tổng và tích của hai số đó.

Program tong_tich;

Var

a,b:integer;

Begin

write(‘nhap vao ba so nguyen:’); readln(a,b);

writeln(‘tong hai so la:’,a+b);

writeln(‘tich hai so la:’,a*b);

readln

End.

Chúng ta sẽ thử với các trường hợp cụ thể sau:

 Trường hợp 1: a = 3; b = 5; khi chạy chương trình ta được kết quả:

 Tong hai so la: 8

 Tich hai so la: 15

Ví dụ 3: Nhập vào 2 cạnh của một hình chữ nhật In ra màn hình diện tích và chu vi của nó.

Program hinh_chu_nhat;

Uses Crt;

Var

a,b,s,c: real;

Begin

Clrscr;

Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘ -‘); Write('Nhap chieu dai='); readln(a);

Write('Nhap chieu rong=');readln(b);

s:=a*b;

c:=(a+b)*2;

Writeln('Dien tich hinh chu nhat la:’,s:6:2);

Writeln('Chu vi hinh chu nhat:',c:6:2);

Readln;

End.

Ví dụ 4: Nhập vào bán kính của hình tròn In ra màn hình diện tích và chu vi của nó.

Program hinh_tron;

Uses Crt;

Var

r,dt,cv:real;

Begin

Clrscr;

Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln(' -'); Write ('Nhap ban kinh R=');readln(r);

dt:=pi*r*r;

cv:=2*pi*r;

Writeln('Dien tich hinh tron la:',dt:6:2);

Writeln('Chu vi hinh tron la:',cv:6:2);

Readln;

End.

THE END.