Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
kết quả từ 1 tới 14 trên 14
  1. #1
    kenjoe119's Avatar
    kenjoe119 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Feb 2012
    Bài
    40
    Cảm ơn
    27
    Điểm
    0/0 bài viết
    VR power
    0

    Default Một số bài tập về Pascal!

    Bài tập về dạng câu lênh IF .. THEN
    1.Viết chương trình nhập vào ba số a,b,c in ra màn hình số nhò nhất,lớn nhất trong 3 số trên.
    2.Viết chương trình nhập vào 3 số a,b,c sắp xếp 3 số trên theo thứ tự tăng dần.
    3.Viết chương trính nhập vào 3 số a,b,c kiểm tra 3 số đó có thể lập thành 3 cạnh tam giác hay không?Nếu có đó là tam giác gì?(Vuông,nhọn hay tù)
    Bài tập về dạng câu lệnh FOR và WHILE:
    1.Viết chương trình giải bài toán tìm cặp số nguyên dương x và y là nghiệm của phương trình 2x + 4y =100.
    2.Viết chương trình in ra màn hình hình chữ nhật các dấu '*' với chiều dài và chiều rộng nhập từ bàn phím.(d=6,r=4)
    ******
    ******
    ******
    ******
    3.Viết chương trình nhập một số nguyên dương N in ra màn hình N số nguyên tố đầu tiên.
    Ví du: Với N=10 thì in ra 2 3 5 7 11 13 17 19 23 29
    4.Viết chương trình nhập vào một số nguyên dương N,Phân tích N thành tích các thừa số nguyên tố.
    Ví dụ N=30 thì N=2*3*5.
    Mong các bác giúp đỡ em!Cảm ơn rất nhiều!

  2. #2
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích kenjoe119 View Post
    Bài tập về dạng câu lênh IF .. THEN
    1.Viết chương trình nhập vào ba số a,b,c in ra màn hình số nhò nhất,lớn nhất trong 3 số trên.
    2.Viết chương trình nhập vào 3 số a,b,c sắp xếp 3 số trên theo thứ tự tăng dần.
    3.Viết chương trính nhập vào 3 số a,b,c kiểm tra 3 số đó có thể lập thành 3 cạnh tam giác hay không?Nếu có đó là tam giác gì?(Vuông,nhọn hay tù)
    1. nhập a,b,c -> gán min & max=a -> so sánh min & max với b và c, nếu số đag so sánh < min thì min:=số đag so sánh, max tương tự
    2. nhập a,b,c -> so sánh từng số với các số còn lại hoặc bạn có thể tìm min & max như b1 rùi in ra min, số còn lại, max
    3. nhập a,b,c ->
    Code:
    if (a+b)>c and (a+c)>b and (b+c>a) then writeln('la 3 canh cua tgiac') else
     begin
     writeln('0');
     readln;
     halt;
     end;
    -> rùi dùng 3 cái if để xét các trường hợp còn lại
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  3. Có 1 thành viên cảm ơn tansonpro9x cho bài viết này:
    kenjoe119 (02-11-2012)

  4. #3
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích kenjoe119 View Post
    Bài tập về dạng câu lệnh FOR và WHILE:
    1.Viết chương trình giải bài toán tìm cặp số nguyên dương x và y là nghiệm của phương trình 2x + 4y =100.
    2.Viết chương trình in ra màn hình hình chữ nhật các dấu '*' với chiều dài và chiều rộng nhập từ bàn phím.(d=6,r=4)
    ******
    ******
    ******
    ******
    3.Viết chương trình nhập một số nguyên dương N in ra màn hình N số nguyên tố đầu tiên.
    Ví du: Với N=10 thì in ra 2 3 5 7 11 13 17 19 23 29
    4.Viết chương trình nhập vào một số nguyên dương N,Phân tích N thành tích các thừa số nguyên tố.
    Ví dụ N=30 thì N=2*3*5.
    Mong các bác giúp đỡ em!Cảm ơn rất nhiều!
    1. rút gọn 2x+4y=100 => 2(x+2y)=100 => x+2y=50 -> vct dùng while thui
    2.
    Code:
    for i:=1 to dai do
     begin
     for j:=1 to rong do write('*');
     writeln;
     end;
    3. viết 1 ct con kiểm tra snt kiểu boolean ->
    Code:
    for i:=1 to n do if ktnt(i)=true then write(i,' ');
    4. cái này mih đã làm rùi nhưng quên hết rùi, sr ko giúp đc bạn. bao h nhớ lại đc thì mih up lên cho
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  5. Có 1 thành viên cảm ơn tansonpro9x cho bài viết này:
    kenjoe119 (02-11-2012)

  6. #4
    kenjoe119's Avatar
    kenjoe119 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Feb 2012
    Bài
    40
    Cảm ơn
    27
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Cảm ơn bác nhiều nha!

  7. #5
    kenjoe119's Avatar
    kenjoe119 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Feb 2012
    Bài
    40
    Cảm ơn
    27
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Trích tansonpro9x View Post
    1. nhập a,b,c -> gán min & max=a -> so sánh min & max với b và c, nếu số đag so sánh < min thì min:=số đag so sánh, max tương tự
    2. nhập a,b,c -> so sánh từng số với các số còn lại hoặc bạn có thể tìm min & max như b1 rùi in ra min, số còn lại, max
    3. nhập a,b,c ->
    Code:
    if (a+b)>c and (a+c)>b and (b+c>a) then writeln('la 3 canh cua tgiac') else
     begin
     writeln('0');
     readln;
     halt;
     end;
    -> rùi dùng 3 cái if để xét các trường hợp còn lại
    Bác có thể ghi rõ hơn giúp mình được không?Mình không rành lắm về Pascal lắm!Thanks!

  8. #6
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích kenjoe119 View Post
    Bác có thể ghi rõ hơn giúp mình được không?Mình không rành lắm về Pascal lắm!Thanks!
    1. có vẻ cái này đơn giản hơn đó
    Code:
    {nhập a,b,c}
    write('a= ');readln(a);
    write('b= ');readln(b);
    write('c= ');readln(c);
    {tìm min}
    if (a<b) and (a<c) then min:=a;
    if (b<a) and (b<c) then min:=b;
    if (c<a) and (c<b) then min:=c;
    {tìm max}
    if (a>b) and (a>c) then max:=a;
    if (b>a) and (b>c) then max:=b;
    if (c>a) and (c>b) then max:=c;
    2. code hơi dài chút
    Code:
    {nhập a,b,c lấy ở b1}
    if a>b then {so sánh a&b nếu a>b thì đổi chỗ}
     begin
     tg:=a;
     a:=b;
     b:=tg;
     end;
    if a>c then {so sánh a&c nếu a>c thì đổi chỗ}
     begin
     tg:=a;
     a:=c;
     c:=tg;
     end;
    if b>c then {so sánh b&c nếu b>c thì đổi chỗ}
     begin
     tg:=b;
     b:=c;
     c:=tg;
     end;
    3. [code]{nhập tương tự như trên}
    Code:
    if (a+b)>c and (a+c)>b and (b+c>a) then {chỉ khi đây là 3 cạnh của tam giác mới thực hiện}
     begin
     {xét các trường hợp vuông, nhọn, tù}
     end;
    else {ko phải 3 cạnh của t giác thì}
     begin
     writeln('0');
     readln;
     halt;
     end;
    Thay đổi nội dung bởi tansonpro9x; 03-11-2012 lúc 22:30.
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  9. Có 1 thành viên cảm ơn tansonpro9x cho bài viết này:
    kenjoe119 (04-11-2012)

  10. #7
    kenjoe119's Avatar
    kenjoe119 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Feb 2012
    Bài
    40
    Cảm ơn
    27
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Trích tansonpro9x View Post
    1. có vẻ cái này đơn giản hơn đó
    Code:
    {nhập a,b,c}
    write('a= ');readln(a);
    write('b= ');readln(b);
    write('c= ');readln(c);
    {tìm min}
    if (a<b) and (a<c) then min:=a;
    if (b<a) and (b<c) then min:=b;
    if (c<a) and (c<b) then min:=c;
    {tìm max}
    if (a>b) and (a>c) then max:=a;
    if (b>a) and (b>c) then max:=b;
    if (c>a) and (c>b) then max:=c;
    2. code hơi dài chút
    Code:
    {nhập a,b,c lấy ở b1}
    if a>b then {so sánh a&b nếu a>b thì đổi chỗ}
     begin
     tg:=a;
     a:=b;
     b:=tg;
     end;
    if a>c then {so sánh a&c nếu a>c thì đổi chỗ}
     begin
     tg:=a;
     a:=c;
     c:=tg;
     end;
    if b>c then {so sánh b&c nếu b>c thì đổi chỗ}
     begin
     tg:=b;
     b:=c;
     c:=tg;
     end;
    3. [code]{nhập tương tự như trên}
    Code:
    if (a+b)>c and (a+c)>b and (b+c>a) then {chỉ khi đây là 3 cạnh của tam giác mới thực hiện}
     begin
     {xét các trường hợp vuông, nhọn, tù}
     end;
    else {ko phải 3 cạnh của t giác thì}
     begin
     writeln('0');
     readln;
     halt;
     end;
    tg trong bài 2 là gì vậy bác?

  11. #8
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích kenjoe119 View Post
    tg trong bài 2 là gì vậy bác?
    tg là biến trung gian để đổi các g trị giữa 2 số, để cùng kiểu với các biến cần đổi vị trí
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  12. #9
    xuanquynhz's Avatar
    xuanquynhz vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Nov 2012
    Bài
    23
    Cảm ơn
    0
    Điểm
    6/5 bài viết
    VR power
    0

    Default

    Viết chương trình nhập một số nguyên dương N in ra màn hình N số nguyên tố đầu tiên.
    Ví du: Với N=10 thì in ra 2 3 5 7 11 13 17 19 23 29
    4.Viết chương trình nhập vào một số nguyên dương N,Phân tích N thành tích các thừa số nguyên tố.
    Ví dụ N=30 thì N=2*3*5.
    Mong các bác giúp đỡ em!Cảm ơn rất nhiều!

  13. #10
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích xuanquynhz View Post
    Viết chương trình nhập một số nguyên dương N in ra màn hình N số nguyên tố đầu tiên.
    Ví du: Với N=10 thì in ra 2 3 5 7 11 13 17 19 23 29
    mih mới làm đc cái này thui, hướng dẫn còn bạn viết code nhé:
    Code:
    function ktsnt(x:integer):boolean;
     var j:integer;
    begin
    ktsnt:=true;
    for j:=2 to x-1 do if j mod 2=0 then ktsnt:=false;
    end;
    viết ct nhập vào n -> for i:=1 to n do if ktsnt(i)=true then write(i,' ');
    cũng gần như hết rùi
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  14. Có 1 thành viên cảm ơn tansonpro9x cho bài viết này:
    kenjoe119 (10-11-2012)

  15. #11
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích xuanquynhz View Post
    4.Viết chương trình nhập vào một số nguyên dương N,Phân tích N thành tích các thừa số nguyên tố.
    Ví dụ N=30 thì N=2*3*5.
    mih mới tìm đc cái này trên google bạn xem thế nào, chuẩn thì tks

    Ví dụ: Phân tích 12=2*2*3. Ý tưởng: Thuật toán phân tích một số ra thừa số nguyên tố tương tự như thuật toán kiểm tra số nguyên tố. Điểm khác ở đây là khi kiểm tra số nguyên tố ta phải lần lượt kiểm tra các số nhỏ hơn sqrt(n) (căn bậc hai của n) có phải là ước của n hay không, còn khi phân tích ta chỉ việc chia n cho các số nguyên bắt đầu từ số nguyên tố nhỏ nhất là 2. Khi không chia được nữa thì ta tăng số chia lên 1 đơn vị, quá trình phân tích kết thúc khi n bằng 1.

    Code:
    VAR i,n :INTEGER;
    BEGIN
        Write ('Nhap n:');
        Readln(n);
        Write (n,'=');
        i:=2;
        REPEAT
            WHILE n MOD i <> 0 DO
                i:=i+1;
            Write(i);
            n:=n DIV i;
            IF n > 1 THEN
                write ('*');
        UNTIL n = 1;
        readln;
    END.
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  16. Có 2 thành viên cảm ơn tansonpro9x cho bài viết này:
    dqvn1 (10-01-2013), kenjoe119 (10-11-2012)

  17. #12
    lugia99bc's Avatar
    lugia99bc vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jun 2009
    Bài
    175
    Cảm ơn
    37
    Điểm
    27/22 bài viết
    VR power
    0

    Default

    ai giúp e bài này với ạ
    nhập 1 dãy ký tự , tìm khoảng trắng đầu tiên của dãy ký tự đó

  18. #13
    lyvinhloi.cntt's Avatar
    lyvinhloi.cntt vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Dec 2012
    Bài
    649
    Cảm ơn
    64
    Điểm
    164/152 bài viết
    VR power
    0

    Default

    Trích lugia99bc View Post
    ai giúp e bài này với ạ
    nhập 1 dãy ký tự , tìm khoảng trắng đầu tiên của dãy ký tự đó
    thuật toán: trong khi s[i] ko phải khoảng trắng thì tăng i lên.
    Nếu i lớn hơn độ dài xâu thì ko có khoảng trắng, còn ngược lại thì in i ra
    Điều quan trọng là Bạn hôm nay có giỏi hơn Bạn hôm qua không, chứ không phải Bạn có giỏi hơn người ta hay không.
    Email liên hệ: lyvinhloi.cntt@gmail.com

  19. #14
    lugia99bc's Avatar
    lugia99bc vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jun 2009
    Bài
    175
    Cảm ơn
    37
    Điểm
    27/22 bài viết
    VR power
    0

    Default

    tk bạn a nhe !!!!!!!!!!!!!!!!!!!!11111111

 

 

Quyền sử dụng

  • 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ể tự sửa bài viết của mình
  •