bài tập mảng 1 chiều

Kiểm tra số chính phương trong mảng 1 chiều
Trước hết, chúng ta sẽ tìm hiểu khái niệm về số chính phương. Số chính
phương là gì? Số chính phương là một số mà tự nó là căn bậc hai của một số
tự nhiên khác, hay nói rõ hơn thì số chính phương là bình phương của một
số tự nhiên.Ví dụ: 289 là một số chính phương vì 289 = 17 bình phươn...
Thuật toán Pascal dưới đây sẽ giúp tìm số chính phương trong mảng 1 chiều.
uses crt;
type ArrInt = array[1..250] of integer;
Var n,i,x : integer;
a: ArrInt;
BEGIN
clrscr;
write('Nhap so phan tu: ');
readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,'= ');
readln(a[i]);
end;
writeln('Cac so chinh phuong co trong mang:');
for i:=1 to n do
begin
x:=trunc(sqrt(a[i]));
if sqr(x)=a[i] then
write(a[i]:4);
end;
readln;
END.
Trong đó lệnh hàm sqrt để lấy căn và hàm trunc để lấy phần nguyên.
bài 2 in ra màn hình pascal phần tử có dạng '3 mũ k cộng 2'
Viết chương trình nhập mảng 1 chiều có N phần tử. In ra màn hình các phần

tử có dạng 3k+2 (k=0,1,2,3...). Ý tưởng: Viết hàm kiểm tra xem phần tử a[i] có
dạng 3^k+2 hay không....
uses crt;
var b,j,i,x:integer;
a:array[1..100] of integer;
Function gt(k:integer):longint;
var j:integer;s:longint;


begin
s:=1;
for j:=1 to k do
s:=s*3;
gt:=s;
end;
{-------------------------------------}
Function kt(x:integer):boolean;
var i,j,k:integer;s:longint;
begin
kt:=false;
s:=1;
k:=0;
Repeat
inc(k);
gt(k);
Until gt(k)>=x-2;
if gt(k)=x-2 then kt:=true;
end;
{---------------------------------}
begin

clrscr;
Write('Nhap so phan tu= ');readln(x);
For i:=1 to x do begin
write('a[',i,']= ');
readln(a[i]);
end;
For i:=1 to x do
if kt(a[i]) then write(a[i],' ');writeln;
readln
end.


Bài 3.
Xóa các phần tử trùng nhau trong mảng 1 chiều (pascal)
10:13 Dinh
Nhập vào mảng 1 chiều gồm 1 dãy số nguyên N phần tử. Hãy xóa các phần
tử trùng nhau trong mảng và in kết quả ra màn hình. Ý tưởng: Duyệt mảng 1
chiều bằng 2 biến, nếu phát phát hiện phần tử nào trùng thì xóa phần tử ấy ra
khỏi mảng.

Program Bo_so_trung;
Const
Max=100;
Var
a:Array[1..Max] Of Integer;
i,j,k,n:Integer;
Begin
Writeln('XOA BO CAC SO TRUNG NHAU');
Writeln('------------------------');
Writeln;

Write('-Nhap so phan tu mang: ');
Readln(n);
For i:=1 To N Do
Begin
Write('-Phan tu A[',i,']= ');
Readln(a[i]);
End;
i:=2;
While i <= N Do
Begin
j:=1;
While a[j] <> a[i] Do
j:=j+1;
If j < i Then
Begin
For k:=i to n-1 Do
a[k]:= a[k+1];
n:=n-1;


