BÀI TẬP VỀ NHÀ 1 Viết chương trình(VCT) nhập vào 2 mảng có số phần tử bằng nhau, tạo một mảng thứ ba bằng tổng hai mảng đó Xuất ra màn hình các phần tử của ba mảng đó 2 VCT in ra mảng có 10 phần tử a[.]
BÀI TẬP VỀ NHÀ Viết chương trình(VCT) nhập vào mảng có số phần tử nhau, tạo mảng thứ ba tổng hai mảng Xuất hình phần tử ba mảng VCT in mảng có 10 phần tử a Phần tử lớn mảng {vị trí } b Phần tử nhỏ mảng {vị trí} c Tổng phần tử mảng Nhập vào mảng số nguyên cho biết có phần tử lớn 0, nhỏ 0, Nhập vào mảng số nguyên a In dãy số vừa nhập b In dãy số từ nhỏ đến lớn c In dãy số từ lớn đến nhỏ Cho mảng a[1 9] với phần tử số nguyên a Tính tổng số lẻ có mảng b Tính tổng số chẵn có mảng c Tính tổng số có mảng d Tính tổng số dương có mảng Nhập vào mảng gồm 10 số nguyên, nhập số từ bàn phím, tìm thấy báo có, ngược lại báo khơng có Nhập vào mảng với phần tử tên loại trái Nhập vào tên trái cây, máy tìm kiếm mảng, thấy báo có, ngược lại khơng báo hết Nhập vào 20 số thực, thơng báo hình a Một số thực có thuộc mảng hay khơng b Trong mảng có số thực số cần tìm, số vị trí náo Bài Tìm vị trí số lớn nhất, số nhỏ mảng có 10 phần tử.; Var A:array[1 10] of integer; i,j,max,min, vtrilon, vitrinho:integer; Begin repeat Write(‘ nhập số lượng phần tử mảng n=’); readln(n); Until na[j] then Begin Tg:=a[i]; A[i]:=a[j]; A[j]:=tg; End; Writeln(‘dãy sau xếp là’); For i:=1 to n Write (a[i]); { nhập vào số đếm xem số lần xuất hiện} Write(‘ nhập x=’); readln(x); Dem:=0; For i:=1 to n If a[i]=x then Dem:=dem+1; Write(‘ số lần xuất kí tự ‘,x,’ là:’, dem); { phần tử nhỏ x} For i:=1 to n If a[i]>x then Write(a[i]); Readln; End Bài VCT nhập vào dãy số nguyên có n phần tử xếp dãy theo thứ tự giảm dần, tính giá trị trung bình dãy Var A:array[1 20] of integer; S,n,i,j,tg: integer; Begin Write(‘ nhập số lượng phần tử dãy n=’); readln(n); For i:=1 to n Begin Write(‘nhập số a[‘,i,’]=’); realn(a[i]); { xếp dãy số giảm dần} For i:=1 to n-1 For j:=i+1 to n If a[i]0 then Dem:=dem+1; Writeln( ‘ mảng có Bài In n số chẵn lẻ mảng Var I,j,n, demchan, demle:integer; Chan,le:array[1 100] of integer; Begin Write(‘bạn muốn in số chẵn, số lẻ đầu tiên’); readln(n); { nhập vào mảng n số chẵn, n số lẻ đầu tiên} Demchan:=0; Demle:=0; For i:=1 to n*2 If (I mod 2=0) then Begin Demchan:=demchan+1; Chan[demchan]:=I; End Else Begin Demle:=demle+1; Le[demle]:=I; End; {in số chẵn, số lẻ đầu tiên} For j:=1 to demchan Write(chan[j],’ ‘); Writeln; For j:=1 to demle Write(le[j],’ ‘); Readln; end Bài In a N số lẻ bình phương b N số chẵn bình phương c Tổng bình phương n số lẻ d Tổng bình phương n số chẵn Var I,j,n:integer; Chan,le:array[1 100] of integer; Demchan,demle, tongchan, tongle: integer; Begin Write(‘ bạn muốn tính số chẵn, số lẻ n=’); readln(n); Demchan:=0; demle:=0; tongchan:=0; tongle:=0; For i:=1 to n*2 If (I mod 2=0) then Demchan:=demchan+1; Chan[demchan]:=I; End else begin demle:=demle+1; le[demle]:=I; end; {bình phương n số lẻ đầu tiên} For j:=1 to demle Write(le[j],’^2,’); Writeln; {bình phương n số chẵn đầu tiên} For j:=1 to demchan Write(chan[j],’^2,’); Writeln; {tổng bình phương n số lẻ đầu tiên} For j:=1 to demle Tongle:=tongle+le[j]*le[j]; {tổng bình phương n số chẵn đầu tiên} For i:=1 to demchan Tongchan:=tongchan+chan[j]*chan[j]; Writeln(‘tổng bình phương ‘,n,’số chẵn là’,tongchan); Writeln(‘tổng bình phương của’,n,’số lẻ là’,tongle); Readdln; end Bài Nhập dãy số nguyên Nhập số x bất kì, kiểm tra x có dãy số ngun khơng? Nếu có in vị trí Var N,I,x,dem:integer; A,b:array[1 18] of integer; Begin Write(‘ nhập số lượng phần tử mảng n=’); readln(n); For i:=1 to Begin Write(‘nhập số a[‘,I,’]=’); readln(a[i]); End; Write(‘ nhập phần tử x cần kiểm tra x=’); readln(x); Dem:=0; For i:=1 to 18 If (x=a[i]) then Begin Dem:=dem+1; B[dem]:=I; End; If dem>0 then Begin Writeln(‘ phần tử’,x,’ vị trí ‘); For i:=1 to dem Writeln(b[i],’,’,’ ‘); End Else Writeln(‘trong mảng khơng có phần tử’,x); Readln; End Bạn có 1000đ đem gửi ngân hang với lãi suất 8% tháng Sau tháng tiền lãi nhập vào để tính lãi suất tháng sau Bạn muốn để dành số tiền tăng lên x, phải để Var Thang:integer; Tien,lai,x:real; Begin Write(‘nhập số tiền tăng lên x=’); readln(x); Tien:=1000; Thang:=1; Repeat Lai:=tien*8/100; Tien:=tien+lai; Thang:=thang+1; Until tien>=x; Write (‘ bạn phải gửi tiền trong’,thang div 12,’nam’,thang mod 12,’thang); Write(‘ số tiền bạn rút là’,tien); Readln; End ... Readdln; end Bài Nhập dãy số ngun Nhập số x bất kì, kiểm tra x có dãy số ngun khơng? Nếu có in vị trí Var N,I,x,dem:integer; A,b:array[1 18] of integer; Begin Write(‘ nhập số lượng phần tử mảng... Write(‘nhập số a[‘,I,’]=’); readln(a[i]); End; Write(‘ nhập phần tử x cần kiểm tra x=’); readln(x); Dem:=0; For i:=1 to 18 If (x=a[i]) then Begin Dem:=dem+1; B[dem]:=I; End; If dem>0 then Begin... For i:=1 to n Begin Write(‘nhập số a[‘,i,’]=’); Readln(a[i]); End; {sắp xếp dãy số} For i:=1 to n-1 For j:=i+1 to n If a[i]>a[j] then Begin Tg:=a[i]; A[i]:=a[j]; A[j]:=tg; End; Writeln(‘dãy sau