-Cấu trúc rẽ nhánh
+Bài 1: Nhập vào 1 số nguyên kiểm tra số đó là số âm, số dương hay số không?
+Bài 2:Nhập vào 2 số a, b in ra màn hình số lớn ?
+Bài 3: Kiểm tra 3 số a, b, c có thỏa mãn là 3 cạnh của tâm giác không?
+Bài 4: Nhập vào 1 số nguyên kiểm tra số nào là số lẻ và số nào là số chẵn?
-Cấu trúc tuần tự
+Bài 1: Tính tổng 2 số bất kì được nhập từ bàn phím
+Bài 2: Tính chu vi, diện tích hình tròn biết bán kính được nhập từ bàn phím
+Bài 2 Tính chu vi, diện tích hình chữ nhật biết chiều dài, chiều rộng được nhập từ bàn phím
Mn làm hộ mình với
Cấu trúc rẽ nhánh
Bài 1:
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
if n>0 then writeln(n,’ la so duong’)
else if n<0 then writeln(n,’ la so am’)
else writeln(n,’ la so khong’);
readln;
end.
Bài 2:
uses crt;
var a,b:real;
begin
clrscr;
write(‘Nhap a=’); readln(a);
write(‘Nhap b=’); readln(b);
if a>b then writeln(a:4:2,’ lon hon ‘,b:4:2)
else if a<b then writeln(b:4:2,’ lon hon ‘,a:4:2)
else writeln(a:4:2,’ bang ‘,b:4:2);
readln;
end.
Bài 3:
uses crt;
var a,b,c:real;
begin
clrscr;
write(‘Nhap a=’); readln(a);
write(‘Nhap b=’); readln(b);
write(‘Nhap c=’); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln(‘Day la ba canh trong mot tam giac’)
else writeln(‘Day khong la ba canh trong mot tam giac’);
end
else writeln(‘Day khong la ba canh trong mot tam giac’);
readln;
end.
Bài 4:
uses crt;
var a:integer;
begin
clrscr;
write(‘Nhap a=’); readln(a);
if a mod 2=0 then writeln(a,’ la so chan’)
else writeln(a,’ la so le’);
readln;
end.
Câu trúc tuần tự
Bài 1:
uses crt;
var a,b:real;
begin
clrscr;
write(‘Nhap a=’); readln(a);
write(‘Nhap b=’); readln(b);
writeln(‘Tong cua hai so la: ‘,a+b:4:2);
readln;
end.
Bài 2:
uses crt;
var r,dt,cv:real;
begin
clrscr;
repeat
write(‘Ban kinh=’); readln(r);
until r>0;
cv:=2*r*pi;
writeln(‘Chu vi=’,cv:4:2);
dt:=sqr(r)*pi;
writeln(‘Dien tich=’,dt:4:2);
readln;
end.
Bài 3:
uses crt;
var dai,rong,cv,dt:real;
begin
clrscr;
repeat
write(‘Chieu dai=’); readln(dai);
write(‘Chieu rong=’); readln(rong);
until (dai>0) and (rong>0) and (dai>=rong);
cv:=(dai+rong)*2;
writeln(‘Chu vi=’,cv:4:2);
dt:=dai*rong;
writeln(‘Dien tich=’,dt:4:2);
readln;
end.
Cấu trúc rẽ nhánh:
1/
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if n>0 then writeln(n,’ la so duong’)
else if n<0 then writeln(n,’ la so am’)
else writeln(n,’ la so khong’);
readln
end.
2/
uses crt;
var a,b:real;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
if a>b then writeln(a:4:2,’ lon hon ‘,b:4:2)
else if a<b then writeln(b:4:2,’ lon hon ‘,a:4:2)
else writeln(a:4:2,’ bang ‘,b:4:2);
readln
end.
3/
uses crt;
var a,b,c:real;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write (‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ la ba canh cua tam giac’)
else
writeln(a:4:2,’,’,b:4:2,’,’,c:4:2, ‘ khong phai la ba canh cua tam giac’);
readln
end.
4/
uses crt;
var a:integer;
begin
clrscr;
write(‘Nhap mot so: ‘); readln(a);
if a mod 2 = 0 then writeln(a,’ la so chan’)
else writeln(a,’ la so le’);
readln
end.
Cấu trúc tuần tự:
1/
uses crt;
var a,b:real;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
writeln(‘Tong cua hai so la: ‘,a+b:4:2);
readln
end.
2/
uses crt;
const pi=3.14;
var r,dt,cv:real;
begin
clrscr;
write(‘Nhap ban kinh: ‘); readln(r);
cv:=2*r*pi;
writeln(‘Chu vi la: ‘,cv:4:2);
dt:=sqr(r)*pi;
writeln(‘Dien tich la: ‘,dt:4:2);
readln
end.
3/
uses crt;
var dai,rong,cv,dt:real;
begin
clrscr;
write(‘Nhap chieu dai: ‘); readln(dai);
write(‘Nhap chieu rong: ‘); readln(rong);
cv:=(dai+rong)*2;
writeln(‘Chu vi la: ‘,cv:4:2);
dt:=dai*rong;
writeln(‘Dien tich la: ‘,dt:4:2);
readln
end.