Bài 3 5,0 đ: Viết chương trình nhập mảng n số nguyên a Sắp xếp mảng theo thứ tự giảm dần b Cho biết mảng có bao nhiêu số chẳn c Nhập số nguyên k, xoá số hạng thứ k vừa nhập của mảng[r]
(1)ÔN TẬP THEO BỘ ĐỀ ĐỀ NGHỊ Đề1 (TP) Bài (3,5 điểm) Viết chương trình nhập từ bàn phím hai số nguyên dương x, y từ bàn phím, in màn hình a) Tìm các ước chung x, y và đếm số các ước chung đó b) Rút gọn đến tối giản cho phân số x / y c) Nhập thêm số nguyên z Rồi viết chương trình tìm BCNN(x,y,z) { Voi x, y nhan gia tri ban đầu câu a } Bài (3,5 điểm) Viết chương trình nhập vào từ bàn phím số nguyên dương n (n≤10000), sau đó t ính và in lên màn hình a) Số n có bao nhiêu chữ số ? b) Tìm tất các số hòan hảo nhỏ n c) Thực phép biến đổi: Chuyển chữ số lớn số n lên đầu cùng Ví dụ N=21095 → Kết quả: 92105 Bài (3 điểm) Viết chương trình nhập số n tính S = 1+ (1-2) + (1-2+3) (1-2+3-4+ n) Bài (3 điểm) Viết chương trình nhập số nguyên n từ bàn phím Chuyển số n vừa nhập thành số nhị phân ? Ví dụ: Nhap n= So chuyen so nhi phan la : 111 Nhap n= 101 { La so thap phan } So 101 chuyen so nhi phan la : 1100101 Bài (7 điểm) Nhập vào mảng n các số nguyên a[i] a/ Tìm các phần tử a[i] vừa nhập là các số co tong cac chu so la nguyên tố b/ Xếp lại mảng đó theo thứ tự giảm dần c/ Nhập vào số nguyên từ bàn phím Chèn số đó vào mảng cho mảng có thứ tự giảm dần (không xếp lại mảng) Đề (QT) Bài (6,0 đ): a) (2,0đ)Viết chương trình tính tổng (làm trònkết chữ số thập phân) S = - x + x2/2! - x3/3! + + (-1)nxn/n! (Với n, x là số nguyên dương nhập từ bàn phím) b) (4,0đ)Viết chương trình nhập số nguyên dương n, cho biết n có phải là số chính phương không? có phải số nguyên tố không? Bài (2,0đ): Nhập vào xâu kí tự và cho biết xâu vừa nhập vào có bao nhiêu nguyên âm và bao nhiêu kí tự số Bài (5,0 đ): Viết chương trình nhập mảng n số nguyên a) Sắp xếp mảng theo thứ tự giảm dần b) Cho biết mảng có bao nhiêu số chẳn c) Nhập số nguyên k, xoá số hạng thứ k vừa nhập mảng đã xếp (2) Ví dụ: n= 10 (Nhập 10 phần tử) Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, a)Sắp xếp 8,7,6,6,5,5,4,4,3,2 b) Mảng có số chẳn c)Nhập k k= Mảng sau xóa phần tử thứ là: 8,6,6,5,5,4,4,3,2 ĐỀ 3(LL) Bài 1: (4đ) Viết chương trình nhập vào từ bàn phím số nguyên dương n (n≤1000), sau đó tính và in lên màn hình giá trị T (kết lấy đến chữ số thập phân): T= √ 1+ √2+ + √ n (có n dấu bậc hai) Bài : (5đ): Mảng Viết chương trình nhập vào dãy số gồm n số nguyên dương nhỏ 1000 và in màn hình : a Các số chính phương, số hoàn thiện có dãy b Trong dãy số trên có bao nhiêu số nguyên tố c Tổng các số chẵn có dãy trên d Sắp xếp dãy số trên theo thứ tự tăng dần Bài 4: (7đ) Viết chương trình cho phép nhập từ bàn phím số nguyên dương a và thực hiện: a Cho biết a là số có chữ số b Cho biết tổng các chữ số a c Ta gọi số “đối xứng” với a là số nguyên dương thu từ a cách đảo ngược thứ tự các chữ số a Viết chương trình in số đối xứng số nguyên dương a d Cho a và b là số nguyên dương Ta gọi tổng đối xứng a và b là số đối xứng với tổng số đối xứng với a và số đối xứng với b Viết chương trình cho phép nhập hai số nguyên dương a, b và in tổng đối xứng chúng Ví dụ: Nhập a = 25 thì cho kết là: a So a co chu so b Tong cac chu so cua a la c So doi xung cua a la 52 d Nếu a = 25 và b = 26 thì tổng số đối xứng với a và số đối xứng với b là 52 + 62 = 114 Vì thế tổng đối xứng a và b là 411 ĐỀ (NH) Bài (4 điểm) Viết chương trình nhập từ bàn phím hai số nguyên dương, số gồm ba chữ số và in chi tiết kết phép nhân màn hình ví dụ sau: 456 x 789 -4104 3648 3192 - (3) 359784 Bài 2: Số siêu nguyên tố là số nguyên tố mà bỏ số tuỳ ý các chữ số bên phải nó thì phần còn lại tạo thành số nguyên tố Ví dụ 7331 là số siêu nguyên tố có chữ số vì 733, 73, là các số nguyên tố Viết chương trình nhập liệu vào là số nguyên N (0< N <10) và đưa kết là số siêu nguyên tố có N chữ số cùng số lượng chúng Bài 3: (4 điểm) a)Viết chương trình nhập vào số nguyên N - Đếm các số lẻ khoảng từ đến N - Tính tổng bình phương các số chẵn khoảng từ đến Ns Ví dụ: Nhập vào số thì xuất màn hình: - So so le tu khoang den la: - Tong binh phuong cac so chan la: 120 b) Viết chương trình giải bài toán cổ sau: Vừa gà vừa chó Bó lại cho tròn Ba mươi sáu Một trăm chân chẵn Bài 4: (4 điểm) Viết chương trình đọc từ bàn phím số nguyên N (1 ≤ N ≤ 10) đưa tiếng Anh số đó Ví dụ: Nhập số thì xuất màn hình là “eight” Bài 5: (5 điểm) Viết chương trình đổi số từ hệ số thập phân sang hệ số nhị phân Ví dụ: Số 25 đổi sang nhị phân là: 11001 ĐỀ (MH) Bài 1: Số nguyên tố (4 điểm) Số nguyên tố là số chia hết cho và cho chính nó Viết chương trình nhập vào số nguyên dương n (n>0; kiểm tra điều kiện nhập n) và thông báo số vừa nhập có phải là số nguyên tố hay không? Ví dụ: -9 Nhập sai và yêu cầu nhập lại không phải là số nguyên tố (3, 5, 7, 11…) là số nguyên tố Bài 2: Dãy số nguyên (4 điểm) Dãy các số tự nhiên viết thành dãy vô hạn trên đường thẳng: 1234567891011121314 (1) Viết chương trình nhập số K (K< 1000) từ bàn phím và in trên màn hình kết là số nằm vị trì thứ K dãy (1) trên Bài 3: Trộn hai mảng (5 điểm) Cho mảng A và B đã xếp theo thứ tự tăng dần Hãy trộn mảng đó lại với để có mảng thứ là mảng C với điều kiện mảng C xếp theo thứ tự tăng dần sau trộn Bài 4: Số nguyên tố tương đương (7 điểm) Hai số tự nhiên gọi là Nguyên tố tương đương nếu chúng có chung các ước số nguyên tố Ví dụ các số 75 và 15 là nguyên tố tương đương vì cùng có các ước nguyên tố là và Cho trước hai (4) số tự nhiên N, M Hãy viết chương trình kiểm tra xem các số này có là nguyên tố tương đương với hay không Lời giải : TT bài Chương trình mẫu Điểm Program nhan_hai_so; Uses Crt; Var m, n: Integer; 0.5 i: byte; l: longint; Begin Clrscr; Repeat Write('Nhap so co chu so: m= ');Readln(m); 0.5 Write('Nhap so co chu so: n= ');Readln(n); Until (m<1000) and (n<1000); l:=m*n; Writeln; Writeln(m:12); Bài Writeln('x':7); Writeln(n:12); writeln(' -':13); i:=12; while n>0 begin Writeln(m*(n mod 10):i); 1.5 n:= n div 10; i:=i-1; end; Writeln(' -':13); Writeln(l:12); Readln; 0.5 End Bài Program chen_so_vao_mang; Uses Crt; Var n, i: integer; 0.5 t:real; Begin Clrscr; 0.5 Write('nhap so n= ');readln(n); t:=0; for i:=1 to n 1.5 t:=sqrt(t+sqrt(i)); Writeln('Gia tri bieu thuc la: ',t:10:6); 0.5 (5) readln; End Program xoa_xau; Uses Crt; Var st: string; 0.5 ch: char; i: Integer; Begin CLRSCR; Write('Nhap xau: ');readln(st); Bài 0.5 Write('nhap ki tu can xoa: ');readln(ch); i:= 1; While i<= length(st) Begin if st[i]=ch then Delete(st,i,1) 1.5 elses i:=i + 1; Writeln('Xau sau xoa la: ',st); readln; 0.5 End Program DOI_THAP_PHAN_SANG_NHI_PHAN; Uses Crt; Var d:array[1 20] of byte; 0.5 i, j, n: integer; Begin Clrscr; Writeln('DOI SO THAP PHAN SANG NHI PHAN:'); 0.5 Writeln(' '); Write('Nhap so thap phan la n='); Readln(n); Bài i:=1; Repeat d[i]:=n mod 2; n:=n div 2; i:=i+1; Until(n=0); Write('So nhi phan la:'); For j:=i-1 downto Write (d[j]); Readln; End Bài Program chen_so_vao_mang; Uses Crt; Var A:Array[1 50] of integer; 0.5 i, n, tg, j, m: Byte; Begin (6) Clrscr; Write('nhap so phan tu mang:n= ');readln(n); for i:=1 to n begin write('A[',i,']= ');Readln(a[i]); end; Write('nhap so nguyen m= ');readln(m); For i:=1 to n begin for j:=1 to i if a[i]>a[j] then begin tg:=a[i]; 1.5 a[i]:=a[j]; a[j]:=tg; end; end; For i:=n downto if a[i]>m then a[n+1]:=m; For i:=n downto if a[i]<=m then begin A[i+1]:=a[i]; 1.5 a[i]:=m; end; Writeln(‘Day so sau chen them so la:’); for i:=1 to n+1 write(a[i],' '); readln; End a)Tên chương trình, khai báo biến; Phần thân chương trình Nhập x, ghi x ; Nhập y, ghi y ; m:=x; n:=y; Xử lý tìm UC(x, y); Đếm số UC(x, y); Xuất UC(x, y); Xuất UC(x, y); b) d:=UCLN(x, y); Tu:= x DIV d; Mau:= y DIV d; 0.5 (7) Xuất (‘ phan so toi gian’, Tu,’/’,Mau); c) Nhập số nguyên z; Xử lý tìm BCNN(m, n, z); a)Tên chương trình, khai báo biến; Phần thân chương trình Nhập n, ghi n ; Xử lý đếm số chữ số số n; b)Xử lý tìm các số hoàn hảo nhỏ số n; Tổng:=Tổng+i; Tích:=Tích*i; Xuất các số hoàn hảo nếu có Tổng=Tích các ước nó c) Thực phép biến đổi: Chuyển chữ số lớn số n lên đầu cùng ta số a)Tên chương trình, khai báo biến; + S1 = S2= (1-2) S3= (1-2+3) Sn= (1-2+3-4+ n) + Tính S1= S2= … Sn= + S = 1+ (1-2) + (1-2+3) (1-2+3-4+ n) program bai1_LL; uses crt; var i,n:integer; T:real; begin clrscr; repeat write('n = '); readln(n); if (n<0) or (n>1000) then writeln('hay nha so nguyen duong nhom hon 1000 '); until (n>0) and (n<=1000); T:=0; for i:=1 to n T:=sqrt(t+sqrt(i)); write('T= ',T:2:6); readln;end program nhan; uses crt; var m,n,i:integer; ti:longint; begin clrscr; (8) repeat write('n= '); readln(n); write('m= '); readln(m); if ((m<100) or (m>1000) or (n<100) or (n>1000)) then writeln('nhap so co chu so nhe'); until ((m>=100) and (m<=1000) and (n>=100) and (n<=1000)); ti:=m*n; writeln(m:10); writeln('x':6); writeln(n:10); Writeln(' '); writeln(m*(n mod 10):10); n:=n div 10; writeln(m*(n mod 10):9); n:=n div 10; writeln(m*(n mod 10):8); writeln(' -'); writeln(ti:10); readln end program Bai1_TP; uses crt; var i, a1,b1,a,b,d: integer; begin clrscr; write( ' nhap so a=') ; readln(a); write('nhap so b ='); readln(b); a1:=a; b1:=b; while a<>b if a> b then a:= a-b else b:=b-a; writeln(' UCLN(',a1,';',b1,') = ',a); d:=0; write('cac uoc chung cua ',a1,' va ',b1,'la: '); for i:=1 to a if a mod i =0 then begin write(i,';'); d:=d+1; end; writeln; write('co tat ca ',d,' uoc'); readln; end program bai3_NH;{so nguyen to} uses crt; var n,i,tongc,dem:integer; begin clrscr; write('n= '); readln(n); {dem cac so le tu den n} tongc:=0; dem:=0; for i:=1 to n if i mod 2<>0 then dem:=dem+1; writeln('so so le tu den ',n,' la: ',dem); for i:=1 to n if i mod = then tongc:=tongc+i*i; (9) write('tong binh phuong cac so chan tu den ',n,' la: ',tongc); readln end program bai1_MH; uses crt; var n,i,dem:integer; begin clrscr; repeat write('n= '); readln(n); if n<0 then writeln('ban hay nhap so nguyen duong'); until n>0; for i:=1 to n if n mod i=0 then dem:=dem+1; {dem so uoc cua n} if dem=2 then write(n,'la so nguyen to') {neu n co uoc thi n la so nguyen to} else write(n,' khong phai la so nguyen to'); readln end (10)