Networks Business Online Việt Nam & International VH2
Networks Business Online Việt Nam & International VH2 / Tin Học / Thủ tục là gì Tin Học

Thủ tục là gì Tin Học

Đăng ngày 05 November, 2022 bởi admin
CHƯƠNG VI

Nội dung chính Show

  • II. CẤU TRÚC CHUNG CỦA MỘT CHƯƠNG TRÌNH CÓ SỬ
    DỤNG CTC

CHƯƠNG TRÌNH
CON: THỦ TỤC VÀ HÀM

Bạn đang đọc: Thủ tục là gì Tin Học

A. LÝ THUYẾT

I. KHÁI NIỆM VỀ
CHƯƠNG TRÌNH CON

Chương trình con ( CTC ) là một đoạn chương trình triển khai toàn vẹn hay một tính năng nào đó. Trong Turbo Pascal, có 2 dạng CTC :
· Thủ tục ( PROCEDURE ) : Dùng để thực thi một hay nhiều trách nhiệm nào đó .
· Hàm ( FUNCTION ) : Trả về một giá trị nào đó ( có kiểu vô hướng, kiểu string ). Hàm hoàn toàn có thể sử dụng trong những biểu thức .
Ngoài ra, trong Pascal còn được cho phép những CTC lồng vào nhau .

II. CẤU TRÚC CHUNG CỦA MỘT CHƯƠNG TRÌNH CÓ SỬ
DỤNG CTC

PROGRAM Tên_chương_trình ;
USES CRT ;
CONST ………… ;
VAR ………… ;

PROCEDURE THUTUC [ ( Các tham số ) ] ;
[ Khai báo Const, Var ]
BEGIN
…………..
END ;

FUNCTION HAM[(Các tham số)]:;

[ Khai báo Const, Var ]
BEGIN
…………..

HAM:=;

END ;

BEGIN { Chương trình chính }
……………….
THUTUC [ ( … ) ] ;
……………….
A : = HAM [ ( … ) ] ;
……………….
END .

Chú ý:
Trong quá trình xây dựng CTC, khi nào thì nên dùng thủ tục/hàm?

Dùng hàm

Dùng
thủ tục

– Kết quả của
bài toán trả về 1 giá trị duy nhất (kiểu vô hướng, kiểu string).

– Lời gọi CTC cần nằm trong những biểu thức thống kê giám sát .

– Kết quả của
bài toán không trả về giá trị nào hoặc trả về nhiều giá
trị hoặc trả về kiểu dữ
liệu có cấu trúc (Array, Record, File).

– Lời gọi CTC không nằm trong những biểu thức giám sát .

B. BÀI TẬP

Bài tập 6.1:

Viết chương trình giải phương trình bậc hai với nhu yếu sử dụng những chương trình con để xử lý những trường hợp xãy ra của delta .
a. Hướng dẫn :
b. Mã chương trình :

Program Giai_PT_bac_hai ;
uses crt ;
var a, b, c, delta : real ;
{ ———————- }
Procedure delta_duong ;
begin
write ( ‘ Phuong trinh co hai nghiem x1 = ‘, ( – b + sqrt ( delta ) ) / ( 2 * a ), ‘ x2 = ‘, ( – b + sqrt ( delta ) ) / ( 2 * a ) ) ;
end ;
{ ——————— }
Procedure delta_khong ;
begin
write ( ‘ Phuong trinh co nghiem kep x = ‘, – b / ( 2 * a ) : 3 : 1 ) ;
end ;
{ ——————– }
Procedure delta_am ;
begin
writeln ( ‘ Phuong trinh vo nghiem ‘ ) ;
end ;
{ Chuong trinh chinh }
Begin
clrscr ;
write ( ‘ Nhap a : ‘ ) ; readln ( a ) ;
write ( ‘ Nhap b : ‘ ) ; readln ( b ) ;
write ( ‘ Nhap c : ‘ ) ; readln ( c ) ;
delta : = b * b-4 * a * c ;
if delta > 0 then delta_duong
else if delta = 0 then delta_khong
else delta_am ;
readln
end .

