cho ba số a,b,c tìm min,max
Do Pascal sẽ hiểu điều kiện "kép" a>b>c mà bạn sử dụng như sau :
Lấy a>b nhận giá trị True hoặc False rồi đem so sánh với c. Vì True và False thuộc kiểu Boolean mà c lại thuộc kiểu real. Kết quả là phép so sánh không thể thực hiện nên báo lỗi là chuyện đương nhiên.
Hơn nữa chương trình này còn mắc lỗi ngữ nghĩa nghiêm trọng đó là không hề truyền giá trị cho các biến. Nếu không truyền giá trị cho biến, các biến a, b, c sẽ nhận vu vơ một giá trị nào đó ( thường là 0 ) rồi đem so sánh với nhau thì thôi rồi : Max = 0, Min = 0
Program tim_min_max;
uses crt;
var a,b,c,min,max:real;
begin
writeln('Nhap a,b,c');readln(a,b,c);
max:=a;min:=a;
if b>max then max:=b;
if c>max then max:=c;
if b<min then min:=b;
if c<min then min:=c;
writeln('so lon nhat trong 3 so la=',max:6:0);
writeln('so be nhat trong 3 so la=',min:6:0);
readln;
end.

Phần I : Viết các chương trình in ra dòng chữ , hình .
Code:
Bài 1 : Viết chương trình in ra dòng chữ "Chào các bạn" .

