bai tap phan mang

V

vuongnam.9390

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

chao moi nguoi minh la thanh vien moi va hien tai minh co nhung bai tap khong lam duoc.nho moi nguoi ai lam duoc thi giup minh n
8. Cho 2 mảng số nguyên: Mảng A có m phần tử, mảng B có n phần tử.
a/ Sắp xếp lại các mảng đó theo thứ tự giảm dần.
b/ Trộn 2 mảng đó lại thành mảng C sao cho mảng C vẫn có thứ tự giảm dần (Không được xếp lại mảng C).
9. Đọc vào n số nguyên từ bàn phím
a) Đếm các số chia hết cho 3.
b) Đếm các số lớn hơn 10.
c) Đếm các số nằm trong đoạn [10,500].
d) Đếm xem có bao nhiêu số bằng số lớn nhất.
10. Đọc vào n số nguyên từ bàn phím
a) Tính tổng và trung bình cộng của các số đã cho.
b) Tính tổng các số lẻ và trung bình cộng các số chẵn.
c) Tính trung bình cộng của các số thuộc đoạn [10,100].
11. Đọc vào từ bàn phím dãy n số nguyên. Sắp xếp các số lẻ lên đầu dãy, số chẵn xuống cuối dãy. In ra dãy trước và sau khi sắp xếp.
12. Đọc vào n số. Đọc thêm một số x. Chèn số x vào vị trí thứ 2 của dãy. Đưa ra màn hình dãy trước và sau khi chèn x.
13. Đọc vào n số. Đọc thêm 1 số x. Chèn số x vào vị trí thứ k của dãy, với k đọc từ bàn phím. Nếu k>n thì thêm x vào vị trí thứ n+1. Đưa ra màn hình dãy trước và sau khi chèn x.
14. Viết chương trình nhập vào từ bàn phím mảng 2 chiều B có n dòng, m cột. In ra màn hình mảng 2 chiều đó.
15. Nhập vào mảng 2 chiều B có n dòng, m cột. Đếm xem có bao nhiêu phần tử B[i,j] chia hết cho (i+j) và tính tổng của chúng. Đưa ra mảng B và các kết quả tính toán ra màn hình.
16. Đọc vào dãy gồm n số. Xoá bỏ số ở vị trí thứ k (xoá bỏ phần tử thứ k) của dãy, với k đọc từ bàn phím. Đưa dãy ban đầu và dãy sau khi xoá ra màn hình.
17. Đọc vào dãy n số nguyên từ bàn phím. Đếm xem trong dãy có bao nhiêu số là số nguyên tố. Đưa ra màn hình số lượng và các số là số nguyên tố.
 
M

mikelhpdatke

8. Cho 2 mảng số nguyên: Mảng A có m phần tử, mảng B có n phần tử.
a/ Sắp xếp lại các mảng đó theo thứ tự giảm dần.
b/ Trộn 2 mảng đó lại thành mảng C sao cho mảng C vẫn có thứ tự giảm dần (Không được xếp lại mảng C).

Mã:
uses crt;
type ArrInt = array[1..100] of integer;
var n,i,j,k,tm: integer;
    a,b,c: ArrInt;

Procedure nhap(var arr: ArrInt);
begin
  for i:=1 to n do
  begin
   write('Phan tu thu ',i,' = ');
   readln(arr[i]);
  end;
end;

Procedure ghep_mang;
begin
 i:=1;
 j:=1;
 k:=1;
 repeat
  if((a[i]>=b[j])and(i<=n))or(j>n) then
  begin
   c[k]:=a[i];
   k:=k+1;
   i:=i+1;
  end;
  if((a[i]<b[j])and(j<=n))or(i>n) then
  begin
   c[k]:=b[j];
   k:=k+1;
   j:=j+1;
  end;
 until(k>2*n);
end;

Procedure sap_xep(var arr: ArrInt);
begin
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if arr[i]<arr[j] then
   begin
    tm:=arr[i];
    arr[i]:=arr[j];
    arr[j]:=tm;
   end;
end;

