Bầu trời của tôi: pascal

Pascal Study 1.00: Học Pascal từ cơ bản đến nâng cao

Xin giới thiệu với các bạn phần mềm học Pascal từ cơ bản đến nâng cao chỉ với dung lượng 20MB. 
dowload <a href="http://www.mediafire.com/?mkq07nadkp48oaq" target="_blank">pascal study 1.00</a> 
Giao diện chính của chương trình như sau: 
 
Phần 1: Là nơi để bạn bước đầu làm quen với các kiểu dữ liệu, khai báo hằng, biến và các câu lệnh cơ bản, bạn cần xem kỹ phần này thì mới có thể làm được những bài tập ở phần 2. 
Phần 2: Bài tập ở rất nhiều dạng khác nhau, chẳng hạn câu lệnh If… then… else; chương trình con; xâu kí tự (string); nếu muốn biết mình đã làm đúng hay sai thì ở phía dưới mỗi câu đã có phần gợi ý (hình quả cầu màu xanh) giúp bạn dễ phát hiện lỗi của mình. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiz1KW6ZH4K-yTCuUQx5U3pzIHAAzFW9EiMe4FNyIQgyrcfFSKrtLzlTb57Eopqq5jHaMbcZQ06yTc1TCsk_mbTpU9N1-ctQQL_WBxWUjIOjtzGwu0i7fCoISkG6mm03chI8e842D07g841/s1600/12584234ed917vn8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="271" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiz1KW6ZH4K-yTCuUQx5U3pzIHAAzFW9EiMe4FNyIQgyrcfFSKrtLzlTb57Eopqq5jHaMbcZQ06yTc1TCsk_mbTpU9N1-ctQQL_WBxWUjIOjtzGwu0i7fCoISkG6mm03chI8e842D07g841/s400/12584234ed917vn8.jpg" width="368" /></a></div>
 
Phần 3: Nhiều trò chơi thú vị đã được lập trình sẵn như Tung hứng; Nhắm đích; Xếp hình; Tìm đường… 
Phần 4: Phụ lục nêu ra những danh từ riêng trong Pascal, bảng mã kí tự, những thủ tục và hàm, định hướng chương trình dịch… 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLPFGUamVf7lNBN3Uzt0S51qLwyRn0NvDUz9-pqNH7PN5EJJBcOxCKqxyPO1869w66IZi6Tw7aRaIQ7MRaxyYkY3BJEonyqZkeFlB27OoXZ5a6L05wGyEFSVcHzw2F-7zOxGxqqJaI752q/s1600/12584334eed6anu8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="305" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLPFGUamVf7lNBN3Uzt0S51qLwyRn0NvDUz9-pqNH7PN5EJJBcOxCKqxyPO1869w66IZi6Tw7aRaIQ7MRaxyYkY3BJEonyqZkeFlB27OoXZ5a6L05wGyEFSVcHzw2F-7zOxGxqqJaI752q/s400/12584334eed6anu8.jpg" width="379" /></a></div>
 
Ngoài ra trong phần mục lục của chương trình còn có thêm phần Từ điển tra cứu lỗi rất hay, bạn chỉ cần nhập lỗi mà chương trình Pascal hiển thị vào khung tra cứu thì kết quả sẽ hiện ra ngay (tuy nhiên cũng có một vài lỗi không có trong từ điển).

Pascal Study 1.00: Học Pascal từ cơ bản đến nâng cao

Xin giới thiệu với các bạn phần mềm học Pascal từ cơ bản đến nâng cao chỉ với dung lượng 20MB. dowload pascal study 1.00 Giao diện chính c...

Bài 5: Xâu ký tự (String) trong Pascal

Cách khai báo: 
 
Var: STRING[độ dài của xâu]; 
 
Xâu ký tự trong bộ nhớ nó chiếm số byte bằng số ký tự cực đại được khai báo cộng với byte đầu tiên chứa số ký tự hiện có của xâu. Độ dài tối đa của xâu ký tự là 255. 
 
