Question

câu 1 :sử dụng cấu trúc rẽ nhánh dạng đủ để khẳng định a,b,c là ba cạnh của tam giác

câu 2 viết chương trình pascal để tính diện tích hình tam giác có cạnh đáy là a ,chiều cao là h

Answer 1

Câu 1:
var a,b,c:extended;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
if (b+c>a) and (a+c>b) and (a+b>c) then
writeln('YES')
else writeln('NO')
else writeln('NO');
end.

Câu 2:
var a,h:extended;
begin
read(a,h);
writeln((a*h)/2:0:2);
end.

Answer 2

Lời giải :

Câu 2 :

program hotrotinhoc ;

var a,h : integer ;

S : real ;

begin

write('nhap canh day a='); readln(a);

write('nhap canh day h='); readln(h);

S:=a*h/2 ;

write('Dien tich tam giac la',S);

readln

end.

Answer 3

Mấy bạn làm bài có readln ở cuối được nhưng đi thi đừng làm thế nha bởi vì hệ thống sẽ báo lỗi timeout đấy.

Các bạn có thể kiểm tra kết quả bằng Alt+F5