Toán tử NOT - Những vấn đề không thể hay có thể

Toán tử NOT - Những vấn đề không thể hay có thể

Những vấn đề không thể hay có thể?

Nguyễn Hiếu cường Vấn đề 1: Toán tủ NOT

Toán tử NOT thường dùng để phủ định một giá trị kiểuBoolean:

NOT True=False

NOT False=True

Nhưng Pascal cũng cho phép thực hiện toán tử NOT với cáctoán hạng kiểu Integer Khi

đó phép phủ định được mở rộng thực hiện đồng thờitrên 16 bit

Ví dụ:

NOT 0 = -1

NOT 1 = -2

NOT -15 = 14

Vấn đề 2: Kết quả trả về của một hàm

Một số bạn hay phát biểu: hàm trả về một giá trị thông quatên hàm, do đó họ hay hiểu lầm rằng kết quả trả về của hàm là một giá trị,tức là một số nào đó (Integer, Real, ) Đúng là trong các bài toán chúng tathường hay gặp điều này nhưng không phải luôn luôn như vậy, kết quả của hàmcũng có thể là một kiểu có cấu trúc, chỉ cần kiểu đó phải được định nghĩatrước

Ví dụ:

Type Chuoi4=string[4];

Var s:Chuoi4;

Function HamChuoi: Chuoi4;

Begin

HamChuoi:=****;

End;

s:= HamChuoi;

write(s);

End

Vấn đề 3: Kích cỡ chữ trên màn hình đồ họa

Để viết chữ trên màn hình đồ hoạ, ta cần theo các bước:

Chọn kiểu, hướng và kích cỡ chữ: SetTextStyle(Font,Direction, CharSize);

Viết chữ từ toạ độ (X,Y): OutTextXY(X, Y, TextString);

Tại đây, CharSize là kích cỡ của chữ, có giá trị từ 1 đến10 Chúng ta thường chỉ dùng phạm vi nàu nên ít để ý rằng có thể thay đổi kíchcỡ chữ ngoài phạm vi đó Để thực hiện được chúng ta dùng lệnh:

SetUserCharSize(MultX,DivX, MultY, DivY);

Nếu muốn chữ rộng ra thì chọn MultX gấp nhiều lần DivX cònnếu muốn chữ cao lên thì chọn MultY gấp nhiều lần DivY (các giá trị này đều làsố nguyên)

Chú ý: Trướckhi dùng lệnh SetUserCharSize cần dùng lệnh SetTextStyle để xác định font chữ,nếu không có lệnh SetTextStyle hoặc có nhưng giá trị Font = 0 thì font chữ mặcđịnh được sử dụng Trong trường hợp này SetUserCharSize không có tác dụng

Ví dụ:

Uses graph;

Var

gd,gm, x, y: integer;

Begin

x:=GetMaxX div 2;

y:=GetMaxY div 2;

SetTextStyle(1,0,1);

SetUserCharSize(3,1,1,1);

OutTextXY(x-150,y,Wide);

SetUserCharSize(11,1,6,1);

OutTextXY(x-350,y+50,Lage);

End

Vấn đề 4: Tham số hình thức không xác định kiểu

Các chương trình con trong Pascal được khai báo theocông thức sau:

ProcedureTên_thủ_tục(khai báo các tham số hình thức);

FunctionTên_hàm(khai báo các tham số hình thức): Kiểu_hàm;

Thường thì trong phần khai báo, tham số hình thức phảiđược xác định một kiểu nhất định, theo công thức:

Tên_tham_số:Kiểu;

Hoặc

VarTên_tham_số: Kiểu;

Nhưng kiểu của tham số hình thức cũng có thể không xácđịnh, tức là định nghĩa kiểu

được bỏ qua trong phần mô tả tham số đầu của chươngtrình con Trong trường hợp này tham số thực sự tương ứng có thể thuộc bất kỳkiểu nào Tham số hình thức không xác định kiểu tự bản thân nó không tương hợpvới tất cả các kiểu do đó chỉ được dùng trong những hoàn cảnh mà ở đó kiểu dữliệu không có ý nghĩa, chẳng hạn để làm tham số địa chỉ của biến địa chỉ tuyệtđối

Ví dụ:

typea=array[1 20] of byte;

Procedure HV(var a1p,a2p; n:integer);

Var {Các biếnđịa chỉ tuyệt đối: các biến có thể được khai báo để được bố trí vào các địa chỉbộ nhớ cố định nào đó}

a1:a absolute a1p;

a2:a absolute a2p;

tg: byte;

i: integer;

Begin

for i:=1 to n do

begin

tg:=a1[i];

a1[i]:=a2[i];

a2[i]:=tg;

end;

End;

Var

n, i, x, y:byte;

c, d: a;

Begin

{Nhap 2 so}

write(`x,y= `);

readln(x,y);

{Hoan vi2 so}

HV(x,y,1);

writeln(x,,y);

{Nhap 2mang}

write(n= );

readln(n);

for i:=1to n do

begin

write(c,d,i,=);

readln(c[i],d[i]);

end;

{Hoan vi2 mang}

HV(c,d,n);

for i:=1to n do

writeln(c[i],,d[i]);

readln;

End

Nguyễn Hiếu Cường