- Cách nhập/xuất: Cách đọc hay viết kiểu STRING cũng tương tự như các kiểu dữ liệu khác, ta sử dụng các thủ tục READ, hoặc WRITE. 
Ví dụ: 
Readln(st); 
Writeln(st); 
 
- Truy cập từng phần tử của xâu ký tự: tương tự mảng 1 chiều: thông qua tên biến kiểu STRING và chỉ số của nó 
Ví dụ: 
St := 'Le Thanh Lam'; 
write(st[4]); 
-> Kết quả: cho ra chữ T. 
 
Các thao tác trên xâu ký tự: 
 
1/ Phép cộng xâu: 
Ví dụ: 
st1:=’Le’; st2:=’Thanh’; St=st1 + st2; 
-> KQ: ‘Le Thanh’ 
 
2/ Phép so sánh: 
Hai xâu ký tự có thể so sánh với nhau bằng các phép so sánh =, >, <… 
Nguyên tắc so sánh thực hiện như sau, chúng sẽ đem từng ký tự tương ứng với nhau để so sánh, xâu nào có ký tự có số thứ tự trong bảng mã ASCII lớn hơn thì xâu đó lớn hơn. 
Hai xâu ký tự được gọi là bằng nhau khi chúng hoàn toàn giống nhau (có độ dài như nhau). 
Ví dụ: ‘FILENAME’ = ’FILENAME ‘ 
 
3/ Các thủ tục và hàm chuẩn xử lý xâu ký tự 
a. Hàm length(st): cho độ dài thực của xâu ký tự 
ví dụ: st:=’le thanh’ thì LENGTH(st) cho bằng 8. 
 
b/ Thủ tục DELETE(st, pos, num): xóa num ký tự trong xâu st kể từ vị trí pos
Ví dụ: st= ‘FILENAME’ 
Delete(st,5,4) lúc đó st cho ra là ‘FILE’ 
 
c/ Thủ tục INSERT(obj, st, pos): Thủ tục cho kết quả bằng cách chèn xâu ký tự có tên là Obj vàoxâu st tại vị trí pos, những ký tự đứng sau pos sẽ được dời vềphía sau của xâu ký tự obj. 
 
Ví dụ: obj:= ‘Thanh ‘ 
st:=’Le Lam’; 
INSERT(obj,st,4) lúc đó st=’Le Thanh Lam’; 
 
d/ Thủ tục STR(value, st): Thủ tục này thực hiện việc chuyển đối giá trị kiểu số(value) sang dạng xâu ký tự và gán cho biến st. 
Ví dụ: n là một só nguyên có giá trị: n:=150; 
STR(n:5,st) sẽ cho kết quả xâu st là: st=’ 150’; 
 
e/ Thủ tục VAL(st, value,code) đối một xâu ký tự st sang dạng số và gán cho biến value, nếu biến đối thành công thì code sẽ nhận giá trị bằng 0. ngược lại thì cho giá trị khác không 
Ví dụ: VAL(‘123’,value,code) lúc này code sẽ nhận giá trị bằng 0 và value=123 
 
f/ Hàm COPY(st, pos, num): sao chép trong xâu st, num ký tự tại vị trí pos, 
 
Ví dụ: st=’Le Thanh Lam’ 
COPY(st,4,5) = ‘Thanh’; 
 
g/ Hàm CONCAT(s1,s2,…,sn): hàm cho ra 1 xâu mới bằng cách nối đuôi các xâu s1,s2,…,sn lại với nhau. 
Ví dụ: CONCAT(‘Le ’,’Thanh ‘, ‘Lam’) = ‘Le Thanh Lam’; 
 
h/ Hàm POS(st1,st2): hàm cho tavị trí tìm thấy đầu tiên của xâu s1 trong xâu s2. 
Ví dụ: POS(‘Lam’,‘Le Thanh Lam’) = 10;

Bài 5: Xâu ký tự (String) trong Pascal

Cách khai báo: Var: STRING[độ dài của xâu]; Xâu ký tự trong bộ nhớ nó chiếm số byte bằng số ký tự cực đại được khai báo cộng với byte đầ...

