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

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bán đấu giá ủng hộ từ thiện

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

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

Tin tức công nghệ mới
Trang 1/3 1 2 3 cuốicuối
kết quả từ 1 tới 15 trên 32
  1. #1
    kaka7596's Avatar
    kaka7596 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jul 2009
    Bài
    120
    Cảm ơn
    24
    Điểm
    14/13 bài viết

    Default Bài tập Pascal lớp 8

    Nhập 1 số N nguyên dương . Viết ra màn hình 1 mảng từ 1 đến n , sắp xếp theo thứ tự tăng dần và nhỏ dần .
    Làm giúp em nhé , em sắp thi rùi .

  2. Có 1 thành viên cảm ơn kaka7596 cho bài viết này:
    win 8 (22-06-2011)

  3. #2
    V_B_N's Avatar
    V_B_N vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Apr 2009
    Đến từ
    Cam Ranh
    Bài
    72
    Cảm ơn
    19
    Điểm
    24/17 bài viết

    Default

    bài này bạn chỉ việc so sánh mảng a[i] và a[j] thôi!Cụ thể là
    for i:=1 to n-1 do
    for j:=n dowto i do
    if a[i]>a[j] then
    begin
    tam:=a[i];
    a[i]:=a[j];
    a[j]:=tam;
    end;
    for i:=1 to n do
    write(a[i]:0:3);
    còn nếu từ lớn đến bé thì so sánh ngược lại!
    WHEN I GET OLDER
    I'LL BE STRONGER
    THEY'LL CALL ME FREEDOM

    Give me freedom, give me fire, give me reason, take me higher
    Celebration its around us, every nations, all around us

  4. Có 3 thành viên cảm ơn V_B_N cho bài viết này:
    bienhongtuan (24-08-2010), kaka7596 (07-05-2010), win 8 (22-06-2011)

  5. #3
    Fanto04's Avatar
    Fanto04 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Nov 2009
    Bài
    251
    Cảm ơn
    103
    Điểm
    126/84 bài viết

    Default

    Trích kaka7596 View Post
    Nhập 1 số N nguyên dương . Viết ra màn hình 1 mảng từ 1 đến n , sắp xếp theo thứ tự tăng dần và nhỏ dần .
    Làm giúp em nhé , em sắp thi rùi .
    Của bạn đây
    PHP Code:
    Uses crt;
    Var 
    a:array [1..1000of word;
          
    i,j,n,temword;
    Begin
        Clrscr
    ;
        
    write ('Nhap 1 so n(n>0): ');
        
    readln (n);
        
    Randomize;    { goi thu tuc Randomizetao so ngau nhien}
        for 
    i:=1 to n do
            
    a[i] := 1+Random (n);
        
    writeln ('Mang vua tao la');
        for 
    i:=1 to n do
            
    write (a[i] :4);
                 
    writeln;

        {         
    tang dan            }

        for 
    i:=1 to n-do
            for 
    j:=n downto i do
                if 
    a[i]>a[jthen
                begin
                    tem
    :=a[i];
                    
    a[i]:=a[j];
                    
    a[j]:=tem;
                
    end;
        
    writeln ('Sap xep tang dan');
        for 
    i:=1 to n do 
            
    write (a[i] :4);
                 
    writeln

        {        
    giam dan            }

        for 
    i:=1 to n-do
            for 
    j:=n downto i do
                if 
    a[i]<a[jthen
                begin
                    tem
    :=a[i];
                    
    a[i]:=a[j];
                    
    a[j]:=tem;
                
    end;
        
    writeln ('Sap xep giam dan');
        for 
    i:=1 to n do 
            
    write (a[i] :4);
        
    readln;
    End
    Lâu rồi k đụng tới Pascal nên mình k biết chạy đc k. Bạn test lại nha. Nếu chạy đc thì thanks cho mình cái
    "Keep it simple:

    as simple as possible, but no simpler !"
    Albert Einstein

  6. Có 5 thành viên cảm ơn Fanto04 cho bài viết này:
    alberthoang007 (07-09-2010), Anh_lovely (20-04-2010), bossbeo (03-05-2010), kaka7596 (07-05-2010), win 8 (22-06-2011)

  7. #4
    kaka7596's Avatar
    kaka7596 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jul 2009
    Bài
    120
    Cảm ơn
    24
    Điểm
    14/13 bài viết

    Default

    Làm thêm cho em câu này : xem mảng trên có bao nhiêu số khác nhau ? (bài 1)
    bài 2 : Lập trình nhập 1 số nguyên dương n từ bàn phím rùi chuyển số đó từ hệ thập phân sang hệ nhị phân

  8. #5
    bluesky10696's Avatar
    bluesky10696 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Oct 2009
    Bài
    11
    Cảm ơn
    9
    Điểm: 1/1 bài viết

    Default Lập trình Pascal.........

    Cả nhà, giải hộ các bài tập Pascal cho em với, mai thi rồi.........

    B1 : Hãy mô tả thuật toán giải bài toán tính tổng A {a1, a2..........an} cho trước.

    B2 : Viết chương trình tính tổng dãy sổ in ra màn hình dãy số vừa nhập

  9. Có 1 thành viên cảm ơn bluesky10696 cho bài viết này:
    win 8 (22-06-2011)

  10. #6
    ididnotcry's Avatar
    ididnotcry vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    May 2009
    Bài
    1
    Cảm ơn
    0
    Điểm: 1/1 bài viết

    Default

    Bài 1 mô tả thuật toán tui ko biết làm cái nớ là tui ngu nhất
    bài 2
    program tinh_tong;
    uses crt;
    var
    a: array[1..100] of integer;
    n,i,s: integer;
    begin
    clrscr;
    readln(n);
    for i:=1 to n do
    begin
    writeln(a[i]);
    end;
    for i:=1 to n do s:=s+a[i];
    writeln( 'tong cua day so la',s);
    for i:=1 to n do
    write(a[i]:4);
    readln
    end.

  11. Có 1 thành viên cảm ơn ididnotcry cho bài viết này:
    win 8 (22-06-2011)

  12. #7
    firend96's Avatar
    firend96 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2009
    Bài
    8
    Cảm ơn
    5
    Điểm
    0/0 bài viết

    Default

    the ban cho minh hoi cach giai bai nay dc khong nhe !!!!
    tinh tu luc 6 gio cac den bao giao thong bat dau bat den do 15 giay den xanh 10 giay den vang 5 giay nhap tu ban phim mot so gio hoi luc do den nao dang sang

    ---------- Post added at 08:05 ---------- Previous post was at 08:04 ----------

    ho minh nhe
    day la bai tap cua doi tuyen tin hoc cua truong

  13. #8
    ALiRom's Avatar
    ALiRom vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Aug 2008
    Bài
    9
    Cảm ơn
    4
    Điểm: 1/1 bài viết

    Default

    cho mình hỏi tính từ lúc 6h sáng phải ko, chừng nào nó ngừng hoạt động ?
    thân !

  14. #9
    Chitrung97's Avatar
    Chitrung97 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2010
    Bài
    3
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    @firend96
    Mình hy vọng là trả lời đúng câu hỏi của bạn.

    uses crt;
    var
    a,b,c,d:integer;
    begin
    write('Nhap gio:');readln(a);
    write('Nhap giay:');readln(b);
    c:=(a-6)*360+b;
    d:=c mod 30;
    if d<=15 then write('Den do')
    else if d<=25 then write('Den xanh')
    else write('Den vang');
    readln
    end.

  15. #10
    kien_coi_1997's Avatar
    kien_coi_1997 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Apr 2009
    Đến từ
    Hà nội
    Bài
    1.116
    Cảm ơn
    693
    Điểm
    1.254/559 bài viết

    Default

    tham khảo cái này nhe kaka7596

    chuyển hệ cơ số tùy ý
    Blog về Pascal_chương trình pascal_ game pascal...
    Pascal-Chương trình hay, Unit hay, Game Pascal, các phần hỗ trợ trong Pascal.
    My blog: http://vn.360plus.yahoo.com/kien_coi_1997

  16. #11
    thaotrinh0908's Avatar
    thaotrinh0908 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Sep 2009
    Bài
    80
    Cảm ơn
    293
    Điểm
    12/9 bài viết

    Default

    cam on nhieu!

  17. #12
    tranhungpoloi's Avatar
    tranhungpoloi vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Oct 2008
    Bài
    175
    Cảm ơn
    73
    Điểm
    84/42 bài viết

    Default

    Các chú học sớm thế, anh 11 mới được học, đại học lại học lại

  18. #13
    thaotrinh0908's Avatar
    thaotrinh0908 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Sep 2009
    Bài
    80
    Cảm ơn
    293
    Điểm
    12/9 bài viết

    Default

    Hihi. Lop 8 la loi di hoc pascal het roi. Ai cung noi hoc pascal de bi dien. Con GV khi dung lop thi noi chi can biet chu khong can hieu, va giag 10 hieu 1 la ok.
    Toi nghi neu bat hs lop 8 hieu 100% chuong trinh thi hoi kho. Biet la du roi. Yeu cau cao may hs thi hsg thoi!
    Don't give up - Can't give up - NEVER GIVE UP!!!
    http://vn.360plus.yahoo.com/NHC-91/

  19. #14
    anhhuynhiamaboy's Avatar
    anhhuynhiamaboy vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2010
    Bài
    23
    Cảm ơn
    19
    Điểm
    26/8 bài viết

    Wink Cách giải đơn giản nhất đây

    program UCLN;
    uses crt;
    var i,,a,b,u:integer;
    begin
    write('Nhap a: ');readln(a);
    write('Nhap b: ');readln(b);
    for i:=1 to a do
    if (a mod i =0) and (b mod i=0) then u:=i;
    write('UCLN:= ',u);
    readln;
    end.

  20. #15
    phamduychinh's Avatar
    phamduychinh vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2008
    Bài
    20
    Cảm ơn
    3
    Điểm
    3/3 bài viết

    Default

    Trích kaka7596 View Post
    Làm thêm cho em câu này : xem mảng trên có bao nhiêu số khác nhau ? (bài 1)
    bài 2 : Lập trình nhập 1 số nguyên dương n từ bàn phím rùi chuyển số đó từ hệ thập phân sang hệ nhị phân
    bài 1hỏi thêm)
    d:=1;
    for i:=2 to n do
    if a[i]<> a[1] then d:=d+1;
    if d=1 then d:=0;
    write(d);
    bài 2:
    var n:integer;
    x:string;
    begin
    readln(n);x:='';
    while n<>0 do
    begin
    if n mod 2 = 0 then x:='0'+x else x:='1'+x;
    n:=n div2 ;
    end;
    write(x:5);
    readln;
    end.
    Thay đổi nội dung bởi phamduychinh; 05-09-2010 lúc 14:00.

  21. Có 1 thành viên cảm ơn phamduychinh cho bài viết này:
    auauau97 (15-04-2012)

 

 
Trang 1/3 1 2 3 cuốicuối

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
  •