Tin học [lớp 9] lập trình

Thảo luận trong 'Tin học cấp II' bắt đầu bởi mỳ gói, 20 Tháng hai 2018.

Lượt xem: 617

  1. mỳ gói

    mỳ gói Học sinh tiêu biểu Thành viên

    Bài viết:
    3,479
    Điểm thành tích:
    694
    Nơi ở:
    Tuyên Quang
    Trường học/Cơ quan:
    THPT NTT
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Viết chương trình nhập vào mảng số nguyên A gồm N phần tử (0 < N <= 20) và mảng số nguyên B gồm M phần tử (0 < M <= 20) với N, M nhập từ bàn phím.
    a- Xuất ra màn hình các phần tử của hai mảng A, B theo thứ tự tăng dần.
    b- Ghép hai mảng A, B thành mảng C sao cho mảng C có thứ tự tăng dần. Xuất mảng C ra màn hình.
     
  2. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    887
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    Mã:
    uses crt;
    var a,b,c:array[1..100] of integer;
    n,i,m,j,k:integer;
    begin
        clrscr;
        repeat
            write('Nhap n:');readln(n);
            if (n<1) or (n>20) then writeln('Nhap lai');
        until (n>=1) and (n<=20);
        repeat
            write('Nhap m:');readln(m);
            if (m<1) or (m>20) then writeln('Nhap lai');
        until (m>=1) and (m<=20);
        for i:=1 to n do
            begin
                write('a[',i,']:');readln(a[i]);c[i]:=a[i];
            end;
        for i:=1 to m do
            begin
                write('b[',i,']:');readln(b[i]);
            end;
        for i:=1 to n-1 do
        for j:=2 to n do
        if (i<j) and(a[i]>a[j]) then
        begin
            k := a[i];
            a[i]:=a[j];
            a[j]:=k;
        end;
        for i:=1 to m-1 do
        for j:=2 to m do
        if (i<j) and(b[i]>b[j]) then
        begin
            k := b[i];
            b[i]:=b[j];
            b[j]:=k;
        end;
        writeln('Mang A sau khi sap xep:');
        for i := 1 to n do write(a[i]:6);writeln;
        writeln('Mang B sau khi sap xep:');
        for i := 1 to m do write(b[i]:6);writeln;
        for i := n+1 to m+n do c[i]:=b[i-n];
        for i:=1 to m+n-1 do
        for j:=2 to n+m do
        if (i<j) and(c[i]>c[j]) then
        begin
            k := c[i];
            c[i]:=c[j];
            c[j]:=k;
        end;
        writeln('Mang C:');
        for i := 1 to m+n do write(c[i]:6);
    readln
    end.
    Hơi dài dòng tí ¯\_(ツ)_/¯
     
  3. luubatuyen

    luubatuyen Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    1
    Nơi ở:
    Nam Định
    Trường học/Cơ quan:
    THCS Phùng Chí Kiên

    Ai có kinh nghiệm giúp em mấy bài này với ạ
    em xin cảm ơn :)
     

    Các file đính kèm:

  4. Tran Quang Huy

    Tran Quang Huy Học sinh Thành viên

    Bài viết:
    45
    Điểm thành tích:
    21
    Nơi ở:
    Tiền Giang

    Vậy sao không cho j chạy từ i+1 cho nó khỏe.
     
  5. Tran Quang Huy

    Tran Quang Huy Học sinh Thành viên

    Bài viết:
    45
    Điểm thành tích:
    21
    Nơi ở:
    Tiền Giang

    Chắc tết bạn ăn không ngon, ngủ không yên với mấy bài này dữ lắm.
    70->80% là dạng dễ, còn lại hơi căng.:r10
     
  6. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    887
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    Mình quên :v
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->