Đề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay freeĐề ôn tập tổng hợp tin hoc hay free
Đề Ôn Tập Tổng Hợp (Từ Phần đầu đến hết mảng sâu kí tự) Người viết: Trần Quang Linh Nguồn Tài Liệu: Lê Văn Hưng ( Phần Bài Tập không dùng mảng ) Bài viết chương trình giải phương trình bậc hai ax²+bx+c=0(a#0) Bài làm: program it_linh; uses crt; var a,b,c : integer; d: real; begin clrscr; writeln('nhap he so cua phuong trinh a,b,c'); readln(a,b,c); if a = then writeln(' day khong phai phuong trinh bac hai bye') else begin d:=(b*b)-4*a*c; if d < then writeln('phuong trinh vo nghiem roi ') else if d = then writeln(' phuong trinh co nghiem kep x1=x2=',(-b)/ (2*a):9:0) else if d > then begin writeln(' phuong trinh co hai nghiem phan biet '); writeln(' x1= ',((-b+sqrt(d))/(2*a)):9:0); writeln(' x2= ',((-b-sqrt(d))/(2*a)):9:0); end; end; readln end Bài viết chương trình tính S, C,đường chéo hình vng cạnh a Bài làm: program it_linh; uses crt; var a: longint; begin clrscr; writeln('nhap dai canh hinh vuong'); readln(a); if a >= then begin writeln(' dien tich hinh vuong la :',a*a); writeln(' chu vi hinh vuong la:',a*4); writeln(' dai duong cheo cua hinh vuong la: ',sqrt((a*a)+(a*a)):4:9); end else if ac) and (a+c>b) and (b+c>a) then begin p:=(a+b+c)/2; writeln(' dien tich tam giac la : ',sqrt(p*(p-a)*(p-b)*(p-c)):9:0); writeln(' chu vi tam giac la: ',2*p:9:0); writeln(' duong cao cua tam gia co dai la',(2*sqrt(p*(p-a)*(p-b)*(p-c)))/a:9:0); end else writeln(' day khong phai canh cua tam giac'); readln end Bài kiểm tra xem n có phải số phương khơng Bài làm: program it_linh; uses crt; var a:longint; begin clrscr; writeln(' nhap so vao '); readln(a); if a < then writeln(' day khong phai so chinh phuong ') else if trunc(sqrt(a)) = sqrt(a) then writeln(' so ',a,' la so chinh phuong') else writeln(' khong phai so chinh phuong'); readln end Bài viết chương trình tính trung bình cộng số lẻ từ đến n Bài làm: program it_linh; uses crt; var n,dem,i:longint; a: real; begin clrscr; writeln(' nhap so n'); readln(n); a:=0; dem:=0; for i:=1 to n if i mod 0 then begin a:=a+i; dem:=dem+1; end; writeln('trung binh cong cac so tu den ', n ,' la: ',a/dem:9:2); readln end Bài viết chương trình tính tổng ước a Bài làm: program it_linh; uses crt; var i,a,tong:longint; begin clrscr; writeln('nhap so '); readln(a); tong:=0; for i:=1 to a if a mod i = then begin tong:=tong+i; end; writeln( 'tong cac uoc cua ', a ,' la : ',tong); readln end Bài viết chương trình tính tổng s = 1+ 4+…+(3n+1) Bài làm: program it_linh; uses crt; var i,a,tong:longint; begin clrscr; writeln('nhap so n tinh ap dung day s = 1+ 4+ +(3n+1) '); readln(a); tong:=0; for i:=0 to a-1 begin tong:=tong+(3*i+1); end; writeln('KQ !!! : ',tong); readln end Bài cho số tự nhiên M N lập chương trình số chia hết cho đoạn [M,N] Bài Làm: program it_linh; uses crt; var i,m,n:longint; begin clrscr; writeln('nhap M va N de tao khoang nao [M,N]'); readln(m,n); writeln('cac so chia het cho la :'); for i:=m to n if i mod = then write(' ',i); readln end Bài cho số tự nhiên a viết chương trình thơng báo a có phai số nguyên tố hay không Bài Làm: program it_linh; uses crt; var i,a,t:longint; begin clrscr; writeln('nhap so kiem tra'); readln(a); t:=0; if a < then writeln(' day khong phai so nguyen to !!!') else begin for i:= to a if a mod i =0 then t:=t+1; if t = then writeln(' day la so nguyen to !!!') else writeln(' day khong phai so nguyen to !!!'); end; readln end ( Phần Bài Tập có mảng ) Bài 10 viết chương trình tính tổng số vị trí chẵn Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; tong,i,n:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; for i:=1 to n if a[i] mod =0 then tong:=tong+a[i]; writeln('tong cac so chan cua mang la :',tong); readln end Bài 11 viết chương trình tính trung bình cộng số lẻ Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; tong,i,n,t:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); t:=0; tong:=0; for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; for i:=1 to n if a[i] mod 0 then begin tong:=tong+a[i]; t:=t+1; end; writeln(' trung binh cong cac so le la: ',tong/t:9:2); readln end Bài 12 tìm số phương lớn dãy nhập từ bàn phím Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; tg,j,i,n,k,max:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; 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; k:=0; for i:=1 to n if trunc(sqrt(a[i])) = sqrt(a[i]) then k:=k+1; if k = then writeln(' mang khong co so chinh phuong ') else begin for i:=1 to n if trunc(sqrt(a[i])) = sqrt(a[i]) then max:=a[i]; writeln('so chinh phuong lon nhat la :',max); end; readln end Bài 14 viết chương trình tìm số có chữ số nhỏ dãy Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; tg,j,i,n,dem,c,o,min:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; 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; for i:=n downto begin c:=a[i]; dem:=0; while c > begin c:=c div 10; dem:=dem+1; end; if dem = then begin o:=o+1; min:=a[i]; end; end; if o then writeln('khong co so co hai chu so') else writeln('so nho nhat co hai chu so la: ',min); readln end Bài 15 viết chương trình in số nguyên tố có dãy Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; i,n,j,dem:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; writeln; writeln('cac so nguyen to co mang la: ' ); for i:=1 to n begin dem:=0; begin for j:=1 to a[i] if a[i] mod j = then dem:=dem+1; if dem = then write(a[i]:6); end; end; readln end Bài 16 tìm số nguyên tố nhỏ có dãy Bài làm: program it_linh; uses crt; var a: array[1 10000] of integer; tg,j,i,n,dem:integer; begin clrscr; writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n begin write('A[',i,'] :='); readln(a[i]); end; 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; for i:=n downto begin dem:=0; for j:=1 to a[i] if a[i] mod j =0 then dem:=dem+1; if (dem = 2) and (a[i] > 1) then tg:=a[i]; end; writeln('so nguyen to nho nhat day la : ',tg); readln end ... readln end Bài viết chương trình tính tổng s = 1+ 4+…+(3n+1) Bài làm: program it_linh; uses crt; var i,a,tong:longint; begin clrscr; writeln(''nhap so n tinh ap dung day s = 1+ 4+ +(3n+1) '');... write('' '',i); readln end Bài cho số tự nhiên a viết chương trình thơng báo a có phai số ngun tố hay không Bài Làm: program it_linh; uses crt; var i,a,t:longint; begin clrscr; writeln(''nhap so kiem... else writeln('' day khong phai so nguyen to !!!''); end; readln end ( Phần Bài Tập có mảng ) Bài 10 viết chương trình tính tổng số vị trí chẵn Bài làm: program it_linh; uses crt; var a: array[1 10000]