Đề ô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 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 1 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 = 0 then writeln(' day khong phai phuong trinh bac hai bye')

else begin

d:=(b*b)-4*a*c;

if d < 0 then writeln('phuong trinh vo nghiem roi ')

else if d = 0 then writeln(' phuong trinh co nghiem kep x1=x2=',(-b)/(2*a):9:0)

else if d > 0 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 2 viết chương trình tính S, C,đường chéo hình vuông cạnh là a

Bài làm:

program it_linh;

uses crt;

var a: longint;

begin

clrscr;

writeln('nhap do dai canh hinh vuong');

readln(a);

if a >= 0 then

begin

writeln(' dien tich hinh vuong la :',a*a);

writeln(' chu vi hinh vuong la:',a*4);

writeln(' do dai duong cheo cua hinh vuong la: ',sqrt((a*a)+(a*a)):4:9); end

else if a<0 then writeln(' so nhap vao yeu cau lon hon khong');

readln

end

Bài 3 viết chương trình tính S , C, đường cao của tam giác có 3 cạnh là a,b,c Hướng đi dùng hệ thức hê rông

Bài làm:

program it_linh;

uses crt;

var a,b,c:longint;

p:real;

begin

clrscr;

writeln('nhap do dai 3 canh cua tam giac');

readln(a,b,c);

if (a+b>c) 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 do dai la',(2*sqrt(p*(p-a)*(p-b)*(p-c)))/a:9:0);

end

else writeln(' day khong phai 3 canh cua tam giac');

readln

end

Bài 4 kiểm tra xem n có phải là số chính 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 < 0 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 5 viết chương trình tính trung bình cộng các số lẻ từ 1 đế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 do if i mod 2 <>0 then

begin

a:=a+i;

dem:=dem+1;

end;

writeln('trung binh cong cac so tu 1 den ', n ,' la: ',a/dem:9:2);

end

Bài 6 viết chương trình tính tổng các ước của 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 do if a mod i = 0 then

begin

tong:=tong+i;

end;

writeln( 'tong cac uoc cua ', a ,' la : ',tong);

readln

end

Bài 7 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 do

begin

tong:=tong+(3*i+1);

end;

writeln('KQ !!! : ',tong);

readln

end

Bài 8 cho 2 số tự nhiên M và N lập chương trình các số chia hết cho 3 trong đ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 do [M,N]');

readln(m,n);

writeln('cac so chia het cho 3 la :');

for i:=m to n do if i mod 3 = 0 then write(' ',i);

readln

end

Bài 9 cho 1 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 < 1 then writeln(' day khong phai so nguyen to !!!')

else

begin

for i:= 1 to a do if a mod i =0 then t:=t+1;

if t = 2 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 các 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 do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2 =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 các 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 do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2 <>0 then

begin

t:=t+1;

end;

writeln(' trung binh cong cac so le la: ',tong/t:9:2);

readln

end

Bài 12 tìm số chính phương lớn nhất trong 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 do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

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 do if trunc(sqrt(a[i])) = sqrt(a[i]) then k:=k+1;

if k = 0 then writeln(' trong mang khong co so chinh phuong ') else begin

for i:=1 to n do 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ó 2 chữ số nhỏ nhất trong 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;

clrscr;

writeln('nhap so phan tu cua mang'); readln(n);

for i:=1 to n do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

for i:=n downto 1 do

begin

c:=a[i];

dem:=0;

while c > 0 do

begin

c:=c div 10;

dem:=dem+1;

end;

if dem = 2 then

begin

o:=o+1;

min:=a[i];

end;

end;

if o <> 2 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 ra các số nguyên tố có trong 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 do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

writeln;

writeln('cac so nguyen to co trong mang la: ' ); for i:=1 to n do

begin

dem:=0;

begin

for j:=1 to a[i] do if a[i] mod j = 0 then dem:=dem+1;

if dem = 2 then write(a[i]:6);

end;

end;

readln

end

Bài 16 tìm số nguyên tố nhỏ nhất có trong 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 do

begin

write('A[',i,'] :=');

readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

for i:=n downto 1 do

begin

for j:=1 to a[i] do 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 trong day la : ',tg); readln

end