Chào bạn, hãy ĐĂNG KÝ tham gia diễn đàn nhé.
  • Login:

Chào mừng đến với Diễn đàn học sinh Trần Phú Hà Tĩnh.

Chào bạn, hãy ĐĂNG KÝ làm thành viên diễn đàn TRANPHUHT.COM để được hỗ trợ tốt nhất nhé.
Chúc bạn một ngày vui vẻ ^^!.

CTLINK - DỊCH VỤ CHUYỂN PHÁT NHANH UY TÍN HÀNG ĐẦU VIỆT NAM Làm áo lớp

Thông báo cuộc thi Mr & Miss Trần Phú 2013

Love Telling nvt87.utehy nhắn với admin - thpt tran phu: trời lạnh làm chén rượu ốc đê.....admin..........đi được call....inbox Thiên Thần Gãy Cánh nhắn với <3: Have a nice day WBOYthethoisao nhắn với Mùa hè: Về hè mà chán thế nhỉa :v muốn đi òi. Diễn đàn TP từ ngày mình đi cũng vắng xtanh .... Lady Killer nhắn với all....: vui vại ) Thiên Thần Gãy Cánh nhắn với hondacodon: Con dê xin chào chú yêu! chúc chú tháng mới vui vẻ, hạnh phúc và thành công nhá! <3 Coastal nhắn với huongnham: Ban quản trị sẽ cố gắng nhưng quan trọng là ở các thành viên nữa chú à nguyendinhhung93 nhắn với all mem 12 tpht: chúc các bạn ôn thi tốt và đạt được kết quả cao trong 2 ki thi sắp tới. huongnham nhắn với @all: Sao dạo này room vắng thế nhỉ? ban quản trị nên có kế hoạch vực lại đi chứ nvt87.utehy nhắn với admin: chúc admin ngủ ngon,a e ngủ khỏe.....có giấc mơ đẹp..^_^.... nvt87.utehy nhắn với forum@tranphuht: thông điệp yêu thương ^_^... Gooner Trần Phú nhắn với All: Super Spam đã trở lại Cái độ phá hoại rum vẫn như xưa !!!!!!!! Ngọa Long nhắn với ALL: NL chúc cả nhà ngày mới tốt lành ... ^^ virut_coi nhắn với @@: Nhóm ĐHV cũ ko thể dùng dc chatbox @@ Mr.Còi nhắn với All mem: Anh chị em cố gắng làm cho 4rum xôm lại nào hoa_hong_xanh nhắn với anh: nhớ lắm tềnh yêu ơi!!! bithu_bimbim nhắn với <3: Chúc mọi người năm mới vui vẻ, trẻ, khỏe, học tập, làm việc tốt và hạnh phúc nhé Trang Phan nhắn với cuộc đời sv: uiui...sự nghiệp đăng ký môn học ở Đại học..hơn cả đi tu hành chín quả, LBQ_ANDEHITA1 nhắn với addmin: hay the hien nhung gi minh co Coastal nhắn với all: Hẹn gặp lại tieudang_map nhắn với Các thầy cô giáo: Chúc các thày cô một ngày lễ thật ý nghĩa

