Tin học Tin lớp 8: Viết chương trình

[Park Jiyeon]

[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.

Trước tiên mk xin cảm ơn những bn lm hộ mk bài tập nhoa + 1 like
Thứ 2 đề bài là :Viết chương trình nhập vào 3 số dương a,b,c từ bàn phím kiểm tra xem nó có là độ dài 3 cạnh của tam giác ko ? Nếu không thì in ra màn hình ko phải l;à 3 cạnh tam giác . Ngược lại thì tính và in diện tích, chu vi của tam giác đó.

 

[vuha2991@gmail.com]

Trước tiên mk xin cảm ơn những bn lm hộ mk bài tập nhoa + 1 like
Thứ 2 đề bài là :Viết chương trình nhập vào 3 số dương a,b,c từ bàn phím kiểm tra xem nó có là độ dài 3 cạnh của tam giác ko ? Nếu không thì in ra màn hình ko phải l;à 3 cạnh tam giác . Ngược lại thì tính và in diện tích, chu vi của tam giác đó.

Mình không chắc nữa nha
Program Tam_giac;
Var a,b,c,cv,dt,p:real;
Begin
write(' Nhap a=');readln(a);
write(' Nhap b=');readln(b);
write(' Nhap c=');readln(c);
if (a+b)<=c or (a+c)<=b or (b+c)>a then
write(' A,b,c khong phai 3 canh tam giac')
else
cv:=a+b+c;
p:=cv/2;
dt:sprt((P*(P-a)*(P-b)*(P-c));
write(' Dien tich tam giac',Dt:7:3);
write(' Chu vi tam giac:', Cv:7:3);
readln;
End.

 

[DS Trang]

Trước tiên mk xin cảm ơn những bn lm hộ mk bài tập nhoa + 1 like
Thứ 2 đề bài là :Viết chương trình nhập vào 3 số dương a,b,c từ bàn phím kiểm tra xem nó có là độ dài 3 cạnh của tam giác ko ? Nếu không thì in ra màn hình ko phải l;à 3 cạnh tam giác . Ngược lại thì tính và in diện tích, chu vi của tam giác đó.

Var: a, b, c: real;
Begin
Write ( ' nhap 3 so: '); Readln( a,b, c);
If a+b> c then writeln( la 3 canh cua tam giac) else if a+c>b then writeln( la 3 canh cua tam giac) else if c+b>a then writeln ( la 3 canh cua tam giac) else if a+b<c then writeln( ko phải 3 cạnh của tam giac);
Readln;
End.

 

[ka1412]

Mình sửa lại cả 2 bài trên
uses crt;
var kt:boolean;
a,b,c:integer;
s,p:real;
begin
clrscr;
write('Nhap a:');readln(a);
write('Nhap b:');readln(b);
write('Nhap c:');readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then kt:=true else kt:=false;
if kt=true then writeln('3 so tao thanh 1 tam giac') else
writeln('3 so khong tao thanh 1 tam giac');
if kt=true then
begin
p:=((a+b+c)/2);
s:=sqrt((p-a)*(p-b)*(p-c));
writeln('Chu vi cua tam giac la:',p*2);
write('Dien tich tam giac la:',s:6:8);
end;
readln
end.