câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông
s : =a*a; p:=4*a;
câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn phím
Câu 1: (hình 1)
Câu 2: (hình 2)
Câu 3: (hình 3)
câu 1
uses crt;
var a,s,p:real;
begin
clrscr;
write(‘Nhap canh hv: ‘);readln(a);
s:=a*a;
p:=4*a;
writeln(‘Dien tich: ‘,s);
writeln(‘Chu vi: ‘,p);
readln;
end.
câu 2
uses crt;
a,b:integer;
begin
clrscr;
write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
writeln(‘Tong: ‘,a+b);
writeln(‘Tich: ‘,a*b);
writeln(‘Hieu: ‘,a-b);
readln
end.
câu 3
uses crt;
var a,b,c:integer;
begin
clrscr;
write(‘Nhap canh a: ‘);readln(a);
write(‘Nhap canh b: ‘);readln(b);
write(‘Nhap canh c: ‘);readln(c);
if (a+b>c) and (b+c>a) and(a+c>b)
then writeln(‘Day la ba canh tam giac’) else writeln(‘Day khong phai ba canh tam giac’);
readln
end.