Đây là một số bài tập mà thầy Tú đã ra.
Mình thử làm và post lên.
Mọi người cùng coi có lỗi chi thì fix cho mình.
Tks.


Bai 1:

program bai1;
var a,b: real;
begin
write('nhap a,b');
readln(a,b);
If a=0 then
begin
if b=0 then writeln('phuong trinh vo so nghiem')
else writeln('phuong trinh vo nghiem');
end;
else
begin
if b=0 then writeln('phuong trinh co 1 nghiem x=0')
else
begin
x:=-b/a;
writeln('phuong trinh co 1 nghiem',x);
end;
end;
Readln;
End.

Bai 2:

Chuong trinh 1:

program bai2_1;
var a,b,c,d,x: Real;
begin
write('nhap a,b,c');
Readln;
d:=b*b-4*a*c;
if d=0 then
begin
x:=b/2a;
writeln('ft co nghiem kep',x:10:2);
end;
Readln;
End.

Chuong trinh 2:

program bai2_2;
var a,b,c,d,x,x1,x2: Real;
begin
write('nhap a,b,c');
if a=0 then
begin
If b=0 then
begin
if c=0 then writeln('phuong trinh vo so nghiem')
else writeln('phuong trinh vo nghiem');
end;
else
begin
if c=0 then writeln('phuong trinh co 1 nghiem x=0')
else
begin
x:=-c/b;
writeln('phuong trinh co 1 nghiem',x);
end;
end;
else
begin
d:=b*b-4*a*c;
if d<0 then writeln('phuong trinh vo nghiem')
else
begin
x1:=(-b-sqrt(d)/(2*a);
x2:=-b/a-x1;
writeln('phuong trinh co nghiem la',x1:8:3,'va',x2:8:3);
end;
Readln;
End.

phải ghi đề vô nữa chơ HiếuTrang

over!

Đáng lẽ có nguyên bài nhưng lúc đó mới làm đựơc 2 bài.

Mình đang onl ở quán nét,

Hôm nào rảnh mình sẽ up cho các bạn tất cả 11 bài.

Mình thầy đề TIn bên A6 rất hay và bài rất đa dạng, tận 17 bài thì phải.

Bên mình chỉ có 11, chắc thầy TÚ nghĩ mình cũng ko làm nên ra ít hơn !!!

kỳ II!