Bài 4: Mảng trong Pascal

1. Mảng 1 chiều: 
 
- Có thể hiểu nôm na: Mảng 1 chiều là dãy số hữu hạn. 
vd: nhiệt độ mỗi ngày trong tuần (tháng/năm), cấp số cộng, cấp số nhân... 
 
- Chỉ số của mảng: 
vd: Xét mảng: 10 20 30 5 6 7 
là một dãy các số tự nhiên bất kì có 6 phần tử mà 
phần tử thứ 1 là 10 
phần tử thứ 2 là 20 
phần tử thứ 3 là 30 
phần tử thứ 4 là 5 
phần tử thứ 5 là 6 
phần tử thứ 6 là 7 
 
Lưu ý! 
Xét dãy: Ti Suu Dan Mao Thin Ti Ngo Mui Than Dau Tuat Hoi cũng được coi là mảng 1 chiều, trong đó: 
Phần tử 1 là Ti 
 Phần tử 2 là Suu 
 Phần tử 3 là Dan 
 Phần tử 4 là Mao 
 Phần tử 5 là Thin 
 ... 
 
- Cách tham chiếu đến mảng: A[i] với i là chỉ số phân tử trong mảng. 
vd: Vẫn xét mảng 10 20 30 5 6 7 
A[1]=10; A[2]=20; A[3]=30; A[4]=50; A[5]=6; A[7]=7 
 
- Cách khai báo mảng: Có 2 cách khai báo: 
 
* Khai báo trực tiếp: Thường thì cách khai báo trực tiếp được dùng nhiều hơn vì nó ngắn gọn. 
 
var <t m="" n="" ng="">:array[kiểu chỉ số] of <ki n="" ph="" t="" u="">; 
 
vd: 
a:array[1..100] of integer; 
b,c:array[1..250] of integer; 
 
 * Khai báo gián tiếp: 
 
type <t ki="" m="" n="" ng="" u="">=array[kiểu phần tử] of <ki ch="" s="" u="">; 
var <t m="" n="" ng="">:<t ki="" m="" n="" ng="" u="">; 
 
vd: 
type mang=array[1..100] of integer; 
var a,b,c:mang; 
 
- Cách nhập/xuất mảng 1 chiều: 
</t></t></ki></t></ki></t> 
var a:array[1..100] of integer; 
 n,i:integer; 
begin 
 {Nhập số phần tử mảng} 
 writeln('Nhap so phan tu cua mang:'); readln(n); 
 {Nhập mảng} 
 for i:=1 to n do 
 begin 
 write('A[',i,']='); readln(A[i]); 
 end; 
 {Xuất mảng} 
 for i:=1 to n do 
 writeln(A[i]); 
end.

2. Mảng 2 chiều: 
 
- Khái niệm: Nếu mảng 1 chiều là dãy thì mảng 2 chiều là bảng các phần tử cùng kiểu (bảng các số). 
 
- Tham chiếu: Vì mảng 2 chiều là bảng nên sẽ cần chỉ số hàng và chỉ số cột: A[i,j] với i là chỉ số hàng, j là chỉ số cột. 
 
- Khai báo: Tương tự như mảng 1 chiều nhưng thêm chỉ số cột. 
 
- Cách nhập/xuất mảng 2 chiều: 
 
var A:array[1..50,1..50] of Integer; 
 i,j,N,Max,k,c,M:Integer; 
begin 
 write('So hang cot:');readln(N,M);Max:=0; 
 for i:=1 to N do 
 for j:=1 to M do 
 begin 
 write('A[',i,',',j,']=');readln(A[i,j]); 
 end; 
 for i:=1 to N do 
 begin 
 for j:=1 to M do 
 write(A[i,j]); 
 end; 
end.

Bài 4: Mảng trong Pascal

1. Mảng 1 chiều: - Có thể hiểu nôm na: Mảng 1 chiều là dãy số hữu hạn. vd: nhiệt độ mỗi ngày trong tuần (tháng/năm), cấp số cộng, cấp số ...

Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat)

