Ôn tập học kì II - Tin học 11
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (34.36 KB, 4 trang )
<span class='text_page_counter'>(1)</span>OÂN TAÄP HK II TIN HOÏC 11 I) CHÖÔNG TRÌNH CON Bài 1: Đọc chương trình sau đây và cho biết kết quả hiện trên màn hình Program bai1; Uses crt; Var a,b:integer; Procedure p(var x:integer; y:integer); Begin writeln(x,’ ‘,y); x := x * x; y:= y *10 ; writeln(x, ‘ ‘ ,y); end; begin clrscr; a := 1; b:=10; p (a,b); writeln(x,’ ’,y); readln end. Bài 2 : Đọc chương trình con sau đây và cho biết mục đích của đọan chương trình naøy. Vieát chöông trình chính coù caâu leänh goïi chöông trình con naøy, khai báo thêm các biến và sửa lỗi nếu cần. Program bai2; Uses crt; Type xau=string[25]; Mang=array[1..100] of xau; Var M: mang; Procedure nhapM(var ten:mang); Begin write(‘Nhap so phan tu thuc su cua mang(<=100):’); readln(spt); while(spt <0) or (spt >100) do begin write(‘Nhap so phan tu cua mang (<=100):’): readln(spt): end; Lop11.com.
<span class='text_page_counter'>(2)</span> for i:= 1 to spt do begin write(‘Nhap xau thu : ‘ , i , ‘:’); readln(ten[i]); end; end; Bài 3: Viết chương trình có sử dụng hàm chuyển một xâu kí tự sang chữ hoa. function viethoa(st:string):string; var i : integer; st1 : string; begin st1:=’’; for i:=1 to length(st) do st1:=st1 + upcase(st[i]); viethoa:=s1; end; Bài 4 : Viết chương trình có sử dụng hàm tính tiền điện. Nếu số KW tiêu thụ <= 100 có giá 500 đồng . Trên 100 thì có giá 1000 đồng. Function tinhtien(tieuthu : longint):longint; Begin If tieuthu > 100 then Tinhtien : = 500 * 100 + (tieuthu -100) * 1000 Else Tinhtien : = tieuthu * 500; End; Bài 5 : Viết chương trình có sử dụng hàm tính tổng các số chẵn từ x đến y Function tong(x,y : longint):longint; Var i : longint; Begin Tong:=0; For i:=x to y do If (i mod 2 =0) then Tong:=tong + i; End;. Lop11.com.
<span class='text_page_counter'>(3)</span> II) MAÛNG HAI CHIEÀU (MA TRAÄN) Bài 1 :Tính trung bình cộng các số âm của mảng hai chiều có n x m phần tử nguyeân. Tong := 0; Dem:= 0 ; For i: =1 to n do For j : =1 to m do If a[i,j] < 0 then Begin Tong:= tong + a[i,j]; Dem : =dem + 1; End; TBC : = tong / dem; Baøi 2 : Tính trung bình coäng caùc soá chaün trong maûng hai chieàu coù n x m phần tử nguyên. Thay điều kiện ở bài 1 : If (a[i,j] mod 2 =0) then Bài 3 : Tính tích các số chẵn trong mảng hai chiều có n x m phần tử nguyeân. Tich : =1; For i: =1 to n do For j := 1 to m do If (a[i,j] mod 2 =0 ) then Tich :=tich *a[i,j]; Bài 4 :Đếm các phần tử có giá trị trong phạm vi từ 5 đến 20 trong mảng hai chiều có n x m phần t ử nguyên. Dem : =0 ; For i:=1 to n do For j:= 1 to m do If (a[i,j] > = 5) and (a[i,j] < =20) then Dem : =dem +1; Bài 5 : Tìm phần tử có giá trị nhỏ nhất và vị trí của các phần tử đó trong mảng hai chiều có n x m phần tử thực. Min := a[1,1]; For i: =1 to n do For j:=1 to m do If a[i,j] < min then Min := a[i,j]; Writle(‘gia tri nho nhat la : ’, min :3 :1); For i: =1 to n do For j := 1 to m do Lop11.com.
<span class='text_page_counter'>(4)</span> If a[i,j] = min then Writeln(‘hang ’, i, ‘ cot’, j);. Lop11.com.
<span class='text_page_counter'>(5)</span>
