Tổng số lượng số chẵn, số lẻ – Lê Quang Tuấn

program tongsochanle;
uses crt;
var a:array[1..250] of integer;
n,i,sc,sl:integer;
begin
clrscr;
write(‘Nhap so phan tu cua day, N = ‘); readln(n);
for i:=1 to n do
begin
write(‘So thu ‘,i,’ = ‘); readln(a[i]);
end;
sc:=0; sl:=0;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then sc:=sc+1 else
if a[1] mod 2 = 1 then sl:=sl+1;
end;
writeln(‘Tong so chan = ‘,sc,’ ; Tong so le = ‘,sl);
readln;
end.

Tìm Max, min và vị trí của chúng – Lê Quang Tuấn

program timmaxmin;
uses crt;
var N,i,max,cmax,min,cmin:integer;
a:array[1..250] of integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day so, N = ‘); readln(N);
for i:=1 to N do
begin
write(‘Phan tu thu ‘,i,’ = ‘);
readln(A[i]);
end;
max:=a[1]; cmax:=1; min:=a[1]; cmin:=1;
for i:=2 to N do
begin
if a[i]>max then
begin
Max:=a[i];
cmax:=i;
end;
if a[1]<min then
begin
min:=a[i];
cmin:=i;
end;
end;
writeln(‘Gia tri cua phan tu max: ‘,max);
writeln(‘Chi so cua phan tu max: ‘,cmax);
writeln(‘Gia tri cua phan tu min: ‘,min);
writeln(‘Chi sp cua phan tu min: ‘,cmin);
readln
end.

Hình tam giác-kim Ngân

khai báo độ dài cạnh a, canh b và cạnh c
begin
nhập vào từ bàn phím độ dài a,b.c
Nếu (a>0) và (b>0) và (c>0) thì ABC la 1 tam giác
Nếu A+B>C hoặc A+C>B thì ABC là một tam giác
Nếu căn A*A + B*B=C thì ABC là tam giác vuông
Nếu a=b hoặc a=c hoặc b=c thì abc là tam giác cân
Nếu a=b hoặc c=b thì abc là tam giác đều
Nếu a#b hoặc b#c thì abc là tam giác thường

program tam_giac;
uses crt;
var A,B,C:integer;
begin
clrscr;
write(‘tam giac ABC la ‘);readln(A,B,C);
if (A>0) and (B>0) and (C>0) then
if (A+B>C) or (A+C>B) or (B+C>A) then
if sqrt(A*A+B*B)=C then
writeln(‘tam giac ABC la tam giac vuong’);
if (A=B) or (A=C) or (B=C) then
writeln(‘tam giac ABC la tam giac can’);
if (A=C) and (B=C) then
writeln(‘tam giac ABC la tam giac deu’);
if (AB) and (BC) then
writeln(‘tam giac ABC la tam giac thuong’);
readln;
end.

Họ tên và lứa tuổi – Lê Quang Tuấn

Ý tưởng: Nhập họ tên và năm sinh, ta tìm tuổi bằng cách lấy năm 2012 – năm sinh vừa nhập. Xét tuổi thuộc lứa tuổi nào? lấy biến l là số tuổi.
Ta gán lần lược các sâu cho các biến:
ss là sơ sinh (0-1)
nd là nhi đồng(2-9)
tn là thiếu niên(10-15)
tn1 là thanh niên(16-32)
tn2 là trung niên(33-50)
ng là người già(trên 50 tuổi)
Xét l thuộc vào số tuổi nào?
Cho ra kết quả là tên và lứa tuổi.

Chương trình

program thongtin;
uses crt;
var hoten,ss,nd,tn,tn1,tn2,ng,l:string;
namsinh,tuoi:integer;
begin
clrscr;
write(‘Nhap ho va ten: ‘); readln(hoten);
write(‘Nhap nam sinh: ‘); readln(namsinh);
tuoi:=2012-namsinh;
ss:=’So sinh’;
nd:=’Nhi dong’;
tn:=’Thieu nien’;
tn1:=’Thanh nien’;
tn2:=’Trung nien’;
ng:=’Nguoi gia’;
if tuoi<=1 then l:=ss else
if (tuoi>=2)and(tuoi<=9) then l:=nd else
if (tuoi>=10)and(tuoi<=15) then l:=tn else
if (tuoi>=16)and(tuoi<=32) then l:=tn1 else
if (tuoi>=33)and(tuoi<=50) then l:=tn2 else
if tuoi>=50 then l:=ng;
writeln(‘Ban ‘,hoten,’ thuoc lua tuoi ‘,l);
readln
end.