1. Vòng lặp for 
 
- Đây là vòng lặp căn bản và được sử dụng nhiều nhất trong kiến thức phổ thông. Vòng lặp for dùng để lặp với số lần định trước, có cấu trúc như sau: 
 
for <bi m="m" n="n">:= <gi tr="tr" u="u"> to <gi cu="cu" i="i" tr="tr"> do <c l="l" nh="nh" u="u">; 
 
Dạng khác (giảm dần biến đếm của vòng lặp for): 
 
for <bi m="m" n="n">:= <gi cu="cu" i="i" tr="tr"> downto 1 do <c l="l" nh="nh" u="u">; 
 
vd: Tính tổng các số liên tiếp từ 1 đến 100 
 
</c></gi></bi></c></gi></gi></bi> 
program Tinh_tong; 
var i,S:integer; 
begin 
 S:=0; 
 for i:=1 to 100 do S:=S+1; 
 write('Tổng là:',S); 
 readln; 
end. 
2. Vòng lặp while 
 
- Cú pháp: 
 
while <điều kiện> do <c l="l" nh="nh" u="u"> 
 
- Câu lệnh sẽ được lặp lại nhiều lần cho đến khi nào điều kiện còn đúng (nếu điều kiện sai thì các lệnh này sẽ không thực hiện nữa). Đối với lệnh này điều kiện sẽ được kiểm tra trước khi thực hiện lệnh nên nên điều kiện sai thì không có lệnh nào được thực hiện. 
 
vd: Tính tổng các số liên tiếp từ 1 đến 100 
 
</c> 
var i: byte; 
 S: longint; 
begin 
 S:= 0; 
 i:= 1; 
 while i <= 100 do 
 begin 
 S:= S + i; 
 i:= i +1; 
 end; 
 write('Tong tu 1 den 100 la:',S); 
 readln; 
end. 
3. Vòng lặp repeat 
 
- Cú pháp: 
 
repeat 
<c l="l" nh="nh" u="u">; 
until <điều kiện>;</c> 
 
- Câu lệnh giữa repeat và until sẽ được lặp lại nhiều lần khi nào điều kiện sai, nếu điều kiện đúng thì ngưng (ngược với vòng lặp while). Đối với lệnh này điều kiện sẽ được kiểm tra sau khi thực hiện các lệnh giữa repeat và until nên ít nhất các lệnh sẽ được thực hiện trước 1 lần rồi mới kiểm tra điều kiện đúng hay sai (nếu sai thì thực hiện tiếp vòng lặp, đúng thì ngưng). 
 
vd: Tính tổng các số liên tiếp từ 1 đến 100 
 
var i,n: integer; 
 S: real; 
begin 
 S:=0; i:=1; 
 repeat 
 S:=S+i; i:=i+1; 
 until i>100; 
 writeln('Tong = ',S); 
 readln; 
end.

Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat)

1. Vòng lặp for - Đây là vòng lặp căn bản và được sử dụng nhiều nhất trong kiến thức phổ thông. Vòng lặp for dùng để lặp với số lần định t...

Bài 2: Câu lệnh điều kiện (If then)

1. Tính đúng hoặc sai của các điều kiện 
Khi kết quả kiểm tra là đúng, ta nói điều kiện được thỏa mãn, còn khi kết quả kiểm tra là sai, ta nói điều kiện không thỏa mãn. 
vd: Nếu x mod 2=0, thì x là số chẵn; ngược lại x là số lẻ. 
Nếu nhấn phím Enter, thì sẽ đưa con trỏ soạn thảo xuống dòng. 
2. Điều kiện và phép so sánh 
Các phép so sánh có vai trò rất quan trọng trong việc mô tả thuật toán và lập trình. Chúng thường được sử dụng để biểu diễn các điều kiện. 
vd: Tìm số lớn nhất: Nếu a > b, thì a là số lớn nhất; ngược lại b là số lớn nhất. 
3. Cấu trúc rẽ nhánh 
Cấu trúc rẽ nhánh được sử dụng để chỉ thị cho máy tính thực hiện các hoạt động khác nhau tùy theo một điều kiện cụ thể có được thỏa mãn hay không. Cấu trúc rẽ nhánh có 2 dạng: Dạng thiếu và dạng đầy đủ. vd. Nếu chăm chỉ học tập, An sẽ được mẹ mua cho một cái máy vi tính; (dạng thiếu). 
Nếu chăm chỉ học tập, An sẽ được mẹ mua cho một cái máy vi tính; ngược lại, An sẽ bị cô giáo phàn nàn và An sẽ không được mẹ mua cho một cái máy vi tính (dạng đủ).
4. Câu lệnh điều kiện 
* Trong Pascal, câu lệnh điều kiện được viết như sau: 
 