c. Nhận xét: Chương trình con cho phép chia nhỏ công việc nhằm
đơn giản hoá. Ngoài ra một công việc nào đó lặp lại nhiều lần trong chương
trình nên dùng CTC vì khi đó mã chương trình sẽ gọn, dễ theo dõi, gỡ rối hơn.

Bài tập 6.2:

Viết chương trình cho phép nhập hai số vào hai biến, thực thi đổi giá trị của hai biến cho nhau. Yêu cầu dùng chương trình con để triển khai công dụng đổi giá trị .
a. Hướng dẫn :

b. Mã chương trình:

Program CTC_1 ;
uses crt ;
var a, b : real ;
{ —- CTC doi gia tri —- }
Procedure swap ( var x, y : real ) ;
var tam : real ;
begin
tam : = x ; x : = y ; y : = tam ;
end ;
{ —– Ket thuc CTC —– }
begin
clrscr ;
write ( ‘ Nhap so a : ‘ ) ; readln ( a ) ;
write ( ‘ Nhap so b : ‘ ) ; readln ( b ) ;
swap ( a, b ) ;
write ( ‘ Sau khi doi a = ‘, a : 3 : 1 ) ;
write ( ‘ Sau khi doi b = ‘, b : 3 : 1 ) ;
readln
end .

b. Nhận xét:

– Nếu bỏ từ var ở khai báo var x, y : real thì chương trình vẫn không báo lỗi nhưng tính năng đổi giá trị của hai biến không thực thi được .

Bài tập 6.3:

Tìm số lớn thứ nhì trong n số được nhập từ bàn phím .
Ví dụ : Nhập những sô 10 ; 10 ; 9 ; 9 ; 8 thì được số lớn nhì là 9 .
Giải thuật :
– Nhập 2 số, Xác định giá trị cho hai biến Max, Nhi .
– Lần lượt nhâp những số. Với mỗi số được nhập xét :
– Nếu So > Max thì gán Nhi = Max, Max = So .
– Nếu Nhi < So < Max thì gán Nhi = So .

Program So_lon_nhi ;
Var n, i, so, nhi, max, tam : integer ;
Procedure swap ( var x, y : real ) ;
var tam : real ;
begin
tam : = x ;
x : = y ;
y : = tam ;
end ;
Begin
Write ( ‘ Nhap n : ‘ ) ; Readln ( n ) ;
Write ( ‘ nhap so : ‘ ) ; Readln ( max ) ;
Write ( ‘ nhap so : ‘ ) ; Readln ( nhi ) ;
if nhi > Max then swap ( Max, nhi )
For i : = 3 to n do
Begin
Write ( ‘ Nhap so : ‘ ) ; Readln ( so ) ;