End
Else
i:=i+1;
End;
Writeln;
Write('-Mang con lai: ');
For i:=1 to n Do
Write(a[i]:8);
Writeln;
Writeln('

Bam phim <Enter> de ket thuc ');
Readln
End.
Bài 4 :
Xóa 1 phần tử trong mảng 1 chiều
09:14 Dinh
Viết CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n
phần tử.
var
n,i,q,k,p:integer;
a,b:array [1..1000] of integer;
begin
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('Xoa pt co vi tri la: ');readln(p);
q:=0;
for i:=1 to n do
if q<>p then
begin
inc(q);
b[q]:=a[i];
end;


writeln('Mang sau khi xoa la: ');
for i:=1 to q do

write(b[i],' ');
readln
end.
Bài 5: Nhập thêm 1 phần tử vào mảng 1 chiều
09:11 Đô Rê Mon ĐZ
Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào
một số nguyên X.
var
n,i,q,k,p,:integer;
a,b:array [1..1000] of integer;
begin
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('-Chen pt va vi tri cua pt do: ');readln(k,p);
q:=0;
for i:=1 to n do
begin
inc(q);
if q=p then begin
b[q]:=k;
inc(q);
end;
b[q]:=a[i];
end;
writeln('-Mang sau khi chen la: ');
for i:=1 to q do

write(b[i],' ');
readln
end.
Bài 6 .Tìm các số mà tổng bình phương bằng chính nó


Đề bài: Cho dãy a1, a2, a3....a100 là dãy số nguyên gồm 4 chữ số có nghĩa.
Đưa ra màn hình tất cả các số thỏa mãn điều kiện tổng bình phương các chữ
số của nó bằng chính nó.

USES crt;
VAR a:ARRAY[1..100] OF INTEGER;
n,m,i,j,h,k,l:INTEGER;
BEGIN
clrscr;
FOR i:=1 TO 100 DO
BEGIN
a[i]:=random(8999)+1000;
END;
writeln('Cac so ma tong binh phuong cac chu so bang no la:');
FOR i:=1 TO 100 DO
BEGIN
m:=a[i] MOD 10;
n:=a[i] DIV 1000;
h:=(a[i] DIV 100)-n*10;
l:=((a[i] MOD 100)-m) DIV 10;
IF (a[i]= m*m+n*n+h*h+l*l) THEN write(a[i],',');
END;
readln
END.

Bài 7:
Tìm bội chung nhỏ nhất của N số (ví dụ: mảng 1 chiều)
Như trong bài viết Tìm UCLN và BCNN đã trình bày cách tìm tuy nhiên chỉ áp
dụng với trường hợp 2 số. Bài toán ra là tìm BCNN của mảng 1 chiều, vậy sẽ
phải viết chương trình như thế nào?
Bội số chung nhỏ nhất (The Least Common Multiple hay Lowest Common
Multiple) của một nhóm các số nguyên, gọi tắt là LCM, là số nhỏ nhất mà có
thể chia hết cho tất cả các số đó. Có nhiều giải pháp để tìm LCM của hai số
nguyên, một trong những giải pháp dễ dàng nhất là dùng thuật giải Euclid.


Cho hai số nguyên a và b, chúng ta có công thức LCM(a, b) = (a x b) /
GCD(a, b). Như vậy quá trình tính toán sẽ thông qua các bước sau:
1.
Bước 1. Sử dụng thuật toán Euclid để tìm ước chung lớn nhất GCD (a,
b)
2.
Bước 2. Tính giá trị a x b.
3.
Bước 3. Chia kết quả bước 2 cho kết quả bước 1 chúng ta được giá trị
LCM cần tìm.
Để tìm LCM của n số chúng ta đầu tiên chọn ra 2 số rồi tính LCM của chúng,
sau đó lấy thêm số khác để tính LCM của LCM mới tìm được và số mới chọn
ra, cứ như thế cho tới khi nào hết n số. Ví dụ tìm LCM của 2, 3 và 5. Đầu tiên
ta tính LCM(2, 3) = 6. Sau đó tìm LCM(6, 5) = 30.
uses crt;
var x, y, i, n, ucln, bcnn: longint;
a: array[1..100] of integer;
function h_ucln(x,y:integer):integer;
begin

while x<>y do
if x>y then
x:=x-y
else
y:=y-x;
h_ucln:=x;
end;
begin
clrscr;
repeat
write('Nhap N (N>=2): ');
readln(n);
until(n>=2);
for i:=1 to n do
begin
write('Phan tu thu ',i,' = ');
readln(a[i]);
end;
ucln:=h_ucln(a[1],a[2]);
bcnn:=(a[1]*a[2]) div ucln;
for i:=3 to n do


begin
ucln:=h_ucln(bcnn,a[i]);
bcnn:=(bcnn*a[i]) div ucln;
end;
writeln('bcnn la: ',bcnn);
readln;
end.

Bài 8:
Kiểm tra cấp số cộng trong pascal
Nhập dãy số gồm N số nguyên (N<100). Xác định xem đó có phải dãy số có
tính chất là cấp số cộng hay không.
uses crt;
Var
A:array[1..100] of integer;
i,n,d: integer;
CS: boolean;
BEGIN
clrscr;
repeat
Write(' Nhap vao so nguyen duong N <=100 : ');
readln(N);
Until (n>1) and (n<=100);
For i:=1 to n do
begin
repeat
write('A[',i,'] = ');
readln(A);
until abs(A)<=1000;
end;
d:=abs(A[2]-A[1]);
CS:=True;
For i:=2 to n do
IF (abs(A-A[i-1])<>d) then
begin
CS:=False;

break;
end;
IF CS then writeln('Day la cap so cong ')
else writeln(' Day ko phai la cap so cong ');
readln;
END.
Bài 9:
Đếm số nguyên tổ trong mảng 1 chiều
Trong bài viết trước, Code Pascal đã giới thiệu cách xác định tính nguyên tố
của 1 số được nhập vào từ bàn phím. Mở rộng đề bài ra thành đếm số
nguyên tố trong dãy số N được nhập vào từ bàn phím cũng không quá khó.
Có rất nhiều cách để giải bài toán này, cách dưới đây tuy không bám sát vào
cách làm trong bài viết Kiểm tra số nguyên tổ trong pascal nhưng cũng khá
dễ hiểu.
var i,j,n:Integer;
A:array[1..50] of Integer;
begin
write('nhap n:');
readln(n);
for i:=1 to n do
begin
write('nhap a[',i,'] ');
readln(a[i]);
end;
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);