+ Dạng thiếu: 
 
If <điều kiện> then <c l="" nh="" u="">; 
 
vd: if (x mod 2)=0 then writeln(x,' la so chan'); 
 
+ Dạng đầy đủ: 
 
If <điều kiện> then <c 1="" l="" nh="" u=""> else <c 2="" l="" nh="" u="">; 
 
vd: if (x mod 2) =0 then writeln(x,' la so chan') 
 else writeln(x,' la so le');</c></c></c>

Bài 2: Câu lệnh điều kiện (If then)

1. Tính đúng hoặc sai của các điều kiện Khi kết quả kiểm tra là đúng, ta nói điều kiện được thỏa mãn, còn khi kết quả kiểm tra là sai, ta n...

Bài 1: Cấu trúc chương trình Pascal

Điều đầu tiên chúng ta quan tâm sẽ là cấu trúc của chương trình. Hầu như chương trình nào cũng đi theo quy tắc: 
 < phần khai báo> 
 < phần thân chương trình > 
Trong đó phần khai báo có thể có hoặc không. 
 Trước khi bắt đầu, chúng ta sẽ nhắc lại một số khái niệm cơ bản: 
- Khái niệm: 
* Tên: Mọi đối tượng đều phải có tên. Bao gồm tên dành riêng (program, ver, begin, end...) & tên chuẩn (integer, real...). 
 * Hằng: Là đại lượng có giá trị thay đổi. Người ta thường khai báo hằng khi phải lặp lại giá trị hằng nhiều lần. 
 * Biến: Là đại lượng lưu trữ giá trị, có thể thay đổi. 
- Write và Read: 
 
* Lệnh write giúp hiện một dòng chữ ra màn hình. Vd khi viết write('Hello word'); sẽ hiện ra màn hình chương trình dòng chữ Hello word. 
 * Read đọc giá trị được khi vào. Vd khi viêt read(a); (a là 1 biến) sẽ hiện ra màn hình vị trí nhập giá trị vào. 
- Phép toán: Ta có bảng sau: 
 
- Câu lệnh gán: <t bi="" n="">:=<t bi="" c="" n="" th="" u="">; 
Vd: Tong:=5; 
Có thể hiểu nôm na rằng sau câu lẹnh, giá trị của Tong là 5. 
 
</t></t> 
Có 2 loại chương trình, một là có chương trình con, 2 là không có chương trình con. Thực ra 2 loại này cũng tương tự như nhau. Nhưng loại có chương trình con sẽ gọi

1. Chương trình không có chương trình con:

Dưới đây là cụ thể. Lời chú giải từng phần được đặt trong (* *) hoặc { }

(* Phần khai báo dữ liệu *)
 Program ...; {Khai báo tên chương trình. Tên chương trình được đặt theo quy tắc đặt tên. Đây là phần khai báo không bắt buộc} 
 Const …; {Khai báo hằng: Sử dụng cho những giá trị hằng số xuất hiện nhiều lần trong chương trình} 
 Users ...; {Khai báo thư viện: Cung cấp các chương trình có sẵn} 
 Var …; {Khai báo biến} 
 (* Thân chương trình chính *) 
 Begin 
 … {Các lệnh được viết ở đây} 
 End.