begin
 clrscr;
 write('Nhap so phan tu cua day so, N= ');
 readln(n);
 writeln('Nhap mang a[]: ');
 nhap(a);
 writeln('Nhap mang b[]: ');
 nhap(b);
 sap_xep(a);
 sap_xep(b);
 ghep_mang;
 writeln('Mang sau khi ghep: ');
 for i:=1 to 2*n do
  write(c[i],' ');
 writeln;
 readln;
end.

9. Đọc vào n số nguyên từ bàn phím
a) Đếm các số chia hết cho 3.
b) Đếm các số lớn hơn 10.
c) Đếm các số nằm trong đoạn [10,500].
d) Đếm xem có bao nhiêu số bằng số lớn nhất.

Mã:
Var A:array[1..100] Of integer;
n,i,d3,d10,dem,d:integer;
BEGIN
 Readln(n);
d3:=0;
d10:=0;
dem:=0;
d:=-1;
For i:=1 to n do 
   Begin
     readln(A[i]);
     If A[i] mod 3=0 then inc(d3);
     If A[i]>10 then inc(d10);
     If (A[i]>=10) and (A[i]<=500) then inc(dem);
     If A[i]>max then max:=A[i];
 End;
For i:=1 to n do if A[i]=max then inc(d);

Writeln('Co ', d3,' so chia het cho 3');
Writeln('Co ', d10,' so  >10 ');
Writeln('Co ', dem,' so trong khoang [10..500]');
Writeln('Co ', d,' so bang so lon nhat');
readln
end.

11. Đọc vào từ bàn phím dãy n số nguyên. Sắp xếp các số lẻ lên đầu dãy, số chẵn xuống cuối dãy. In ra dãy trước và sau khi sắp xếp.

Mã:
Var n:integer;
      A:array[1..100] Of integer;
      
Procedure Init;
 Var i:integer;
 Begin
     Readln(n);
     For i:=1 to n do readln(A[i]);
     Writeln;
  For i:=1 to n do write(A[i],' ');writeln;
 End;
Procedure Xuly;
 Var i,j,t:integer;
  Begin
  For i:=1 to n do
     If A[i] mod 2=1 then
       Begin
          For j:=1 to i-1 do
               If A[j] mod =0 then
                   Begin
                     t:=A[i];
                     A[i]:=A[j];
                     A[j]:=t;
                     Break;
                    End;
        End;
writeln;
 For i:=1 to n do write(A[i],' ');
End;

BEGIN
Init;
Xuly;
readln
End.

12. Đọc vào n số. Đọc thêm một số x. Chèn số x vào vị trí thứ 2 của dãy. Đưa ra màn hình dãy trước và sau khi chèn x.

Mã:
Var n,x:integer;
     A:array[1..100] Of integer;
Procedure Init;
Var i,j:integer;
 Begin
  Readln(n, x);
  For i:=1 to n do readln(A[i],' ');
  writeln;
  For i:=1 to n do write(A[i],' ');writeln;
  For i:= n+1 downto 3 do A[i]:=A[i-1];
   inc(n);
 A[2]:=x;

   For i:=1 to n do write(A[i],' ');writeln;
End;


BEGIN
Init;
readln
End.

13. Đọc vào n số. Đọc thêm 1 số x. Chèn số x vào vị trí thứ k của dãy, với k đọc từ bàn phím. Nếu k>n thì thêm x vào vị trí thứ n+1. Đưa ra màn hình dãy trước và sau khi chèn x.


Tương tư bài 12
 
Last edited by a moderator:
C

cuong276

10. Đọc vào n số nguyên từ bàn phím
a) Tính tổng và trung bình cộng của các số đã cho.
b) Tính tổng các số lẻ và trung bình cộng các số chẵn.
c) Tính trung bình cộng của các số thuộc đoạn [10,100].
Mã:
var     a:array[1..100]of integer;
        i,s1,d,n:integer;
        s:real;