until (a[i] mod j=0);
if j>(a[i] div 2) then inc(d);
j:=1;
end;
write('Co ',d,' so ngto trog day');


readln;
end.
Bài 10
Phân loại lứa tuổi
10:42 Đô Rê Mon ĐZ
Nhập họ tên và năm sinh của người và cho biết người này thuộc lứa tuổi nào:
sơ sinh, nhi đồng, thiếu niên, thanh niên, trung niên, người lớn tuổi. Biết rằng:
+ Sơ sinh tuổi từ 0->0
+ Nhi đồng tuổi từ 2->9
+ Thiếu niên tuổi từ 10->15
+ Thanh niên tuổi 16->32
+ Trung niên tuổi từ 33 -> 50
+ Người già tuổi từ 50 trở lên

uses crt;var
a:array[1..100] of longint;
i,n:longint;
begin
clrscr;
write('nhap so nguoi:');
readln(n);
for i:=1 to n do
begin

write('nhap tuoi cua nguoi thu ',i,':');
readln(a[i]);
end;
for i:=1 to n do
begin
write('nguoi thu',i,':');
case a[i] of
0:writeln('tre so sinh');
2..9:writeln('nhi dong');
10..5:writeln('thieu nien');
16..32:writeln('thanh nien');
33..50:writeln('trung nien');


Else writeln('nguoi gia');
end;
end;
readln;
end.
Bài 11
Sắp xếp mảng 1 chiều
Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng
theo thứ tự tăng dần và in kết quả ra màn hình.
Ý tưởng:
Cho biến i chạy từ 1 đến N-1, đồng thời cho biến j chạy từ i+1 đến N: Nếu
A[i]>A[j] thì đổi chổ A[i], A[j].
Dưới đây là thuật toán sắp xếp mảng 1 chiều:
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;

N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);


Readln;
End.
Tính trung bình cộng các số dương, âm nhập vào từ mảng 1 chiều
trong Pascal
Viết chương trình nhập số nguyên N (0 < N ≤ 10 000) và mảng a gồm N số
nguyên. Tính và in ra trung bình cộng của các số âm, số dương trong a.
Không tính số 0.
Ví dụ : a[] = {1, -6, 0, 3, -1}. Trung bình cộng là -0.75
PROGRAM tbc_am_duong_mang;
USES crt;

VAR a:ARRAY[1..100] OF REAL;
i,n,x,y:INTEGER;
tongam,tongduong,tba,tbd:REAL;
BEGIN
clrscr;
write('So phan tu cua day n= ');readln(n);
FOR i:=1 TO n DO
BEGIN
write('Nhap phan tu a[',i,']: ');
readln(a[i]);
END;
tongam:=0; x:=0;
FOR i:=1 TO n DO
IF a[i]<0 THEN
BEGIN tongam:=tongam+a[i];
x:=x+1;
END;
tba:=tongam/x;
write('TB cong cac so am la: ',tba:5:1);
writeln;
tongduong:=0; y:=0;
FOR i:=1 TO n DO


IF a[i]>0 THEN
BEGIN tongduong:=tongduong+a[i];
y:=y+1;
END;
tbd:=tongduong/y;
write('TB cong cac so duong la: ',tbd:5:1);

readln;
END.