Cấu trúc rẽ nhánh code đi kèm

Cấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèmCấu trúc rẽ nhánh code đi kèm

Häc Sinh : TrÇn Quang Linh Líp A13 Phæ Th«ng TriÖu S¬n C. CÊu Tróc RÏ Nh¸nh Bµi 1 x¸c ®Þnh xem mét sè nguyªn lµ ch½n hay lÎ . NhËp sè nguyªn n :8 8 lµ mét sè ch½n Bµi lµm : program it_linh; uses crt; var a,kq:integer; begin clrscr; writeln(' nhap so nguyen can xac dinh : '); readln(a); if a mod 2=0 then writeln('day la so chan') else writeln('day la so le'); readln end. Bµi 2. x¸c ®Þnh häc lùc vµo ®iÓm trung b×nh cña sinh viªn, biÕt : ®iÓm trung b×nh [0,4) [4,5) [5,6.5) [6.5,8) [8,9) [9,10] häc lùc kÐm yÕu trung b×nh kh¸ giái xuÊt s¾c nhËp ®iÓm trung b×nh :8 häc lùc cña sinh viªn nµy lµ giái Bµi lµm : program it; uses crt; var a:real; begin clrscr; writeln(' nhap diem trung binh cua sinh vien : '); readln(a); if (a>=0)and(a=4)and(a=5)and(a=6.5)and(a=8)and(a=9)and(ab then writeln('so lon nhat la :',a:9:2 ) else writeln('so lan nhat la :', b:9:2 ); readln end. Bµi 4 x¸c ®Þnh sè lín nhÊt vµ nhá nhÊt trong ba sè nguyªn a,b,c NhËp sè thø nhÊt 2 NhËp sè thø hai 5 NhËp sè thø ba 4 Min(2,5,4)=2 Max(2,5,4)=5 Bµi lµm : program it_linh; uses crt; var a,b,c:integer; begin writeln('nhap ba so a,b,c:'); readln(a,b,c); if (a>b) and (a>c) then writeln('so lon nhat la ', a) else if (b>a) and (b>c) then writeln('so lon nhat la ', b) else if (c>a) and (c>b) then writeln('so lon nhat la ', c); if (a0) then writeln('day la tam giac ') else writeln ('khong phai tam giac'); if (a=b)and(a=c)and(a>0)and(b>0)and(c>0) then writeln('day la tam giac deu co dien tich la : ',s:9:2) else if (a=b)or(b=c)or(a=c)and(a>0)and(b>0)and(c>0) then writeln('day la tam giac can co dien tich la : ',s:9:2) else if (a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=a*a+b*b)and(a=b)or(b=c)or(a=c)and(a>0)and(b>0)and (c>0) then writeln('day la tam giac vuong can co dien tich la : ',s:9:2) else if (a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=a*a+b*b)and(a>0)and(b>0)and(c>0) then writeln('day la tam giac vuong co dien tich la : ',s:9:2) else if (a+b>c)and(b+c>a)and(a+c>b)and(a>0)and(b>0)and(c>0) then writeln('day la tam giac binh thuong co dien tich la : ',s:9:2); readln end. Bµi 9. X¸c ®Þnh sè lín nhÊt cña 1 sè nguyªn gåm 3 ch÷ sè . Bµi lµm: program it_linh; uses crt; var a,v,c,n:longint; b:real; begin clrscr; writeln('nhap so co ba chu so khac nhau :'); readln(n); a:=n div 100; c:=n mod 10; v:=n-a*100-c; b:=v/10; if (a>b)and(a>c) then writeln('chu so lan nhat la : ',a) else if (b>a)and(b>c) then writeln('chu so lan nhat la : ',b:9:0) else if (c>a)and(c>b) then writeln('chu so lan nhat la : ',c); readln end. Bµi 10 tÝnh tæng c¸c ch÷ sè cña mét sè nguyªn gåm ba ch÷ sè. Bµi lµm : program it_linh; uses crt; var a,v,c,n,g:longint; b,m:real; begin clrscr; writeln('nhap so co ba chu so :'); readln(n); a:=n div 100; c:=n mod 10; v:=n-a*100-c; b:=v/10; g:=a+c; m:=b+g; writeln('tong cac chu so la:',m:9:0); readln end. Bµi 11: x¸c ®Þnh sè ngµy cña 1 th¸ng . Bai lµm: program it_linh; uses crt; var a,b:integer; begin clrscr; writeln(' nhap thang va nam '); readln(a,b); if (a=1)or(a=3)or(a=5)or(a=7)or(a=8)or(a=10)or(a=12) then writeln(' nam ', b ,' thang ', a ,' co 31 ngay ') else if (a=4)or(a=6)or(a=9)or(a=11) then writeln(' nam ', b ,' thang ', a ,' co 30 ngay ') else if (a=2)and(b mod 4=0) then writeln(' nam ', b ,' thang ', a ,' co 29 ngay ') else if (a=2)and(b mod 400=0) then writeln(' nam ', b ,' thang ', a ,' co 29 ngay ') else if (a=2) then writeln(' nam ', b ,' thang ', a ,' co 28 ngay '); readln end. Bµi 12 tÝnh tiÒn cña taxi 1km ®Çu tiÒn lµ 13000®,mçi km tiÕp theo th× 12000® nÕu lín h¬n 30km th× mçi km tr¶ thªm 11000®. Bµi lµm: program it_linh; uses crt; var x,t1,t2,t3:real; begin clrscr; writeln(' nhap so km ma ban da di taxi '); readln(x); t1:=x*13000; t2:=13000+(x-1)*12000; t3:=13000+29*12000+(x-30)*11000; if (x>0)and(x1)and(x30) then writeln('so tien phai tra la : ' ,t3:9:0); readln end. Bµi 13. x¸c ®Þnh h×nh ch÷ nhËt ®øng n»m c¸c tr­êng hîp ®Æc biÖt. Bµi lµm: program it_linh; uses crt; var a,b:integer; begin clrscr; writeln('nhap chieu dai va chieu rong :'); readln(a,b); if a=b then writeln('day la hinh vuong ') else if a>b then writeln('day la hinh chu nhat nam') else writeln('day la hinh chu nhat dung'); readln end. Bµi 14. tÝnh c­íc sö dông ASDL trong mét th¸ng khi biÕt dung l­îng sö dông l­u l­îng Dung l­îng 500 MB ®Çu 500MB tiÕp 500MB tiÕp C¸c MB tiÕp theo Gi¸ 1MB 50® 40® 30® 20® Bµi lµm: program it_linh; uses crt; var x,t1,t2,t3,t4:real; begin clrscr; writeln('nhap luu luong ma ban da dung '); readln(x); t1:=x*50; t2:=50*500+(x-500)*40; t3:=50*500+40*500+(x-1000)*30; t4:=50*500+40*500+30*500+20*(x-1500); if (x>0)and(x500)and(x1000)and(x1500)and(x13450) then writeln('tien phai tra la: ',299000); readln end.