Cấ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) then writeln ( ' hoc luc kem ' )
else if (a>=4)and(a<5) then writeln (' hoc luc yeu ')
else if (a>=5)and(a<6.5) then writeln (' hoc luc trung binh ')
else if (a>=6.5)and(a<8) then writeln (' hoc luc kha ')
else if (a>=8)and(a<9) then writeln (' hoc luc gioi ')
else if (a>=9)and(a<=10) then writeln (' hoc luc xuat sac ');
readln
end.


Bài 3. xác định số có giá trị lớn hơn trong hai số thực a,b
Nhập số thực thứ nhất 12.3
Nhập số thực thứ hai 3.7
Max(12.3 , 3.7)= 12.3
Bài làm :

program it_linh;
uses crt;
var a,b:real;
begin
clrscr;
writeln(' nhap hai so a va b : ');
readln(a,b);

if a>b 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 (aelse if (belse if (creadln
end.


Bµi 5 gi¶i vµ biÖn luËn ph­¬ng tr×nh bËc nhÊt : ax+b=0
NhËp a,b :1.5,3

X=-2
Bµi lµm :

program it_linh;
uses crt;
var a,b:real;
begin
writeln('nhap hai so a va b');
readln(a,b);
if a=0 then writeln(' phuong trinh vo nghiem hoac co vo so nghiem ')
else writeln(' phuong trinh co 1 nghiem x=',-b/a :9:0);
readln
end.
Bµi 6. gi¶i vµ biÖn luËn ph­¬ng tr×nh bËc 2 ax^2+bx+c=0
NhËp a,b,c :1 -3 2
Ph­¬ng tr×nh cã 2 nghiÖm ph©n biÖt x1=1 x2=2
Bµi lµm:
program it_linh;
uses crt;
var a,b,c,d:real;{d la den ta}
begin
clrscr;
writeln(' nhap he so a,b,c : ');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln(' phuong trinh vo nghiem ' )
else if d>0 then
writeln( ' phuong trinh co hai nghiem phan biet ','x1=',(-b+sqrt(d))/(2*a):9:0,',','x2=',(-bsqrt(d))/(2*a):9:0)
else if d=0 then writeln( ' phuong trinh co nghiem kep x1=x2=' , -b/(2*a):9:0);
readln

end.


Bµi 7 hiÓn thÞ mét sè tù nhiªn tõ 0  9 d­íi d¹ng ch÷.
NhËp 9
So 9 doc la chin
Bµi lµm

program it_linh;
uses crt;
var a:integer;
begin
writeln( ' nhap so can doc ten' );
readln(a);
if a=0 then writeln('day la so ' , a , ' doc la : khong')
else if a=1 then writeln('day la so ' , a , ' doc la : mot')
else if a=2 then writeln('day la so ' , a , ' doc la : hai')
else if a=3 then writeln('day la so ' , a , ' doc la : ba')
else if a=4 then writeln('day la so ' , a , ' doc la : bon')
else if a=5 then writeln('day la so ' , a , ' doc la : nam')
else if a=6 then writeln('day la so ' , a , ' doc la : sau')
else if a=7 then writeln('day la so ' , a , ' doc la : bay')
else if a=8 then writeln('day la so ' , a , ' doc la : tam')
else if a=9 then writeln('day la so ' , a , ' doc la : chin');
readln
end.


Bµi 8 nhËp ba c¹nh a,b,c kiÓm tra cã ph¶i tam gi¸c kh«ng nÕu cã tinh diÖn tÝch nªu râ c¸c
tr­êng hîp ®¹c biÖt

Bµi lµm:

program it_linh;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
writeln('nhap ba canh cua tam giac ');
readln(a,b,c);
p:=((a+b+c)/2);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
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 ')
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(x<1)or(x=1) then writeln('so tien phai tra la : ' ,t1:9:0)
else if (x>1)and(x<30)or(x=30) then writeln('so tien phai tra la : ' ,t2:9:0)
else if (x>30) 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(x<500)or(x=500) then writeln('tien phai tra la: ',t1:9:0)
else if (x>500)and(x<1000)or(x=1000) then writeln('tien phai tra la: ',t2:9:0)
else if (x>1000)and(x<1500)or(x=1500) then writeln('tien phai tra la: ',t3:9:0)
else if (x>1500)and(x<13450)or(x=13450) then writeln('tien phai tra la: ',t3:9:0)
else if (x>13450) then writeln('tien phai tra la: ',299000);
readln
end.