24 BÀI TẬP MẪU TIN HỌC 11- (CHƯƠNG 1, 2, 3)

24 BÀI TẬP MẪU TIN HỌC 11 (CHƯƠNG 1, 2, 3) 24 BÀI TẬP MẪU TIN HỌC 11 (CHƯƠNG 1, 2, 3) Bài tập 1 Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay số lẻ Program Kiemtr[.]

24 BÀI TẬP MẪU TIN HỌC 11- (CHƯƠNG 1, 2, 3) Bài tập 1: Viết chương trình nhập vào số nguyên kiểm tra xem số vừa nhập số chẵn hay số lẻ Program Kiemtratinhchanle; Uses crt; Var x:integer; Begin Write('Nhap vao mot so nguyen : '); Readln(x); If (x MOD 2=0) Then Writeln('So vua nhap vao la so chan') Else Writeln('So vua nhap vao la so le'); Readln; End Bài tập 2: Viết chương trình giải phương trình bậc ax+b=0 Program Giaiptb1; Uses Crt; Var a,b,x : real; Begin Write('a = '); Readln(a); Write('b = '); Readln(b); If (a = 0) Then { Nếu a } If (b = 0) Then { Trường hợp a = b = } Writeln('Phuong trinh co vo so nghiem') }Else { Trường hợp a=0 b Writeln('Phuong trinh vo nghiem') }Else { Trường hợp a Begin x:= -b/a; Writeln('Phuong trinh co nghiem la :',x:6:2); End; Readln; End Bài tập 3: Viết chương trình tính tổng S = 1+2+ +N Cách 1: Dùng vịng lặp FOR Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; For i:=1 to N S:=S+i; Writeln('Ket qua la :',S); Readln; End Cách 2: Dùng vòng lặp WHILE Program TinhTong; Uses crt; Var N,i,S:integer; Begin Clrscr; Write('Nhap vao gia tri cua N :'); Readln(N); S:=0; i:=1; While iEpsilon Do Begin Pi:=Pi+s*t; s:=-s; i:=i+1; t:=4/(2*i+1); End; Writeln('So Pi = ',Pi:0:4); Readln; End Bài tập 6: Viết chương trình nhập vào số nguyên N In hình tất ước số N Ý tưởng: Cho biến i chạy từ tới N Nếu N MOD i=0 viết i hình Uses Crt; Var N,i : Integer; Begin Clrscr; Write('Nhap so nguyen N= '); Readln(N); For i:=1 To N Do If N MOD i=0 Then Write(i:5); Readln; End Bài tập 7: Viết chương trình tìm USCLN BSCNN số a, b nhập vào từ bàn phím Ý tưởng: - Tìm USCLN: Lấy số lớn trừ số nhỏ a=b dừng Lúc đó: USCLN=a - BSCNN(a,b) = a*b DIV USCLN(a,b) Program Tim_USCLN_BSCNN; Uses crt; Var a,b, m,n:integer; Begin Write('Nhap a : '); Readln(a); Write('Nhap b : '); Readln(b); m:=a; n:=b; While (mn) Do Begin If (m>n) Then m:=m-n Else n:=n-m; End; Writeln('USCLN= ',m); Writeln('BSCNN= ',a*b DIV n); Readln; End Bài tập 8: Viết chương trình tìm số có chữ số cho: = a3 + b3 + c3 Ý tưởng: Dùng phương pháp vét cạn Ta biết rằng: a có Ta9 (vì a số hàng trăm), b,c có giá trị từ 0thể có giá trị từ dùng vịng lặp FOR lồng để duyệt qua tất trường hợp a,b,c Ứng với abc, ta kiểm tra: Nếu 100.a + 10.b + c = a3 + b3 + c3 in abc Program Timgiatri_abc; Uses crt; Var a,b,c : Word; Begin For a:=1 To Do For b:=0 To Do For c:=0 To Do If (100*a + 10*b + c)=(a*a*a + b*b*b + c*c*c) Then Writeln(a,b,c); Readln; End Bài tập 9: Viết chương trình nhập vào số tự nhiên N thơng báo lên hình số có phải số nguyên tố hay không Ý tưởng: N số ngun tố N khơng có ước số N div Từ định nghĩa ta đưa giải thuật:nào từ - Đếm số ước số N div lưu vào biến d.của N từ - Nếu d=0 N số nguyên tố Uses crt; Var N,i,d : Word; Begin If N0 thì: lấy chữ số cuối N để tính phép tốn MOD 10, sau bỏ bớt chữ số cuối N phép toán DIV 10 Bài tập 11: Viết chương trình in hình tất số nguyên tố từ đến N Với N nhập từ bàn phím Bài tập 12: Viết chương trình phân tích số thừa số ngun tố Ví dụ: N=100 in hình: 100 | 50 | 25 | 5|5 1| Bài tập 13: Số hồn thiện số tự nhiên có tổng ước (khơng kể nó) Viết chương trình kiểm tra xem số nhập vào từ bàn phím có phải số hồn thiện hay khơng? Ví dụ: 6, 28 số hồn thiện Gợi ý: - Tính N div lưu vào biến S.tổng ước số N: từ - Nếu S=N N số hồn thiện Bài tập 14: Viết chương trình in số nguyên từ đến N2 theo hình xoắn ốc với N nhập vào từ bàn phím Ví dụ, với N=5 ta có: 12345 16 17 18 19 15 24 25 20 14 23 22 21 13 12 11 10 ... MOD 60 Bài tập 3: Viết chương trình tìm Max, Min số: a, b, c, d Bài tập 4: Viết chương trình in hình giá trị bảng 255.mã ASCII từ Gợi ý: 255 In hình i vàCho biến i chạy từ CHR(i) Bài tập 5:... := sqrt(p*(p-a)*(p-c)*(p-c)); Writeln(''+Dien tich hinh tam giac = '',s:6 :2,'' met vuong''); Readln End BÀI TẬP Thực hành Bài tập 1: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, a0... la: ‘,S); Readln; End Bài tập 5: Viết chương trình tính số Pi với độ xác Epsilon, biết: Pi/4 = 1-1/3+1/5-1/7+ Ý tưởng: Ta thấy rằng, mẫu số số lẻ có qui luật: 2*i+1 với i =1, ,n Do ta dùng i làm