Kết quả 1 đến 1 của 1
  1. #1
    Ở nhà chăm con...
    Ngày tham gia
    Jun 2009
    Bài viết
    4,621
    Thanks
    873
    Thanked 2,245 Times in 894 Posts
    Blog:
    8

    Mặc định [Bài Tập Pascal Hay] CHƯƠNG TRÌNH CON - Có Đáp Án

    CHƯƠNG TRÌNH CON

    Bài 1 :Dùng thủ tục chuyển một số tự nhiên n cho trước sang hệ cơ số 2 .

    Bài 2 :Dùng thủ tục giải phương trình bậc hai ax2 + bx + c = 0.

    Bài 3 :Hãy viết lại thủ tục Insert đối với một chuỗi kí tự cho trước tùy ý .

    Bài 4 :Viết chương trình thực hiện lần lượt các công việc sau :
    _ Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím .
    _ Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ?
    _ Viết thủ tục tính diện tích của tam giác .
    _ Viết thủ tục tính các trung tuyến của tam giác .
    _ Viết hoàn thiện chương trình chính .

    Bài 5 :Giải phương trình x + y + z = 12 trong phạm vi số nguyên không âm với điều kiện x < 4 .

    Bài 6 :Cho trước các số N , a , b , c tự nhiên . Giải phương trình sau trong phạm vi số nguyên không âm x + y + z = N với điều kiện x < a , y < b , z < c .

    Bài 7 :Viết thủ tục Compare ( S1 , S2 : String ; Var Kq : String ) thực hiện công việc sau : so sánh hai xâu S1 và S2 , tìm tất cả các kí tự có trong cả hai xâu trên . Xâu Kq sẽ chứa tất cả các kí tự đó , mỗi kí tự chỉ được nhớ một lần .

    Bài 8 :Viết hàm tính D (St1 , St2) , với U, V là hai xâu kí tự bất kì , là tổng số các kí tự không giống nhau trong hai xâu trên , mỗi loại kí tự chỉ được nhớ một lần . Ví dụ D (‘aabba’ , ‘bcdd’) = 2 vì chỉ có hai kí tự a và d là không giống nhau trong các xâu trên .

    Bài 9 :Viết chương trình hoàn chỉnh thực hiện các công việc của thực đơn sau :
    1. Nhập dữ liệu ( nhập số tự nhiên n ) .
    2. Phân tích ra thừa số nguyên tố ( phân tích n thành tích các số nguyên tố )
    3. Thoát khỏi chương trình .

    ĐÁP ÁN:
    1)
    Mã:
    Procedure Change ( n : integer ; Var St : String ) ;
      (* thủ tục chuyển số tự nhiên n cho trước sang 
           hệ cơ số 2 và được lưu ở trong xâu St *)
      Type
        b : Array[0 ..  1] Of Char = ('0' , '1') ;
      Var
        du , So : Integer ;
        S : String ;
    
      Begin
        S := '' ; (* xâu rỗng *)
        So := n ;
        Repeat
          Du := So mod 2 ;
          So :=So div 2 ;
          S := b[du] + s ;
        Until So = 0 ;
        St := S ;
      End ;
    2) [CODE]Uses Crt ;
    Var a, b, c, x1, x2: real;
    (*================================*)
    Procedure Nhapabc(var aa,bb,cc: real);
    Begin
    Write('a='); Readln(aa);
    Write('b='); Readln(bb);
    Write('c='); Readln(cc);
    End;
    (*=================================*)
    Procedure GPTB2;
    Var Delta: real;
    Begin
    Delta:=sqr(b)-4*a*c;
    If Delta=0);
    End;
    Begin (* bắt đầu thủ tục nhập *)
    Input(a, 'a');
    Input(b, 'b');
    Input(c, 'c');
    End; (* kết thúc thủ tục nhập *)
    (*================================*)
    Procedure Kiemtra(a, b, c: Real);
    Begin
    If (a

  2. # ADS
    Circuit advertisement Google Adsense image
    Ngày tham gia
    Always
    Bài viết
    Many
    Circuito Google Adsense

 

 

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)

Các Chủ đề tương tự

  1. [Trắc Nghiệm] Bài 1: KHÁI NIỆM LẬP TRÌNH VÀ NGÔN NGỮ LẬP TRÌNH
    Bởi Mr.Còi trong diễn đàn Tin học nhà trường
    Trả lời: 0
    Bài viết cuối: 12-27-2011, 01:03 AM
  2. Pác nào siêu pascal tìm sai và sửa lỗi giúp em cái
    Bởi Hikaru Nguyễn trong diễn đàn Hỏi & Đáp
    Trả lời: 3
    Bài viết cuối: 04-30-2011, 11:34 AM
  3. [Toán] Chuyên đề PHƯƠNG TRÌNH & BẤT PHƯƠNG TRÌNH Đại Số
    Bởi Wizard trong diễn đàn Toán - Lý - Hóa - Sinh
    Trả lời: 2
    Bài viết cuối: 03-12-2011, 05:06 PM
  4. Giúp mình bài pascal 11
    Bởi Hikaru Nguyễn trong diễn đàn Các môn học khác
    Trả lời: 17
    Bài viết cuối: 02-22-2011, 11:52 AM
  5. Ai biết về pascal vào giúp em tí nào
    Bởi AnhTraj trong diễn đàn Hỏi & Đáp
    Trả lời: 19
    Bài viết cuối: 10-13-2010, 03:31 PM

Visitors found this page by searching for:

bai tap pascal ve chuong trinh con

bài tập pascal nâng cao có lời giải

trắc nghiệm pascal có đáp án

bài tập chương trình con pascal

bai tap chuong trinh con trong pascal

mot so bai tap pascal ve chuong trinh con

bai tap ve chuong trinh con trong pascal

bài tập về chương trình con trong pascal

bài tập và đáp án pascal

trac nghiem pascal co dap an

http:www.tranphuht.comfor@umshowthread.phpt=33345

bài tập chương trình con trong pascal

bài tập pascal dạng chương trình con

bài tập về chương trình con pascalbài tập pascal chương trình conbài tập về chương trình conbài tập pascal có chương trình conbai tap ve chuong trinh con tin hoc 11bai tap tin hoc ve chuong trinh contrac nghiem pascal chuong 2 co dap anbài tập trắc nghiệm pascal có đáp ánbài tập về chương trình con lớp 11bai tâp vê chương trinh con pascal tin hoc 11bai tap co ban tin hoc 11 ve chuong trinh conbai tap pascal co su dung chuong trinh con

Tag của Chủ đề này

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

1182
Lượt xem