program Vd;
uses wincrt;
begin
write('Chào các bạn’);
end.(''Ctrl + F9'' để chạy bạn nhé)
Code:
Bài 2 : Viết chương trình in ra hình chữ nhật * * * * * * *
* *
* * * * * * *

program vd;
uses wincrt;
begin
writeln('* * * * * * *');
writeln('* *');
writeln('* *');
writeln('* * * * * * *');
end.(''Ctrl + F9'' để chạy bạn nhé)

Bài 3 : Viết chương trình in ra hình trái tim : ...
Code:
program vd;
uses wincrt;
begin
writeln(' ** ** ');
writeln(' * * * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' *');
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần II : Các bài tập lập trình tính đại số và tính chu vi , diện tích hình .

Bài 4 : Viết chương trình tính dãy số thập phân 1+1/2+1/3+1/4...+1/9
Code:
program vd;
uses wincrt;
begin
writeln('1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9=',1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 5 : Viết chương trình tính (10+2)^2/3+1
Code:
program vd;
uses wincrt;
begin
writeln('(10+2)^2/3+1=',(10+2)*(10+2)/3+1);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 6 : Viết chương trình tính (8^3-5^3):2^3+1
Code:
program vd;
uses wincrt;
begin
writeln('(8^3-5^3):2^3+1=',(8*8*8-5*5*5)/(2*2*2)+1);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 7 : Viết chương trình tính chu vi hình tròn có bán kính = 5
Code:
program vd;
uses wincrt;
var cv:real;
Const bk=5;
pi=3,14;
begin
cv:=bk*2*3,14;
writeln('Chu vi hình tròn có bán kính = 5 là',cv:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 8 : Viết chương trình tính diện tích hình tròn có bán kính = 10
Code:
program vd;
uses wincrt;
var dt:real;
const bk=10;
pi=3,14;
begin
dt:=bk*bk*3,14;
writeln('Dien tich hinh tròn có bán kính = 10 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 9 : Viết chương trình tích chu vi hình chữ nhật có cd = 5 , cr = 3
Code:
program vd;
uses wincrt;
var cv:real;
const cd=5;
cr=3;
begin
cv:=(cd+cr)*2;
writeln('Chu vi hình chữ nhật có cd = 5 , cr = 3 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 10 :Viết chượng trình tính diện tích hình chữ nhật có cd = 10 , cr = 5
Code:
program vd;
uses wincrt;
var dt:real;
const cd=10;
cr=5;
begin
dt:=cd*cr;
writeln('Diện tích hình chữ nhật có cd = 10 , cr = 5 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần III : Viết chương trình tính , số phải nhập từ bàn phím . Viết chương trình khai báo .

Bài 11 :Nhập cd , cr để tính diện tích hình chữ nhật
Code:
program vd;
uses wincrt;
var cd,cr,dt:real;
begin
writeln('Đây là chương trình tính diện tích hình chữ nhật');
writeln('Nhap cd=');readln(cd);
writeln('Nhap cr=');readln(cr);
dt:=cd*cr;
writeln('dt=',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 12 : Nhập bán kính từ bàn phím để tính diện hình tròn
Code:
program vd;
uses wincrt;
var bk,cv:real;
begin
writeln('Đây là chương trình tính chu vi hình tròn');
writeln('Nhập bk=');readln(bk);
dt:=bk*bk*3,14;
writeln('dt=',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 13 : Viết chương trình tính tiền điện với tiền điện = số kwh * 1,500 , số kwh nhập từ bàn phím .
Các bạn nên tự làm phép tính ở nhà kẻo gian lận :tp41:
Code:
program vd;
uses wincrt;
var tiendien,kwh:real;
begin
writeln('Đây là chương trình tính tiền điện');
writeln('Nhập kwh=');readln(kwh);
tiendien:=kwh*1500;
write('tiendien=',tiendien:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 14 : Nhập 2 số nguyên A , B tính tổng 2 số nguyên .
Code:
program vd;
uses wincrt;
var A,B,tổng:real;
begin
writeln('Đây là chương trình tính tổng 2 số nguyên A và B');
writeln('Nhập số A=');readln(A);
writeln('Nhập số B=');readln(B);
tổng:=A+B;
write('tổng=',tổng:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 15 : Nhập họ và tên , năm sinh in ra số tuổi
Code:
program vd;
uses wincrt;
var a,tuổi:integer;
b:string;
begin
writeln('HovaTen');readln(b);
writeln('Nhap Nam sinh');readln(a);
tuổi:=2011-a;
writeln('tuổi=',tuổi);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 16 : Viết chương trình tính điểm trung bình của Toán , Lý , Hóa
Code:
program bvd;
uses wincrt;
var Toán,Lý,Hóa,tb:real;
begin
writeln('Nhập điểm toán=');readln(Toán);
writeln('Nhập điểm lý=');readln(Lý);
writeln('Nhập điểm hóa=');readln(Hóa);
tb:=(Toán+Lý+Hóa)/3
write('Điểm trung bình của Toán , Lý , Hóa=',tb:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)

Bài 17 : Viết chương trình tính tổng bình phương 2 số nguyên , 2 số nguyển nhập từ bàn phím
Code:
program vd;
uses wincrt;
var songuyen1,songuyen2,tbp:real;
begin
writeln('Nhập số nguyên thứ nhất=');readln(songuyen1);
writeln('Nhập số nguyên thứ hai=');readln(songuyen2);
tbp:=songuyen1*songuyen1+songuyen2*songuyen2;
write('Tổng bình phương 2 số nguyên=',tbp:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Những dấu in đậm trên bạn có thể thay thế bằng 1 chữ cái như : A, B, C ... Khi cho chạy chương trình không gây anh hưởng chương trình tính .

Phần IV : Viết chương trình so sánh có chia hết hay không .


Bài 18 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 hay không .
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If N mod 2 = 0 then write('N chia hết cho 2');
If N mod 2 <> 0 then write('N không chia hết cho 2');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 19 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 và 3 hay không .
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If (N mod 2 = 0) and (N mod 3 = 0) then write('N chia hết cho 2 và 3');
If (N mod 2 <> 0) and (N mod 3 <> 0) then write('N không chia hết cho 2 và 3');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 20 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 , 4 và 5 hay không .
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If (N mod 2 = 0) and (N mod 4 = 0) and (N mod 5 = 0) then write('N chia hết cho 2 , 4 và 5');
If (N mod 2 <> 0) and (N mod 4 <> 0) and (N mod 5 <> 0) then write('N không chia hết cho 2 , 4 và 5');
end.(''Ctrl + F9'' để chạy bạn nhé)