if (so>nhi) and (so if so > max then
Begin
nhi : = max ;
Max : = so ;
End ;
End ;
Write ( ‘ So thu nhi la : ‘, nhi ) ;
Readln
End .

Bài tập 6.3:

Viết chương trình tính giai thừa của số n ( Viết là n ! ). Với nhu yếu :
– Nếu người dùng nhập số n < 0 thì nhu yếu nhập lại . - Sử dụng chương trình con để tính giai thừa của 1 số ít . n ! = 1 nếu n = 0 ; n ! = 1.2.3. 4.5 ... n ( Tích của n thừa số ) . a. Hướng dẫn : b. Mã chương trình :

Program CTC_2 ;
uses crt ;
var n : integer ; x : longint ;
Procedure Giai_Thua ( var GT : longint ; n : byte ) ;
begin
GT : = 1 ;
while n > 0 do
begin
GT : = GT * n ;
n : = n-1 ;
end ;
end ;
begin
repeat
clrscr ;
write ( ‘ Nhap so n : ‘ ) ; readln ( n ) ;
if n < 0 then begin write ( ' Nhap so n > = 0 ‘ ) ; readln ; end ;
until n > = 0 ;
Giai_Thua ( x, n ) ;
writeln ( ‘ Giai thua cua ‘, n, ‘ la : ‘, x ) ;

readln

end .

Nhận xét : Lệnh n : = n-1 làm đổi khác giá trị của n nhưng khi ra khỏi chương trình con n có giá trị không đổi so với trước khi gọi chương trình con .

Bài tập 6.4:

Viết chương trình tính n ! với nhu yếu sử dụng hàm để tính giai thừa .
a. Hướng dẫn :
b. Mã chương trình :

Program Giai_thua_Ham ;
uses crt ;
var n : longint ;
Function Giai_Thua ( n : longint ) : longint ;
Var GT : Longint ;
begin
GT : = 1 ;
while n > 0 do
begin
GT : = GT * n ;
n : = n-1 ;
end ;
Giai_thua : = GT ;
end ;
begin
clrscr ;
write ( ‘ Nhap n : ‘ ) ; readln ( n ) ;
write ( n, ‘ ! = ‘, Giai_thua ( n ) ) ;
readln
end .

Nhận xét: Hãy so sánh sự khác nhau khi Giai_thua được
viết dưới hai dạng Function và Procedure.

– Khi dùng Procedure cần một biến ( toàn cục ) để lưu giữa giá trị của n !. Biến này được truyền cho tham biến trong Procedure. Sau khi gọi nó cần lệnh để in n !
– Khi dùng Function, hoàn toàn có thể sử dụng nó như thể một biểu thức .

Bài tập 6.5:

Viết chương trình được cho phép triển khai rút gọn phân số .
a. Hướng dẫn :
– Tìm UCLN của tử số và mẫu số .
– Chia tử và mẫu của phân số cho UCLN vừa tìm được .
b. Mã chương trình :

Program Rut_gon_phan_so ;
uses crt ;
var tu, mau : integer ;
Function UCLN ( a, b : integer ) : integer ;
var r : integer ;
begin
r : = a mod b ;
while r < > 0 do
begin
a : = b ;
b : = r ;
r : = a mod b ;
end ;
UCLN : = b ;
end ;
begin
clrscr ;
write ( ‘ Nhap tu : ‘ ) ; readln ( tu ) ;
write ( ‘ Nhap mau : ‘ ) ; readln ( mau ) ;
write ( ‘ Ket qua rut gon : ‘, tu, ‘ / ‘, mau, ‘ = ‘, tu div UCLN ( tu, mau ), ‘ / ‘, mau div UCLN ( tu, mau ) ) ;
readln
end .

Bài tập 6.6:

Viết chương trình được cho phép trộn hai dãy số A và B cùng có số thành phần là k để được dãy số C theo nhu yếu sau :
A = a1, a2 … ak
B = b1, b2 … bk
Được C = a1, b1, a2, b2 … ak, bk .

a. Hướng dẫn :
b. Mã chương trình :

Program Tron_day ;
uses crt ;
type kieu_mang = array [ 1 .. 100 ] of integer ;
var A, B, C : Kieu_mang ;
n, i, j : integer ;
Procedure Nhap_Mang ( Var X : Kieu_mang ; n : byte ) ;
var i : integer ;
begin
for i : = 1 to n do
begin
write ( ‘ M [ ‘, i, ‘ ] = ‘ ) ; readln ( X [ i ] ) ;
end ;
end ;
Procedure In_Mang ( X : kieu_mang ; n : byte ) ;
var i : byte ;
begin
for i : = 1 to n do write ( x [ i ], ‘, ‘ ) ;
end ;
{ ———– }
begin
clrscr ;
write ( ‘ Nhap so phan tu cua day : ‘ ) ; read ( n ) ;
Nhap_mang ( A, n ) ;
Nhap_mang ( B, n ) ;
i : = 1 ;
j : = 1 ;
while i < = n do begin C [ j ] : = A [ i ] ; C [ j + 1 ] : = B [ i ] ; j : = j + 2 ; i : = i + 1 ; end ; in_mang ( C, 2 * n ) ; readln end .

Bài tập 6.7:

Viết chương trình in ra những số nguyên tố nhỏ hơn n với nhu yếu dùng hàm để kiểm tra 1 số ít có phải là số nguyên tố hay không .

a. Hướng dẫn:

b. Mã chương trình:

Program In_so_nguyen_to ;
uses crt ;
var n, i : integer ;
{ —— Ham kiem tra ——- }
Function kiem_tra ( n : integer ) : boolean ;
var i : integer ;
begin
kiem_tra : = true ;
for i : = 2 to n-1 do if ( n mod i ) = 0 then kiem_tra : = false ;
end ;
{ —— CTC —————- }
begin
clrscr ;
write ( ‘ Nhap n : ‘ ) ; readln ( n ) ;
for i : = 2 to n do if kiem_tra ( i ) then write ( i : 3, ‘, ‘ ) ;
readln ;
end .

Bài tập 6.8:

Viết chương trình cho phép sắp
xếp một dãy số với yêu cầu sử dụng các chương trình con: Nhập mảng, in mảng,
đổi giá trị của hai số.

a. Hướng dẫn:

b. Mã chương trình:

Program Sap_xep_day ;
uses crt ;
type kieu_mang = array [ 1 .. 100 ] of integer ;
Var A : kieu_mang ;
n, i, j : byte ;
{ ——————— }
Procedure Nhap_mang ( var M : Kieu_Mang ; n : byte ) ;
Var i : byte ;
begin
for i : = 1 to n do
begin
write ( ‘ M [ ‘, i, ‘ ] = ‘ ) ; readln ( M [ i ] ) ;
end ;
end ;
{ ——————— }
Procedure In_mang ( var M : Kieu_Mang ; n : byte ) ;
Var i : byte ;
begin
for i : = 1 to n do write ( M [ i ] : 3, ‘, ‘ )
end ;

{ ——————— }
Procedure swap ( var a, b : integer ) ;
var tam : integer ;
begin
tam : = b ;
b : = a ;
a : = tam ;
end ;
{ ——————— }

Begin
Clrscr ;
write ( ‘ Cho biet so phan tu cua day : ‘ ) ; readln ( n ) ;
nhap_mang ( A, n ) ;
for i : = 1 to n-1 do

for j:= i to n do if A[i]>A[j] then
swap(A[i],A[j]);

In_mang ( A, n ) ;
readln
end .

Source: https://vh2.com.vn
Category : Tin Học

admin
CÙNG CHUYÊN MỤC
ĐịNh Nghĩa mô phỏng TổNg Giá Trị CủA Khái NiệM Này. Đây Là Gì mô phỏng
09/11/2022

Simulacrum, từ simulacrum Latin, là một sự bắt chước, giả mạo hoặc hư cấu. Khái niệm này được liên kết với mô phỏng, đó là hành động mô phỏng .Một...

Khởi động sao tam giác là gì? Tại sao phải dùng sao tam giác
09/11/2022

Khởi động sao tam giác là một trong số những phương pháp để khởi động động cơ đơn giản, hiệu quả và tiết kiệm chi phí. Vậy Khởi động sao...

Đồ Án 2: Thiết kế mạch Buck Converter DC-DC – Tài liệu text
09/11/2022

Đồ Án 2: Thiết kế mạch Buck Converter DC-DC Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây...

Lý thuyết máy phát điện xoay chiều – https://vh2.com.vn
09/11/2022

Nguyên tắc hoạt động máy phát điện xoay chiềuDựa trên hiện tượng cảm ứng điện từ: Khi từ thông qua một vòng dây biến thiên điều hòa, trong vòng dây...

HDSD Led matrix Trong Proteus Và Cách Quét LED SD 8051 (8 x 64)
09/11/2022

HDSD Led matrix Trong Proteus Và Cách Quét LED SD 8051 ( 8 x 64 ) Ngày 03/08/2010 20:19:50 / Lượt xem: 27279 / Người đăng: biendt / Nguồn: [email protected]...

Bài Viết Mới