Viết chương trình nhập vào điểm của N môn học (kiểu số thực), xuất ra DTB các môn học.. (DTB bằng tổng điểm các môn chia cho số môn học, không tính hệ số).[r]
(1)Trường THCS TRẦN CAO VÂN ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II Môn: Tin (Năm học 2012-2013)
Họ tên HS: Lớp : 8/ I/ Lý thuyết:
1 Viết cấu trúc câu lệnh : IF , For…to…do While…do? Cho ví dụ?
2 Hãy nêu khác biệt câu lệnh lặp với số lần biết trước câu lệnh lặp với số lần chưa biết trước?
3 So sánh lệnh IF (dạng thiếu) lệnh WHILE
4 Hãy nêu lợi ích việc sử dụng mảng chương trình? Câu lệnh Pascal sau hay sai? Hãy lỗi sai có
a For i:=2 to 10; x:=x+1;……… b For i:=11 to x:=x+1;……… c For i:=1 to 10 for j:=1 to 10 x:=x+1;……… d For i:=1 to 10 for i:=1 to 10 x:=x+1;……… e While b>=a; write (‘b khong nho hon a’);……… g While 2=2 write (‘toi that la gioi’);……… Các khai báo mảng sau hay sai? Nếu sai sửa lại cho
a) var X : Array [10, 13] of integer;……… b) var X : Array [3.4 4.8] of integer;……… c) var X : Array [10 1] of integer;……… Tìm giá trị S đọan chương trình đây:
a) S := 0;
For i := to S := S + i; S =
b) I:=1;
While i<=5 Begin
S:= S + I; I:= I + 1;
End; S =
II/ Bài tập: VIẾT CÁC CHƯƠNG TRÌNH SAU: 1. Viết chương trinh tính tổng A = +
1 1
2 n, với n số tự nhiên nhập từ bàn phím.
2. Viết ch trinh tính tổng A = + 13+1 5+ .+
1
2n −1 , với n số tự nhiên nhập từ bàn phím 3. Tính tổng bình phương n số tự nhiên
Vd: nhập n = S = 12 + 22 + 32 + 42 + 52 = 55 4. Viết chương trình tính tích n số tự nhiên ( n! : đọc n giai thừa) 5. Viết chương trình nhập số nguyên n, tìm tất ước số n
6. Viết chương trình nhập vào số N kiểm tra số có phải số ngun tố khơng 7. Viết chương trình nhập vào n số nguyên, xuất số nguyên tố dãy số vừa nhập 8. Viết chương trình nhập vào số N phân tích số N thừa số nguyên tố
9. Viết chương trình nhập vào N số nguyên xuất ra: Số số chẵn, số số lẻ
10.Viết chương trình nhập vào điểm N môn học (kiểu số thực), xuất DTB môn học (DTB tổng điểm mơn chia cho số mơn học, khơng tính hệ số)
(2)Program B1_Tong_nghich_dao; Var i,n:integer; s: real;
Begin
WriteLN('CHUONG TRINH TINH TONG S = + 1/2 + 1/3 + 1/4 + + 1/n ');
Write('Nhap n = '); Readln(n); For i:=1 to n s:=s+1/i ; Write('Tong can tim la: ',s:8:1); Readln;
End
Program B2_Tong_nghich_dao_cacsole; Var i,n:integer; s: real;
Begin
WriteLN('CHUONG TINH TINH TONG S = + 1/3 + 1/5 + + 1/2n-1 ');
Write('Nhap n = '); Readln(n); For i:=1 to n s:=s+1/(2*i-1) ; Write('Tong can tim la: ',s:8:1); Readln;
End
Program B3_TongBinhphuong; Var i,n:integer; s: longint;
Begin
Write('Nhap n = '); Readln(n); For i:=1 to n s:=s+i*i; Write('Tong can tim la: ',s); Readln;
End
Program B4_Tinhgiaithua; Var i,n:integer; gt: longint; Begin
writeln('CHUONG TRINH TINH N! = 1.2.3.4.5.6 n');
Write('Nhap n = '); Readln(n); gt:=1; For i:=1 to n GT:=GT*i;
Write('Ket qua can tim la: ',gt); Readln; End
Program B5_Tim_uoc_cua_mot_so; Var i,n:longint;
Begin
Write('Nhap so n = '); readln(n); Writeln('Cac uoc cua ',n,' la: '); For i:=1 to n
if n mod i = then write(i,' ; '); end
Program B6_Kiem_tra_so_nguyen_to; Var i,n:longint;
Begin
Write('Nhap so n = ');readln(n);
If n<=1 then write(n,' khong phai la so nguyen nguyen to ') else
Begin i:=2;
while n mod i <>0 i:=i+1;
If n=i then write(n,' la so nguyen to') else write(n,' ko phai la so nguyen to');
end; readln; end
Program B7Cacsonguyentotrongdayso; Var n,i,j,dem:integer;
a:array[1 50] of integer; Begin
Write('Nhap n = ');readln(n); For i:=1 to n
Begin
write('a[',i,']= ');readln(a[i]); end;
Writeln('CAC SO NGUYEN TO LA:'); For i:=1 to n
If a[i]>1 then Begin j:=2;
while (a[i] mod j<>0) j:=j+1; if a[i] = j then
Begin
Write(j,' '); dem:=dem+1;
end;
end;
write('Trong ',n,' so ban nhap co ',dem,' so nguyen to'); readln;
end
Program B8_Phan_tich_ra_th_so_ng_to; Var n,i:word;
Begin
Write('Nhap so n = '); readln(n); i:=2; write(n,' = ');
While i<n if n mod i = then Begin
write(i,'.') ; n:=n div i; end else i:=i+1; write(i); readln; end
Program B9_Dem_so_chan_so_le; Var i,n,demchan,demle:word; a:array[1 100] of word; Begin
Write('Nhap n = ');readln(n); For i:=1 to n
Begin
Write('a[',i,']=');readln(a[i]); if a[i] mod = then demchan:=demchan+1
else demle:=demle+1; end;
write('Trong ',n,' so ban nhap co ', demchan,' so chan,',demle,' so le');