Ae chuyên tin cứu tôi với. Cảm ơn rất nhiều
1 : Viết chương trình giải phương trình bậc 2, có kiểm tra điều kiện của delta để đưa ra thông báo nghiệm phù hợp
2: Viết câu lệnh rẽ nhánh hiển thị ra màn hình thông báo giá trị của 4 biến a,b,c,d có thỏa mãn là 4 cạnh của 1 hình bình hành không ?
3: Viết câu lệnh rẽ nhánh hiển thị ra màn hình thông báo giá trị của 3 biến a,b,c có thỏa mãn là 3 cạnh của 1 hình tam giác hay không ?
1:
Uses CRT;
Var a,b,c,D,x,x1,x2: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC II: ');
Writeln('-------------------------------------------');
Write('Nhap he so a='); readln(a);
Write('Nhap he so b='); readln(b);
Write('Nhap he so c='); readln(c);
If a=0 then
If b=0 then
If c=0 then
Writeln('Phuong trinh co vo so nghiem')
Else Writeln('Phuong trinh vo nghiem')
Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)
Else
Begin
D:=b*b-4*a*c;
If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)
Else
If D<0 then Writeln('Phuong trinh vo nghiem')
Else
Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);
End;
End;
Readln;
End.
2:
uses crt;
var a,b,c,d,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if (a>0) and (b>0) and (c>0) and (d>0) then
begin
kt:=0;
if (a=b) and (c=d) then kt:=1;
if (a=c) and (b=d) then kt:=1;
if (a=d) and (b=c) then kt:=1;
if (b=c) and (a=d) then kt:=1;
if (b=d) and (a=c) then kt:=1;
if (c=d) and (a=b) then kt:=1;
if kt=0 then writeln('day khong la 4 canh trong mot hinh binh hanh')
else writeln('day la 4 canh trong mot hinh binh hanh');
end
else writeln('vui long nhap 4 canh lon hon 0');
readln;
end.
3:
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap lai');
readln;
end.