Begin
        write('n= ');readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']=');
                        readln(a[i]);
                end;
        s:=0;
        for i:=1 to n do s:=s+a[i];
        s:=s/n;
        writeln('trung binh cong cua cac so la: ',s:2:2);
        s:=0;
        s1:=0;
        d:=0;
        for i:=1 to n do
                begin
                        if a[i] mod 2=0 then
                                begin
                                        s:=s+a[i];
                                        inc(d);
                                end;
                        if a[i] mod 2=1 then s1:=s1+a[i];
                end;
        s:=s/d;
        writeln('tong cac so le la: ',s1);
        writeln(' trung binh cong cac so chan la: ',s:2:2);
        s:=0;
        d:=0;
        for i:=1 to n do
                if (a[i]<=100) and (a[i]>=10) then
                        begin
                                s:=s+a[i];
                                inc(d);
                        end;
        s:=s/d;
        writeln('TBC cac so thuoc doan [10,100] la: ', s:2:2);
        readln;
end.
 
T

thanhngabkav

baif 16

var i,k:integer;
s,s1:string;
begin
write('nhap xau can xu li: '); readln(s);
write('nhap vi tri cua ki tu can xoa: '); readln(k);
s1:='';
for i:=1 to k-1 do s1:=s1+s;
for i:=k+1 to length(s) do s1:=s1+s;
writeln('xau da xoa ki tu duoc yeu cau la: ',s1);
readln;
end.
 
M

megamanxza

Bài 17


Uses crt;
var a: array [1..1000] of integer;
i, n, dem: integer;
function KT (so: integer) : boolean;
var z: integer;
begin
z:=2; while so mod z <> 0 do inc (z);
if so=z then KT:=True else KT:=False;
end;
begin
clrscr;
write ('Nhap so phan tu: '); readln (n);
for i:= 1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a);
if KT(a)=True then inc (dem);
end;
if dem=0 then
begin
write ('Khong co so nguyen to!');
readln; exit;
end;
writeln (Day co ',dem,' so nguyen to: ');
for i:= 1 to n do
if KT(a)=True then write (a,' ');
readln
end.


Nhấn Thanks và Đúng cho mình nhá! ;)
 
P

pufaui

giúp mình với

1/Viết chương trình sắp xếp các số trong mảng a theo thứ tự tăng dần các số lẻ,các số chẵn giữ nguyên vị trí.
2/Với số n , các số<=n hoặc là số nguyên tố hoặc ước một trong các số <=n, được gọi là dãy số hạnh phúc.Viết chương trình in ra dãy số hạnh phúc của số n.
3/Viết chương trình nhập vào ngày, tháng, năm. In ra màn hình cho biết ngày nhập vào là ngày thứ mấy trong năm.
4/Biết ngày 01/01/2013 là ngày thứ ba trong tuần. Viết chương trình nhập vào 1 ngày bất kì trong năm 2013, in ra màn hình kết quả cho biết ngày vừa nhập là ngày thứ mấy trong tuần.
5/Tìm vị trí của số nguyên âm lớn nhất trong dãy số nguyên cho trước. Nếu tìm được nhiều hơn 2 vị trí thì chỉ ra vị trí đầu tiên xuất (dãy số nguyên được đánh số bắt đầu bằng 1).
6/Chỉ số ATOM:
Mỗi công thức hóa học được biểu diễn bởi một dãy từng nhóm ký hiệu hóa học các nguyên tố (mỗi nguyên tố là 1 kí tự) tiếp theo là một số nguyên mô tả số nguyên tử mỗi nguyên tố(số này không vượt qua 99).số 1 được bỏ qua khi chỉ có 1 nguyên tử của nguyên tố hiện diện trong công thức .ví dụ: CH4 -> 5. Viết chương trình tính chỉ số ATOM
7/ Có ba loại nhiệt độ : C,F,K. Ta có công thức chuyển đổi: F=\frac{9}{5}.C+32;K=C+273.15. Viết chương trình đổi ra độ C,F,K khi cho 1 loại độ (C hoặc F hoặc K)
Ví dụ: 20 C . In ra : Nhiet do F: 68
Nhiet do C: 20
Nhiet do K: 293.15
HẾT​
GIÚP MÌNH NHE THỨ HAI MÌNH KIỂM TRA RỒI
 
Top Bottom