Bài tập Bài 10+11 môn Tin học Lớp 11

Nội dung text: Bài tập Bài 10+11 môn Tin học Lớp 11

1. BÀI TẬP Bài 10 Cấu Trúc Lặp Câu 1: Hãy tìm hiểu các cụm câu lệnh sau đây và cho biết với các câu lệnh đó chương trình thực hiện bao nhiêu vòng lặp và kết quả là bao nhiêu? Hãy rút ra nhận xét của em! a)S:=0; n:=0; while S<=10 do begin n:=n+1; S:=S+n end; b)S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n; Câu 2: Hãy chỉ ra lỗi trong các câu lệnh sau đây: a)X:=10; while X:=10 do X:=X+5; b)X:=10; while X=10 do X=X+5; c)S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n; Câu 3: chương trình tính tích N số tự nhiên, với N là số tự nhiên được nhập từ bàn phím. N! = 1.2.3 .N Program Tinh_giai_thua; Var N, I : integer; P: longint; Begin Write(‘Nhap so N’); readln(N); P:= 1; For i:= 1 to N do P:= P * i; Writeln (N, ‘! =’,P); End. Câu 6(SGK_51) . Lập trình để giải bài toán cổ. Nếu giải bài toán này bằng hệ phương trình bậc nhất 2 ẩn số thì không hay bằng cách dùng vòng lặp while . Hiển nhiên căn cứ vào gà có 2 chân, chó có 4 chân, có đến 36 con, phải có 2 loài gộp chung thì mới ra 100 chân, vì vậy ta dùng 2 biến, cho
2. Var i, n, Gioi, Kha, Trungbinh, Kem: integer; A: array[1 100] of real; Begin clrscr; write(‘Nhap so cac ban trong lop,n= ‘); readln(n); writeln(‘Nhap diem:’); For i:=1 to n do Begin write(i,’. ‘); readln(a[i]); End; Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0; for i:=1 to n do begin if a[i]>=8.0 then Gioi:=Gioi+1; if a[i] =6.5) then Kha:=Kha+1; if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1 end; writeln(‘Ket qua hoc tap:’); writeln(Gioi,’ ban hoc gioi’); writeln(Kha,’ ban hoc kha’); writeln(Trungbinh,’ ban hoc trung binh’); writeln(Kem,’ ban hoc kem’); readln End.