1- Viết chương trình tính các biểu thức sau và in kết quả ra màn hình
a) 2-32+62
b) (1/2)+32
2- a) Viết chương trình tính diện tích hình chữ nhật và hình vuông.Biết giá trị của 2 cạnh hình chữ nhật và 1 cạnh hình vuông được nhập từ bàn phím
b) Từ câu a), em hãy thực hiện chương trình tính tổng 2 diện tích trên
3-Viết chương trình so sánh độ cân nặng của 2 bạn Nam và Nu biết số cân nặng của 2 bạn trên nhập từ bàn phím
4- Viết chương trình in ra màn hình tính tổng và tích của N số tự nhiên đầu tiên, biêt số N tự nhiên đầu tiên đươc nhâphj từ bàn phím
GIÚP VỚI Ạ
bai 1
Begin
writeln('2-3*3+6*6=',2-3*3+6*6);
writeln('(1/2)+3*3=',(1/2)+3*3);
Readln;
End.
Bai 2
Program bai2;
Var a,b,c,SV,SHCN:real;
Begin
writeln('canh hinh vuong la'); read(c);
SV:=c*c;
Writeln('Dien tich hinh vuong la',SV);
writeln(' chieu rong hinh chu nhat la'); Read(a);
writeln('chieu dai hinh chu nhat la'); read(b);
SHCN:=a*b;
writeln('dien tich hinh chu nhat la',SHCN);
readln
End.
câu 1:
uses crt;
begin
clrscr;
writeln('2-3^2+6^2=',2-sqr(3)+sqr(6));
writeln('1/2+3^2=',1/2+sqr(3):4:2);
readln;
end.
câu 2:
uses crt;
var a,cd,cr,sv,scn:integer;
begin
clrscr;
write('nhap canh hinh vuong:'); readln(a);
sv:=sqcrr(a);
if a>0 then writeln('dien tich hinh vuong la: ',s)
else writeln('vui long nhap so lon hon 0');
write('nhap chieu dai hinh chu nhat:'); readln(cd);
write('nhap chieu rong hinh chu nhat:'); readln(cr);
dt:=cd*cr;
if (cd>0) and (cr>0) and (cd>=cr) then writeln('dien tich hinh chu nhat la: ',dt)
else writeln('vui long nhap lai');
readln;
end.
câu 3:
uses crt;
var nam,nu:real;
begin
clrscr;
write('nhap can nang cua ban nam:'); readln(nam);
write('nhap can nang cua ban nu:'); readln(nu);
if nam>nu then writeln('ban nam nang hon')
else if nu>nam then writeln('ban nu nang hon')
else writeln('hai ban co can nang bang nhau');
readln;
end.
câu 4:
uses crt;
var n,i,t,s:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
s:=1;
for i:=0 to n-1 do
begin
t:=t+i;
s:=s*i;
end;
writeln('tong cua ',n,' so tu nhien dau tien la: ',t);
writeln('tich cua ',n,' so tu nhien dau tien la: ',s);
readln;
end.
