Bt phần mang 1 chieu

bài tập giúp bạn bổ sung kiến thức về mảng một chiều cũng như các kĩ năng lập trình cơ bản choi người mới bắt đầu lập trình

Trang 1

Bài 1: CT nhập và xuất mảng 1 chiều, In mảng theo thứ tự ngược.

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

WRITE(‘IN MANG THEO THU TU NGUOC’);FOR i:=n DOWNTO 1 DO

WRITE(a[i]:4); WRITELN;

WRITE(‘MANG TRUOC KHI SAP XEP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);

Trang 2

Write( ‘CT SAP XEP MANG THEO THU TU TANG DAN’);FOR i:=1 TO n - 1 DO

For j:= i+1 to n doIF a[i]>a[j] thenBegin

Tam:= a[i];a[i]:= a[j];a[j]:= Tam;end;

WRITE(‘MANG SAU KHI SAP XEP TANG DAN:’);FOR i:=1 TO n DO

Write( ‘CT SAP XEP MANG THEO THU TU GIAM DAN’);FOR i:=1 TO n - 1 DO

For j:= i+1 to n doIF a[i]<a[j] thenBegin

Tam:= a[i];a[i]:= a[j];a[j]:= Tam;end;

WRITE(‘MANG SAU KHI SAP XEP GIAM DAN:’);FOR i:=1 TO n DO

Bài 3: CT nhập mảng 1 chiều, sau đó tìm phần tử lớn nhất và nhỏ nhất và vị trí của chúng trong mảng.

PROGRAM BAITAP3;

VAR a: Array[1 100] of INTEGER;

I, n, Max, Min, VitriMax, VitriMin : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);READLN(N);

FOR i:=1 TO n DObegin

Trang 3

Max:=a[1]; VitriMax:=1;Min:=a[1]; VitriMin:=1;Writeln;

For i:=1 to n do If Max< a[i] then

Max:= a[i];VitriMax:= i;End;

For i:=1 to n do If Min> a[i] then

Min:= a[i];VitriMin:= i;End;

Bài 4: CT nhập mảng 1 chiều, sau đó đếm số lần xuất hiện các:a Số 0

b Số dương.c Số âm.d Số chẵn.e Số lẻ.

PROGRAM BAITAP4;

I, n, dem, demduong, demam, demchan, demle : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);

Trang 4

READLN(N);FOR i:=1 TO n DO

Dem:=0; Demduong:=0; Demam:=0; Demchan:=0; Demle:=0;Writeln;

For i:=1 to n doIf a[i]=0 thenDem:=Dem +1Else

If a[i]>0 then

Demduong:=Demduong +1Else

Demam:=Demam +1;Writeln;

For i:=1 to n do

If (a[i] mod 2)= 0 then

Demchan:=Demchan +1Else

Demle:=Demle +1;Writeln;

Trang 5

WRITE(‘MANG TRUOC KHI CHEN:’);FOR i:=1 TO n DO

Write(‘Can chen so x=’);Readln(x);

Write(‘Vao vi tri:’);Reradln(Vitri);Writeln;

For i:= n+1 Downto Vitri+1 doa[i]:=a[i-1];

a[Vitri]:=x;

Trang 6

Write(‘MANG SAU KHI CHEN’); For i:=1 to n do

Write(a[i]);Writeln;

WRITE(‘MANG TRUOC KHI XOA:’);FOR i:=1 TO n DO

Write(‘Nhap vi tri muon xoa:’);Reradln(Vitri);

For i:=Vitri +1 to n-1 doa[i]:=a[i+1];

Write(‘MANG SAU KHI XOA’);For i:=1 to n do

Write(a[i]);Writeln;

*******************************************************************************

Trang 7

Bài 7: CT nhập mảng 1 chiều sau đó nhập một số x Kiểm tra số x vừa nhập có nằm trong mảng hay không Nếu có thì in vị trí của phần tử đó trong mảng Nếu tìmđược ở nhiều vị trí thì In vị trí đầu tiên tìm được.

Write(‘ Nhap so can tim x=’);Readln(x);

While ((i<=n) and (a[i]<>x)) doi:=i+1;

