Một số kĩ thuật cơ bản của Pascal

[jiSh@n]

Bạn đã thử chưa mà dám quả quyết như vậy, mình đã thử ví dụ này:

Var a:integer;b:longint;
      Begin
         a:=20000; b:=20000;
         write(a+b);
         readln;
      end.

kq ==> 40000 (vượt quá giới hạn Integer)
Theo mình thì Pascal sẽ dựa vào biến lớn nhất trong biểu thức để tính toán, với những biến nhỏ hơn(byte) thì mặc định là Integer.
Theo như jiSh@n giải thích thì lỗi này là do compiler nhưng mình muốn hỏi tại sao không mặc định là longint cho nó khỏe, mình vẫn bảo thủ cho rằng lỗi này là do Pascal. Phần mềm nào mà chẳng bị lỗi, nhất là khi nó đã mười mấy năm rồi chưa được nâng cấp

À, chỗ này mình nhầm 1 chút. Khi thực hiện phép toán giữa 2 toán hạng thì trình biên dịch sẽ tự động typecast kiểu của biểu thức sang kiểu của toán hạng lớn nhất, và thứ tự thực hiện các phép toán là từ trái sang phải theo độ ưu tiên toán tử. Lỗi chính xác phải là như thế này:
a+a+b => integer + integer + longint => (integer + integer) + longint => (integer + integer) bị tràn (40000) trước khi compiler typecast (integer+integer) sang kiểu longint để cộng với kiểu longint phía sau.

Cái này vốn dĩ ko phải là lỗi của trình biên dịch. Bạn thử bằng compiler mới nhất của Borland là CodeGear Delphi 2007 với kiểu integer (32bit) và int64 (64bit) sẽ thấy kết quả tương tự. Turbo Pascal ko thể dùng kiểu nguyên mặc định là longint (32 bit) vì nó là compiler 16 bit, kiểu nguyên mặc định của nó có độ dài 16 bit (integer), tương ứng 1 thanh ghi 16 bit (AX, BX, CX,...). Nếu bạn dùng compiler 32 bit (Delphi, Free Pascal 32) thì kiểu nguyên mặc định lúc này vẫn là integer nhưng có độ dài 32bit, tương ứng với 1 thanh ghi 32 bit (EAX, EBX, ...). Kiểu longint lúc này thực chất là 1 tên gọi khác của kiểu integer, và kiểu nguyên lớn hơn integer là int64 (64 bit). Tương tự, nếu bạn dùng compiler 64bit (chạy trên các OS 64bit - kiến trúc AMD64/EMT64) thì kiểu nguyên mặc định có độ dài 64bit.
Nếu bạn dùng Free Pascal 16 thì bạn cũng sẽ nhận được kết quả giống như Turbo Pascal, Turbo C hay các compiler 16bit khác thôi. Đây là lỗi do mã lệnh của lập trình viên, ko phải lỗi của compiler.

[sugiathanchetbp]

Mí anh chị ui! em mới là thành viên và sang năm em mới bắt đầu học lớp 11 thui
em chua học pascal bao giờ nên hôk piếc học làm sao để giỏi. Níu anh chị nào bik cách học thì chỉ em với nha! Thank nhìu nhìu lem'

[=========> Bổ sung bài viết <=========]

Thấy mí anh chị bàn luận sôi nổi ham ghê nhưng trình độ còn kém quá nên hôk dám góp ý
Tiếc thật!(T_T)

[that_is_lg]

Để phục vụ cho máy cái trò này tớ khuyên các bac dùng FPC là hơn cả
chọn options\ complier \ sau đó đóng dấu C_like operator
ta dùng uses crt, math;
ta được viết như sau i += 1; nó tương đương với i:= i+1; nhưng nhanh hơn vì nó chỉ bằng 1 phép gán 1 số cho 1 biến chứ không phải là phép tính.
Ngoài ra còn có -= /= *=
tiếp nữa để sắp xếp ta chỉ cần dùng hàm sort(); có sẵn
ngoải ra còn có 1 số hàm tìm max, min của cả mảng
Viết hoa cả chuỗi, viết thường cả chuỗi
Làm nhanh lém nhưng tui không nhớ rõ lắm ai cần thì Pm

[jiSh@n]

ta được viết như sau i += 1; nó tương đương với i:= i+1; nhưng nhanh hơn vì nó chỉ bằng 1 phép gán 1 số cho 1 biến chứ không phải là phép tính.

i:=i+1; i+=1; i++; inc(i);

Các compiler hiện đại đủ thông minh để biến các phép toán trên về dạng tối ưu, tốc độ như nhau thôi

[phoenixsinh]

hi hi
phải là:
s:=s*i;
ứ hả?

[=========> Bổ sung bài viết <=========]

không biét có thể dùng cái này để tính số lần xuất hiện các kí tự trong một chuỗi ở một chuỗi khác không?
key:='loves';
ten:='vanduoc';
for i:= 1 to 5 do
begin
k[i]:=copy(key,i,1);
for j:=1 to 7 do
t[i]:=copy(ten,j,1);
if (k[i]=t[j] then
dem:=dem+1;
str(dem,tam);
insert(tam,so,[i]);

i hi mình mới nghĩ ra ngay tức thì nên có nhiều lỗi lắm, có những lỗi trầm trọng phải không?
i hi

[htdang1981]

minh moi buoc vao ngon ngu Lap Trinh

[timberlake]

Để use code
B1: tìm code
B2: copy code vào word ( save với tên *.doc) hay notepad( save với tên *.txt)
B3: kích hoạt PC mở tệp (đã lưu ở trên) save as thành tệp *.pas
B4: chạy chương trình.

[magic1000]

Sao mình học pascal mà thấy phát chán lên nhỉ.

[huysun]

hi hi
phải là:
s:=s*i;
ứ hả?

[=========> Bổ sung bài viết <=========]

không biét có thể dùng cái này để tính số lần xuất hiện các kí tự trong một chuỗi ở một chuỗi khác không?
key:='loves';
ten:='vanduoc';
for i:= 1 to 5 do
begin
k[i]:=copy(key,i,1);
for j:=1 to 7 do
t[i]:=copy(ten,j,1);
if (k[i]=t[j] then
dem:=dem+1;
str(dem,tam);
insert(tam,so,[i]);

i hi mình mới nghĩ ra ngay tức thì nên có nhiều lỗi lắm, có những lỗi trầm trọng phải không?
i hi

sao không dùng ngay hàm pos cho tiện???
for i:=1 to 5 do
if(pos(key[i],ten)<>0)then inc(dem);

[lehuukyquan]

Để đổi chỗ 2 phần tử - không nhất thiết dùng biến trung gian như sau:
a:=a+b;
b:=a-b;
a:=a-b;
Các bạn test lại, bảo đảm ok mà!
Thân ái!