Question

Viết chương trình tính diện tích tam giác với độ dài cạnh và chiều cao tương ứng được nhập từ bàn phím.

Viết chương trình nhập vào 3 số a, b, c. Tìm số lớn nhất, số bé nhất trong ba số

Answer 1

Bài 1 :

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

Bài 2 :

var a,b,c,i:integer;

MX,MN:real;

begin

write('nhap a'); readln(a);

write('nhap b'); readln(b);

write('nhap c'); readln(c);

MX:=a; MN:=a;

if MX<b then MX:=b;

if MX<c then MX:=c;

if MN>b then MN:=b;

if MN>c then MN:=c;

writeln('Min=',MN);

writeln('Max=',MX);

readln;

end.