THPT chuyên Lê Quí Đôn- Khánh Hòa

Đăng nhập để tham gia ngay forum của trường THPT chuyên Lê Quí Đôn- Nha Trang- khánh Hòa

Diễn đàn Trường THPT Chuyên Lê Qúy Đôn- Nha Trang

[B]I. QUY ĐỊNH CHUNG NHẤT 1/ Không phân biệt tôn giáo, chính trị, giới tính, ........ 2/ Nghiêm cấm các hoạt động tuyên truyền, lưu hành, post, những tư tưởng, văn hóa phẩm đồi trụy, ***, phản động chống lại nhà nươc CHXHCN ... 3/ Diễn đàn là nơi chung của mọi người, không phải là của riêng cá nhân bất kì ai. 4/ Giữ không khí hòa bình, vui vẻ giữa các câu lạc bộ, tổ chức và các cá nhân. 5/ Nghiêm cấm spam, farm bài post Những nội quy về nội dung bài post I – Định nghĩa spam. -Spam là một hình thức phá hoại diễn đàn. -Spam là những bài viết quá ngắn (dưới 10 từ, trừ các bài gởi mục đích đăng kí tham gia một hoạt động nào đó khi có yêu cầu), nội dung không khớp với chủ đề (topic) và không có tính đóng góp xây dựng -Spam là các bài có nội dung xấu, gây nghi ngờ bất hoà giữa các làng và các cá nhân. -Spam là các bài post lại nằm theo phần cách nhau (vd Part I, II ....) không gộp lại !! -Spam là các bài dưới dạng hình thức cốt để đua top, nâng chakra......... >Hình phạt Lần 1: Yêu cầu Member Edit lại bài, nhắc nhở lần đầu. Lần 2: Nhắc nhở lần 2. Lần 3: Xóa bài, Ban nick 1 tuần. Lần 4: Xóa bài, Ban nick 2 tuần. Lần 5: Xóa bài, Ban nick vĩnh viễn. II. Bài Post : Nghiêm cấm đặt tên topic là : Thông báo , chú ý hoặc tương tự . Chú ý VIẾT CHỮ TIẾNG VIỆT CÓ DẤU , viết bài đúng box , cần có nội dung hay chứ không phải nhảm nhí , vô nghĩa, copy nguyên xi . Khi post bài với nội dung hình ảnh hay link nhiều thì nên để trong thẻ Hide và spoiler Bài Post cần viết đủ dài (nếu post hình hay clip thì không post hình theo kiểu 1 bài 1 hình hay clip, nên dồn hết tất cả vào 1 bài vào 1 topic) Không được đưa liên kết (link) có tính chất phá hoại như: trojan virus....v...v..... Không quảng cáo hoặc đưa link quảng cáo (đã có topic riêng) Chữ kí : - Không để hình quá to hoặc quá dài, kích cỡ tối đa là ~ 500x100 px - Cỡ chữ size từ 8 - 12, nếu toàn bộ chữ thì không quá 15 dòng, nếu có hình thì hình và chữ không quá to (~ 15 dòng) - Nội dung không gây hiềm khích với các thành viên khác hoặc thô tục, không đúng với thuần phong mỹ tục Việt Nam - Không để quá 2 hình theo chiều dọc trong chữ kí - Không mang nội dung tuyên truyền xấu, độc hại hay spam . Lưu ý : Riêng đối với chữ ký của Mod có thể dùng size to hơn trong trường hợp để chữ ký làm thông báo nhưng tuyệt đối không lạm dụng. Admin không thể suốt ngày ở forum được , nhiều chuyện sẽ phải do S-Mod tự quyết định ( trong thẩm quyền của mình) . Các S-Mod có nhiệm vụ phải quản lý về member và bài viết trong toàn forum , thẳng tay del những bài vi phạm quy định của diễn đàn , xử lý những việc trong thẩm quyền của mình và báo cáo cho người có thẩm quyền cao hơn. Nội quy được áp dụng từ ngày 04/14/2010 Đề nghị các mem kiểm tra lại chữ ký của mình. Mọi chữ ký sai phạm đều có thể bị sửa lại bởi BQT khi phát hiện vi phạm mà không cần báo trước. Những box con trong forum cũng có quy định riêng nên bắt buộc khi thành viên post bài thì phải tuân thủ nội quy mà box mình định post. Ngoài những quy định trên Và để mọi người có sân chơi vui vẻ , yêu cầu Members nên tôn trọng BQT , bản thân và những member khác. Ai không tuân thủ sẽ ban nick ngay lập tức. ----------------------------------------------------------BQT FORUM----------------------------------------------------------[B/]

    Một số kỹ thuật Pascal cơ bản

    Share

    thucuyen1994
    Học sinh bình thường như cục đường
    Học sinh bình thường như cục đường

    Posts : 8
    sP : 26203880
    Join date : 15/08/2010
    Age : 23
    Location : Nha Trang

    default Một số kỹ thuật Pascal cơ bản

    Bài gửi by thucuyen1994 on Mon Aug 16, 2010 3:38 pm

    Làm bài tập tin ngồi tra cứu trên mạng thấy cái này cũng hay hay mà có ích...đôi lúc học nhiều quá quên mấy cái cơ bản,nên post lên đây cho mấy bạn học tin có khi cũng cần dùng đến...

    1. Kỹ thuật dừng màn hình:

    Muốn dừng màn hinh lại để có thể xem kết quả sau khi chương trình đã chạy xong,hãy thêm vào trước cái END cuối cùng của chương trình một câu lệnh Readln;

    2. Cách in ra ma trận a với m dòng,n cột dưới dạng bảng

    Code:
    For i:=1 to M do
    Begin
    For j:=1 to N do
    Write(A[i,j],' ');
    Writeln;
    End;

    3.Hoán đổi vị trí của hai số a,b,sử dụng một biến tg làm trung gian
    Code:
    Procedure Swap(Var a,b:integer);
    Var tg:integer;
    Begin
    g:=a; a:=b; b:=tg;
    End;

    4.Hàm kiểm tra số nguyên tố,trả về true nếu số n là số nguyên tố

    Code:
    Function nt(n:integer):boolean;
    Var i:integer;
    Begin
    if n<=1 then
    begin
    nt:=false; Exit;
    end;
    for i:=2 to (n div 2) do
    if (n mod i)=0 then
    begin
    nt:=false; Exit;
    end;
    nt:=true;
    End;

    5. Hàm tính giai thừa(loại cơ bản,áp dụng cho số nguyên dương n<=15)

    Code:
    Function gt(n:byte):Longint;
    Var s:Longint; i:byte;
    Begin
    s:=1;
    For i:=2 to n do
    s:=s*i;
    gt:=s;
    End;

    6.Sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort

    Code:
    Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo bằng từ khóa Type}
    Var i,j:integer;
    Begin
    for j:=1 to n-1 do
    for i:=n downto j+1 do
    if a[i]
    Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
    End;

    7. HÀM TÍNH TỔNG CÁC CHỮ SỐ CỦA MỘT SỐ NGUYÊN

    Ý tưởng là ta chia số đó cho 10 lấy dư (mod) thì được chữ số hàng đơn vị, và lấy số đó div 10 thì sẽ được phần còn lại. Do đó sẽ chia liên tục cho đến khi không chia được nữa (số đó bằng 0), mỗi lần chia thì được một chữ số và ta cộng dồn chữ số đó vào tổng. Hàm tính tổng chữ số nhận vào 1 số nguyên n và trả lại kết quả là tổng các chữ số của nó:


    Code:
    Function TONGCS(N:Integer): Integer;
    Var S : integer;
    Begin
    S := 0;
    While N <> 0 Do
    Begin
    S := S + N Mod 10;
    N := N div 10;
    End;
    TONGCS := S; End;

    8. HÀM TÍNH UCLN
    Ý tưởng của thuật toán Euclide là UCLN của 2 số a,b cũng là UCLN của 2 số b và a mod b, vậy ta sẽ đổi a là b, b là a mod b cho đến khi b bằng 0. Khi đó UCLN là a.
    Hàm UCLN nhận vào 2 số nguyên a,b và trả lại kết quả là UCLN của 2 số đó.

    Code:
    function UCLN(a,b: integer): integer;
    var r : integer;
    begin
    while b<>0 do
    begin
    r := a mod b;
    a := b;
    b := r;
    end;
    UCLN := a;
    end;

    Chú ý: Dựa trên thuật toán tính UCLN ta có thể kiểm tra được 2 số nguyên tố cùng nhau hay không. Ngoài ra cũng có thể dùng để tối giản phân số bằng cách chia cả tử và mẫu cho UCLN.

    hphong591992
    Học sinh bình thường như cục đường
    Học sinh bình thường như cục đường

    Posts : 1
    sP : 25707929
    Join date : 03/10/2010

    default Re: Một số kỹ thuật Pascal cơ bản

    Bài gửi by hphong591992 on Sun Oct 03, 2010 5:56 pm

    Chào các bạn , mình đến từ diễn đàn http://vnoi.info.
    Mình là admin của diễn đàn VNOI, một trong những diễn đàn lớn nhất về thuật toán cho học sinh- sinh viên Việt Nam. Mình hy vọng các bạn tham gia forum và giải bài tập một cách thuận lợi. Chúc các bạn may mắn.

    P/S: Bạn thucuyen1994 cho mình xin nick yahoo có việc cần nhé Smile

    jayhack
    Học sinh bình thường như cục đường
    Học sinh bình thường như cục đường

    Posts : 2
    sP : 24318568
    Join date : 19/02/2011

    default Re: Một số kỹ thuật Pascal cơ bản

    Bài gửi by jayhack on Sat Feb 19, 2011 10:52 am


    3.Hoán đổi vị trí của hai số a,b,sử dụng một biến tg làm trung gian
    Code:
    Procedure Swap(Var a,b:integer);
    Var tg:integer;
    Begin
    g:=a; a:=b; b:=tg;
    End;

    ko phải là "g" mà mà "tg" bạn xem lại giùm.


    6.Sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort

    Code:
    Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo bằng từ khóa Type}
    Var i,j:integer;
    Begin
    for j:=1 to n-1 do
    for i:=n downto j+1 do
    if a[i]
    Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
    End;

    Thứ nhất: "Thủ tục Swap ở trên" nhưng thủ tục Swap bị sai như đã nói ở trên Very Happy

    Thứ hai: trong câu lệnh if a[i] Swap(a[i],a[i-1]); hình như thiếu bởi a[i] là kiểu interger ko phải boolean. Hình như thiếu phần so sánh hai giá trị a[i] và a[j]. Mà kết thúc lệnh không có ";" kìa.

    Lâu ngày bỏ pascal nên có ghi sai chính tả vài chỗ các bạn cũng thông cảm cho. Smile
    avatar
    kunboo96
    Học sinh bình thường như cục đường
    Học sinh bình thường như cục đường

    Posts : 2
    sP : 21958804
    Join date : 13/10/2011

    default Re: Một số kỹ thuật Pascal cơ bản

    Bài gửi by kunboo96 on Thu Oct 13, 2011 10:19 am

    mý a mý chị jup' e đi. học lớp tin mà nhìu lúc nghĩ ra thuật toán nhưng k pik cách trình bày Crying or Very sad

    Sponsored content

    default Re: Một số kỹ thuật Pascal cơ bản

    Bài gửi by Sponsored content


      Hôm nay: Tue Oct 17, 2017 9:48 pm