Làm sao để khai báo hàm function trong trương trình gốc ? vd1: uses crt; var a: integer; function dientich(a:integer):integer; var i: integer; begin i:= a*a; dientich:= i end; Làm sao để khai báo/sử dụng dientich vào chương trình gốc để in ra màn hình vd2: Đây là dãy lệnh(hình như của ông Tú Nguyễn) in các số nguyên tố đằng trước số nhập từ bàn phím, mình muốn hỏi tại sao ko cần khai biến k vẫn có thể sử dụng trong lệnh for...to... (Hoc24 ko cho phép đăng vs hình ảnh nên mk để ở dưới)

Đỗ Thị Đạt

Để khai báo hàm function trong chương trình gốc, bạn cần đặt phần khai báo hàm function trước phần chương trình chính.

Cách làm 1:
```
uses crt;

var a: integer;

function dientich(a:integer):integer;

var i: integer;

begin

i:= a*a;

dientich:= i

end;

begin

writeln('Diện tích là: ', dientich(a));

end.
```

Cách làm 2:
```
uses crt;

var k, i: integer;

begin

writeln('Nhập số k: ');

readln(k);

for i:= 2 to k do

begin

if (k mod i = 0) then

begin

writeln(k, ' không phải số nguyên tố.');

exit;

end;

end;

writeln(k, ' là số nguyên tố.');

end.
```

Câu trả lời cho câu hỏi trên là để khai báo hàm function trong chương trình gốc, bạn chỉ cần đặt phần khai báo hàm function trước phần chương trình chính và sau đó sử dụng hàm đó trong phần chương trình chính theo cú pháp tương ứng. Ngoài ra, bạn cũng có thể sử dụng các biến được khai báo ở ngoài hàm function trong hàm đó mà không cần phải khai báo lại.