Ví dụ 3 trang 33 (Tin học 11)

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.

» Ví dụ 3 trang 23 (Tin học 11)
» Tổng hợp những đoạn mã hay cho web + forum + blog
» IV. Ví dụ trang 15 ( Tin học 11)
» Ví dụ trang 17 ( Tin học 11)
» Ví dụ 2 trang 23 (Tin học 11)