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

[Hi HMF]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề 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.

 

[Thủy Ling]

Đề 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.

viết giữa begin và end
dùng if
if (100<a) and (a>200) and (100<b) and (b>200) and .......
em ko biết có cách nào nhanh hơn ko,thấy dùng and cũng hơi bị dài dòng

 

[ĐứcNhật!]

Đề 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.

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 á

 

[Thủy Ling]

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 á

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?

 

[ĐứcNhật!]

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?

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

 

[Thủy Ling]

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

đoạn If (100<a<200) ......em nghĩ nên dùng and tại nếu dùng or thì ko đúng yêu cầu đề với lại nó sẽ xét sai nữa

 

[trà nguyễn hữu nghĩa]

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 á

vừa nhìn là thấy đoạn 100a<a<200 là bị lỗi nha. với lại e phải dùng and chứ không dùng or
đoạn if phải là:

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

 

[Hi HMF]

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 á

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

 

[ka1412]

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

Vì bài nó phải thế thôi bạn. Có phải muốn ít là được đâu =)

 

[namnam06]

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 á

Chỗ a,B,C, nên dùng and vì là đk cho cả ba.