Ví dụ: Chương trình tính diện tích hình tròn: 
 Program Dien_tich_HT; 
 const pi=3.14; 
 uses crt; 
 var R,S: Integer; 
 begin 
 clrscr; 
 writeln('Nhập bán kính:');readln(r); 
 S:=R*R*pi; 
 write('Dien tich hinh tron la: ',S:8:3,'m2'); 
 readln 
 end. 
Chú ý: 
- Lệnh clrscr; để xóa những gì đang có trên màn hình. Ở phần khai báo phải có uses crt; thì lệnh mới hoạt động. 
- Ngoài những lệnh khai báo trên ta còn có label (khai báo nhãn)... Tuy nhiên 4 lệnh khai báo trên là sử dụng nhiều nhất. 
2. Khai báo có chương trình con:

Bài 1: Cấu trúc chương trình Pascal

Điều đầu tiên chúng ta quan tâm sẽ là cấu trúc của chương trình. Hầu như chương trình nào cũng đi theo quy tắc: < phần khai báo> ...

Giáo trình Pascal căn bản

Bài 1: giới thiệu ngôn ngữ pascal và ví dụ đơn giản Bài 2: Khái niệm cơ bản của ngôn ngữ pascal Bài 3: Hằng số, biến số, biểu thức và câu ...

Turbo Pascal 7.0 with DOSBox

Miễn phí, Turbo Pascal và DOSBox đều là những phần mềm miễn phí. 
Tương thích với mọi Windows: XP, Vista, 7 cả 32 bit và 64 bit. 
Turbo Pascal 7.0 đã sửa lỗi Runtime Error 200. 
Nhỏ gọn nhưng đầy đủ để thực hiện các ví dụ và bài tập trong SGK tin học 11. 
Kèm theo thư viện tcvn để lập trình tiếng Việt mã TCVN3. 
Loại bỏ tình trạng CPU chiếm 100% khi chạy Turbo Pascal trên Windows 32 bit. 
 
Tải về <a href="http://www.fshare.vn/file/6OTJZ6TLWZ/" target="_blank"> Turbo Pascal 7.0 with DOSBox</a> 
 
* Hướng dẫn khắc phục lỗi không gõ được các phím \ : 
DOSBox tự cách bố trí bàn phím theo Windows tuy nhiên trên một số bàn phím cách bố trí các phím lại không như bình thường, đây là nguyên nhân dẫn đến việc một số máy tính không gõ được các phím nêu trên trong DOSBox. Bạn vào Start – > All Programs -> Turbo Pascal 7.0 with DOSBox -> KeyMapper và thực hiện tuần tự: 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5hSM7KfH8vjU9yOJM3Bil1upbm8Feu5phWWNCfp1w4LGzKZdMAKIKVoOm8dSw-Njm57YseHUiEYTa5vI8Tu7yDL06D1pkQj5loQvndfywR4wsMEhzcIHx882y_bcUgZiSsg-kvHrJkqPV/s1600/cauhinhdosbox.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="317" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5hSM7KfH8vjU9yOJM3Bil1upbm8Feu5phWWNCfp1w4LGzKZdMAKIKVoOm8dSw-Njm57YseHUiEYTa5vI8Tu7yDL06D1pkQj5loQvndfywR4wsMEhzcIHx882y_bcUgZiSsg-kvHrJkqPV/s400/cauhinhdosbox.jpg" width="400" /></a></div>
 
Chọn phím cần sửa (trong hình là phím \ ). 
Click vào nút Del. 
Click vào nút Add sau đó bấm phím tương ứng trên bàn phím của bạn. 
Click vào nút Save 
(Làm lại từ 1 đến 4 với các phím mà bạn không gõ được) 
Click vào nút Exit.

Turbo Pascal 7.0 with DOSBox

Miễn phí, Turbo Pascal và DOSBox đều là những phần mềm miễn phí. Tương thích với mọi Windows: XP, Vista, 7 cả 32 bit và 64 bit. Turbo Pasc...

Bầu trời của tôi