Trang chủ Tin Học Lớp 8 Cho 2 mảng số nguyên A và B lần lượt...

Cho 2 mảng số nguyên A và B lần lượt có N và M số. Các phần tử trong cả 2 mảng A và B được sắp xếp theo thứ tự tăng dần Yêu cầu: Hãy tạo mạng C gồm N+M phần

Câu hỏi :

Cho 2 mảng số nguyên A và B lần lượt có N và M số. Các phần tử trong cả 2 mảng A và B được sắp xếp theo thứ tự tăng dần Yêu cầu: Hãy tạo mạng C gồm N+M phần tử từ tất cả các phần tử của A và B sao cho các phần tử của C cũng có thứ tự tăng dần Dữ liệu vào trong file: tronmang.inp - dòng đầu chứa 2 số N M (0<N, M< 50000) N dòng sau mỗi dòng chứa một số nguyên của mảng A M dòng tiếp theo chứa một số nguyên ứng với các phần tử của mảng B vd tronmnang.inp tronmang.out 3 2 1 1 2 2 2 5 4 2 5 4 thuật giải: so sánh số thứ nhất của mạng A với mảng B số nào nhỏ thì lấy if a[i]> b[i] then c[k]:= a[i] inc(i); else mấy bạn làm theo cách này nha ko cần file hoặc text

Lời giải 1 :

uses crt,math;
var a,b:array[0..50005] of longint;
    i,n,j,m:longint;
begin
    readln(n,m);
    for i:=1 to n do read(a[i]);
    for j:=1 to m do read(b[j]);
    a[n+1]:=max(a[n],b[m]) + 37;
    b[m+1]:=max(a[n],b[m]) + 37;
    i:=1;j:=1;
    while (i <= n) or (j <= m) do
        begin
            if a[i] < b[j] then
                begin
                    writeln(a[i]);
                    inc(i);
                end
            else
                begin
                    writeln(b[j]);
                    inc(j);
                end;
        end;
readln;
end.

Thảo luận

-- à mik bt rồi
-- giờ bạn giải thích bài bờm hộ
-- https://hoidap247.com/cau-hoi/2623040
-- hoàn thiện chương trình giúp mik với
-- bạn ơi
-- giúp với
-- https://hoidap247.com/cau-hoi/2647392
-- https://hoidap247.com/cau-hoi/2647392

Lời giải 2 :

var a:array[0..10000007] of longint;
    i,n,m,l:longint;
procedure sort(l,r:longint);
var i,j,x,tmp:longint;
begin
i := l; j := r; x := a[(i+j) div 2];
 repeat
   while a[i] < x do inc(i);
   while a[j] > x do dec(j);
   if (i <= j) then
     begin
        tmp := a[i];
        a[i] := a[j];
        a[j] := tmp;
        inc(i);dec(j);
     end;
 until (i > j);
if (l<j) then sort(l,j);
if (i<r) then sort(i,r);
end;
begin
readln(n,m);
l := n+m;
for i := 1 to l do readln(a[i]);
sort(1,l);
for i := 1 to l do
writeln(a[i]);
readln;
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK