Bài 9: Cấu trúc rẽ nhánh

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Trung Kiên

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 ?

Nguyễn Lê Phước Thịnh
14 tháng 12 2019 lúc 9:28

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Hàn Nhật Hạ
Xem chi tiết
Nguyễn Diệu Linh
Xem chi tiết
Nga Diệu
Xem chi tiết
PHẠM PHUONG HOÀNG NGHI
Xem chi tiết
Trần Thị Trà My
Xem chi tiết
Nguyễn Quyên
Xem chi tiết
Thảo Linhh
Xem chi tiết
Tin Tức 24H
Xem chi tiết
Hoàng Trang
Xem chi tiết