TIN HỌC-BÀI 18

" PROCEDURE " là gì ?

• từ khóa

• hàm

• thủ tục

• dãy lệnh

kết thúc thủ tục ta sử dụng:

• end.

• end;

• end:

• end,

tên thủ tục là :

• bắt buộc phải có

• không cần thiết

• có cũng được, không cũng cũng được

• tùy chương trình

đáp án nào đúng nhất ?

•       <tên hàm> := <biểu thức>,

•       <tên hàm> := <biểu thức>.

•       <tên hàm> := <biểu thức>;

•       <tên hàm> : <biểu thức>;

........... < tên hàm > [ (<danh sách tham số>) ]: <kiểu dữ liệu>;

• Procedure

• Var

• Fuction

• Function

Function < tên hàm > [ (<..............>) ]: <kiểu dữ liệu>;

trong sử dụng hàm, kiểu dữ liệu của giá trị mà hàm trả về gồm những kiểu nào?

• integer, real, char, boolean, string.

• real, char, boolean.

• integer, real, char

• integer, char, boolean, string.

hàm và thủ tục khác nhau gì?

• , trong thân hàm cần có lệnh gán giá trị cho tên hàm: <tên hàm>:= <biểu thức>

• trong thân hàm cần có lệnh gán giá trị cho tên hàm: <tên hàm>:= <biểu thức>;

• trong thân hàm cần không có lệnh gán giá trị cho tên hàm: <tên hàm>:= <biểu thức>;

• , trong thân hàm cần có lệnh gán giá trị cho tên hàm: <tên hàm>: <biểu thức>;

Program Rutgon_Phanso;

Uses crt;

Var Tuso, Mauso, a: integer; Function UCLN(x, y: integer): integer; {Bat dau ham UCLN}

Var sodu: integer;

Begin

While y <> 0 do

Begin

Sodu:= x mod y;

X:= y;

Y:= sodu;

End;

UCLN:= x;

End;

Begin

Clrscr;

Write(Nhap tu so va mau so vao! ‘); readln (Tuso, Mauso);

A:=UCLN(Tuso, Mauso);

If a >1 then

Begin

Tuso:= Tuso div a;

Mauso:= Mauso div a;

End;

Writeln (Tuso:5, Mauso:5);

End

CHƯƠNG TRÌNH TRÊN ĐÚNG HAY SAI ?

• vừa đúng vừa sai

• đúng

• sai

• không biết

Program Minbaso.

Var a, b, c: real;

{Ham tim so nho nhat trong, hai so a va b}

Function Min (a, b:real): real;

     Begin

          If a<b then Min:=a

             Else Min:=b;

     End;

CHƯƠNG TRÌNH TRÊN ĐÚNG HAY SAI ?

• đúng

• sai