oanh

program tentuoi;
uses crt;
const now=2012;
var ten:char;
nam,i:integer;
begin
clrscr;
writeln (‘nhap ten’); readln(ten);
writeln (‘nhap nam sinh’); readln(nam);
i:=now-nam;
write(‘tuoi la:’,i);
if i<1 then
write('ban la tre so sinh day');
readln;
if (i=2) and (i9) and (i15) and (i32) and (i50 then
write(‘gia roi’);
readln;;
end.

nguyễn huỳnh như.

program tuoi;

uses crt;

const n=2012;

var ten: char;

    i:integer;

    sinh:integer;

begin

clrscr;

       write(‘Nhap ten’); readln (ten);

       write(‘nam sinh la’); readln (sinh);

 

       i:=n-sinh;

 

       writeln(‘tuoi la’,i);

 

if (i<1) then write(‘nhom tuoi so sinh’);

if (i>2)and (i<9) then write (‘nhom tuoi nhi dong’);

if (i>9)and(i<15) then write (‘nhom tuoi thieu nien’);

if (i>15)and(i<32) then write (‘nhom tuoi thanh thieu nien’);

if (i>33)and(i<50) then write (‘nhom tuoi trung nien’);

if i>50 then write (‘gia roi’);

readln

end.

3 cạnh của tam giác – Lê Quang Tuấn

Ý tưởng: nhập 3 số thực rồi xét điều kiện xem có phải là 3 cạnh của tam giác hay không? Nhập 3 số từ thấp đến cao để có thể biết được cạnh cuối cùng dài nhất là cạnh huyền!
Điều kiện:
1. 3 cạnh của tam giác lớn hơn 0
2. Tổng 2 cạnh của tam giác lớn hơn cạnh còn lại
3. Tam giác có 3 cạnh bằng nhau là tam giác đều
4. Tam giác có 2 cạnh bằng nhau là tam giác cân
5. Tam giác có cạnh huyền lớn hơn 2 cạnh còn lại và căn của bình phương a cộng bình phương b bằng c (Pitago)
6. Tam giác có 3 cạnh khác nhau là tam giác thường.
Chương trình
program tamgiac;
uses crt;
var a,b,c:real;
begin
clrscr;
write(‘Nhap so do 3 canh tu thap den cao:  ‘); readln(a,b,c);
if (a>0)and(b>0)and(c>0) then
if (a+b>c)or(b+c>a)or(a+c>b) then
if (a=b)and(b=c) then writeln(‘Tam giac ABC la tam giac deu!’) else
if (c>a)and(c>b) then
if sqrt(a*a+b*b)=c then writeln(‘Tam giac ABC la tam giac vuong!’) else
if (a=b)or(b=c)or(a=c) then writeln(‘Tam giac ABC la tam giac can!’) else
if (a<>b)and(b<>c) then writeln(‘Tam giac ABC la tam giac thuong!’);
readln
end.

Bài tập về vòng lặp (nâng cao)

Bài 1:
Nhập 3 số thực, kiểm tra xem chúng có phải là độ dài của 3 cạnh tam giác không, nếu có thì nó là tam giác gì (tam giác cân, tam giác đều, tam giác vuông)?
Bài 2:
Nhập họ tên và năm sinh của người và cho biết người này thuộc lứa tuổi nào: sơ sinh, nhi đồng, thiếu niên, thanh niên, trung niên, người lớn tuổi. Biết rằng:
+ Sơ sinh tuổi từ 0->01
+ Nhi đồng tuổi từ 2->;9
+ Thiếu niên tuổi từ 10->15
+ Thanh niên tuổi 16->32
+ Trung niên tuổi từ 33 -> 50
+ Người già tuổi từ 50 trở lên
Bài 3: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Bài 4: Viết chương trình nhập 2 số tự nhiên M, N và thông báo đúng nếu M, N cùng tính chẵn lẻ, trong trường hợp ngược lại thì thông báo sai.

Thời gian hoàn thành: Ngày 18/10/2012

Tính giai thừa – Lê Quang Tuấn

program giaithua;
uses crt;
var gt,n,i:integer;
begin
clrscr;
write(‘Nhap so giai thua: ‘); readln(n);
gt:=1;
for i:=n downto 1 do gt:=gt*i;
writeln(n,’! = ‘,gt);
readln;
end.

Bài tập ngày 10/10

Bài 1: Tính n!