If i<= n thenbegin

Write(‘ Phan tu x= ’,x,’ vua nhap co trong mang’); Write(‘ No nam o vi tri:’, i);

Write(‘ Phan tu x= ’,x,’ vua nhap khong co trong mang’);Writeln;

Bài 8: CT nhập mảng 1 chiều Sau đó nhập một số x Kiểm tra số x vừa nhập có nằm trong mảng hay không Nếu có thì in vị trí của phần tử đó trong mảng Nếu tìmđược ở nhiều vị trí thì In tất cả các vị trí tìm được.

PROGRAM BAITAP5;

Trang 8

VAR a: Array[1 100] of INTEGER; b: Array[1 100] of INTEGER;i, n, x : INTEGER;

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);READLN(N);

FOR i:=1 TO n DObegin

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO WRITE(a[i]:4);

Write(‘ Nhap so can tim x=’);Readln(x);

FOR i:=1 TO n DO If a[i] = x then

Dem:=Dem +1;b[dem]:=i

If dem>0 thenbegin

Write(‘ Phan tu x = ’,x,’ vua nhap co trong mang’);Write(‘ No nam o cac vi tri:’);

FOR i:=1 TO n DO Write(b[i] :4);

Write(‘ Phan tu x= ’,x,’ vua nhap khong co trong mang’);Writeln;

Bài 9: CT nhập mảng 1 chiều Sau đó a In các phần tử dương của mảng.b In các phần tử âm của mảng.

Trang 9

c In các phần tử chẵn của mảng.d In các phần tử lẻ của mảng.

WRITELN;Demduong:= 0;For i:= 1 to n do If a[i]>0 then

Demduong:= Demduong + 1;b[demduong]:= a[i];

Demam:= 0;For i:= 1 to n do If a[i] < 0 then

Demam:= Demam + 1;b[demam]:= a[i];

If Demam >0 then

Writeln(‘ Cac phan tu am trong mang la:’);FOR i:=1 TO demam DO

Trang 10

WRITE(b[i]:4);Writeln;

Demchan:= 0;For i:= 1 to n do

If (a[i] mod 2) = 0 thenbegin

Demchan:= Demchan + 1;b[demchan]:= a[i];

Demle:= 0;For i:= 1 to n do

If (a[i] mod 2) = 1 thenbegin

Demle:= Demle + 1;b[demle]:= a[i];and;

If Demle >0 then

Writeln(‘ Cac phan tu le trong mang la:’);FOR i:=1 TO demle DO

WRITE(b[i]:4);Writeln;

Bài 10: CT nhập mảng 1 chiều Sau đó tínha Tổng các phần tử của mảng

b Tổng các phần tử dương của mảngc Tổng các phần tử âm của mảngd Tổng các phần tử chẵn của mảnge Tổng các phần tử lẻ của mảng

(Tương tự tính tổng bình phương, tổng lập phương)

PROGRAM BAITAP10;

i, n, tong, tongduong, tongam, tongchan, tongle : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);

Trang 11

READLN(N);FOR i:=1 TO n DO

WRITELN;Tong:= 0;

For i:=1 to n do

Tong:= Tong + a[i];

Writeln(‘ Tong cac phan tu cua mang la:’, Tong);Writeln;

Tongduong:= 0;For i:=1 to n do

If a[i] >0 then

Tongduong:= Tongduong + a[i];

Writeln(‘ Tong cac phan tu duong cua mang la:’, Tongduong);Writeln;

Tongam:=0;For i:=1 to n do

If a[i] <0 then

Tongam:= Tongam + a[i];

Writeln(‘ Tong cac phan tu am cua mang la:’, Tongam); Writeln;

Tongchan:= 0;For i:=1 to n do

If (a[i] mod 2) = 0 then

Tongchan:= Tongchan + a[i];

Writeln(‘ Tong cac phan tu chan cua mang la:’, Tongchan); Writeln;

Tongle:= 0;For i:=1 to n do

If (a[i] mod 2) = 1 then Tongle:= Tongle + a[i];

Writeln(‘ Tong cac phan tu le cua mang la:’, Tongle); Writeln;

Readln;END.