Chuỗi, Hàm và Thủ Tục

[trankientrung]

Có anh nào rảnh không.Nếu rảnh thì Post mấy bài tập liên quan đến chuổi,hàm và thủ tục đơn giản. Để mọi người có thể củng cố kiến thức đuôc không nè.

[mr_invincible]

Bạn có thể làm lại các bài tập khi bạn chưa học đến hàm, thủ tục theo cách mới dùng hàm và thủ tục. Sau đây là một số ví dụ để bạn tham khảo:
1) Lập hàm kiểm tra xem 1 số có là số chính phương, hoàn chỉnh, nguyên tố không
=> Lập chương trình in ra tất cả các số nguyên tố, hoàn chỉnh, ... trong khoảng cho trước ra màn hình
2) Viết hàm tính tổng các dãy số
3) Viết hàm chuyển một xâu kí tự từ chữ thường thành chữ hoa
4) Nhập tên rồi viết thủ tục đổi các chữ cái đầu tên thành chữ hoa
5) Viết hàm làm tròn số với số chữ số sau dấu phẩy cho trước (nhớ là đừng dùng luôn hàm round để tăng độ khó)
6) Viết thủ tục đổi chỗ 2 số cho trước

[trankientrung]

Hì. Em chỉ dưa ra ý kiến này. Để mọi người giải nhằm củng cố kiến thức và một phần là để em biết được cách thức hoạt động của hàm và thủ tục.
Chứ thật ra em chưa học và làm quen với hàm và thủ tục.
Ai biết thì giải dùm nha !

[Long_Phung]

Hàm và thủ tục có thể hiểu nôm na là 1 đoạn chương trình của pascal được tách riêng ra.
Ví dụ đơn giản
Cộng hai số:


{Cách 1: Ko dùng thủ tục.}
Begin
....
S:=a+b;
Write("Tổng 2 số là:",s:5);
....
End.
{Cách 2: dùng thủ tục.}
procedure conghaiso(a,b:integer);
var
s:Longint;

Begin
s:=a+b;
Write("Tổng 2 số là:",s:5);
End;
Begin
.....
Conghaiso(a,b);
.....
End.
{Cách 3: Sử dụng hàm}
Funtion conghaiso(a,b:integer):longint;
var
s:Longint;
Begin
s:=a+b;
conghaiso:=s;
End;
Begin
.....
Write("Tong hai so la:",Conghaiso(a,b));
.....
End.

Bạn có thể đọc thêm tài liệu "Turbo Pascal 7.0" Của tác giả Quách Tuấn Ngọc để h iểu rõ hơn

[trankientrung]

Giờ thì mình đã hiểu !
Thank you vẻy much !