Tin học 100<a,b,c<200

Hi HMF said:

Đề bài: Viết chương trình vs 3 số nguyên a,b,c sao cho 100<a,b,c<200. Tính và đưa ra màn hình:
- Diện tích tam giác vs a,b,c là độ dài 3 cạnh (Kết quả lấy 3 chữ số thập phân)

:V Cho mk hỏi là điều kiện của 3 số a,b,c viết ở phần nào và như thế nào?
Thanks.

Bấm để xem đầy đủ nội dung ...

Hi HMF said:

Đề bài: Viết chương trình vs 3 số nguyên a,b,c sao cho 100<a,b,c<200. Tính và đưa ra màn hình:
- Diện tích tam giác vs a,b,c là độ dài 3 cạnh (Kết quả lấy 3 chữ số thập phân)

:V Cho mk hỏi là điều kiện của 3 số a,b,c viết ở phần nào và như thế nào?
Thanks.

Bấm để xem đầy đủ nội dung ...

Program Dien_tich_tam_giac;
Uses crt;
Var a,b,c,s,p: integer;
Begin
clrscr;
Write('Nhap do dai ba canh a,b,c: '); readln(a,b,c);
If (100<a<200) or (100<b<200) or (100<c<200) then
Begin
If (a+b)>c and (a+c)>b and (b+c)>a then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich hinh tam giac la: ',s:6:2);
End
Else Write('Do khong phai la do dai 3 canh cua tam giac');
End
Else write('Do dai ba canh khong phu hop voi yeu cau cua de');
Readln
End.

Đức Nhật said:

Mã:

Program Dien_tich_tam_giac;
Uses crt;
Var a,b,c,s,p: integer;
Begin
clrscr;
Write('Nhap do dai ba canh a,b,c: '); readln(a,b,c);
If (100<a<200) or (100<b<200) or (100<c<200) then
Write(' [COLOR=#ff0000]Chieu dai cac canh khong phu hop voi de bai[/COLOR] ')
Else
Begin
If (a+b)>c and (a+c)>b and (b+c)>a then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich hinh tam giac la: ',s:6:2);
End
Else Write('Do khong phai la do dai 3 canh cua tam giac');
End;
Readln
End.

Em không chắc!
@trà nguyễn hữu nghĩa anh sửa giúp em :< Em thấy nó sao sao á

Bấm để xem đầy đủ nội dung ...

bé nương nương said:

dạ nếu 100<a,b,c<200 là phù hợp với đề mà sao lại in thành ko phù hợp?

Bấm để xem đầy đủ nội dung ...

Đức Nhật said:

Mình mới sửa, bạn xem lại giúp mình

Bấm để xem đầy đủ nội dung ...

Đức Nhật said:

Mã:

Program Dien_tich_tam_giac;
Uses crt;
Var a,b,c,s,p: integer;
Begin
clrscr;
Write('Nhap do dai ba canh a,b,c: '); readln(a,b,c);
If (100<a<200) or (100<b<200) or (100<c<200) then
Begin
If (a+b)>c and (a+c)>b and (b+c)>a then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich hinh tam giac la: ',s:6:2);
End
Else Write('Do khong phai la do dai 3 canh cua tam giac');
End
Else write('Do dai ba canh khong phu hop voi yeu cau cua de');
Readln
End.

Em không chắc!
@trà nguyễn hữu nghĩa anh sửa giúp em :< Em thấy nó sao sao á

Bấm để xem đầy đủ nội dung ...

if ((a and b and c) > 100 ) and ((a and b and c) < 200) then

Hi HMF said:

Sao begin vs end lắm thế? -.-

Bấm để xem đầy đủ nội dung ...

Đức Nhật said:

Mã:

Program Dien_tich_tam_giac;
Uses crt;
Var a,b,c,s,p: integer;
Begin
clrscr;
Write('Nhap do dai ba canh a,b,c: '); readln(a,b,c);
If (100<a<200) or (100<b<200) or (100<c<200) then
Begin
If (a+b)>c and (a+c)>b and (b+c)>a then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich hinh tam giac la: ',s:6:2);
End
Else Write('Do khong phai la do dai 3 canh cua tam giac');
End
Else write('Do dai ba canh khong phu hop voi yeu cau cua de');
Readln
End.

Em không chắc!
@trà nguyễn hữu nghĩa anh sửa giúp em :< Em thấy nó sao sao á

Bấm để xem đầy đủ nội dung ...