TriMichael King Of ROck
Tổng số bài gửi : 1798 Điểm : 4268 Join date : 13/02/2009 Age : 30 Đến từ : Tp Hồ Chí Minh
Hoạt động Kinh nghiệm: (2/2)
| Tiêu đề: Ví dụ 3 trang 33 (Tin học 11) Mon Oct 26, 2009 11:50 pm | |
| Đề : Thầy bắt chúng ta tính delta nhưng trong đó phải sử dụng điều kiện IF .. THEN thì các bạn sẽ viết như sau : - Code:
-
program giai_ptb2; uses crt; var a,b,c,delta,x1,x2: real; {nho khai bao delta va x1, x2} begin clrscr; write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); write('Nhap c: '); readln(c); delta:=(b*b)-(4*a*c); {cong thuc tinh delta} if delta<0 then writeln('Phuong trinh vo nghiem') {dieu kien delta be' hon 0} else if delta=0 then writeln('Phuong trinh co 2 nghiem kep: ',-b/2*a*c) {dieu kien delta=0} else {luc nay phuong trinh se co 2 nghiem phan biet} begin x1:=(-b-sqrt(delta))/(2*a); {nghiem x1} x2:=(-b+sqrt(delta))/(2*a); {nghiem x2} writeln('Phuong trinh co 2 nghiem phan biet'); writeln('Nghiem thu nhat la: ',x1); writeln('Nghiem thu hai la: ',x2);
end; {ket thuc nghiem x1, x2} readln end. {ket thuc chuong trinh}
*Lưu ý : Những chữ trong dấu "{ .... }" chỉ mang tính chú thích thêm cho chương trình, khi bạn copy về và chạy trong pascal thì cũng không ảnh hưỡng đến chương trinh. | |
|