Đề cương kiểm tra Tin kh1 lớp 11
Chia sẻ bởi Nguyễn Thảo Nguyên |
Ngày 25/04/2019 |
67
Chia sẻ tài liệu: Đề cương kiểm tra Tin kh1 lớp 11 thuộc Tin học 11
Nội dung tài liệu:
ÔN TẬP HỌC KÌ I
Môn: Tin học
I.Các câu lệnh và cấu trúc cần nhớ
1. Khai báo
- Khai báo biến: Var:;
- Khai báo mảng: Var:array[kiểu chỉ số]of;
Ví dụ Var A:array[1..20]of byte;
- Khai báo xâu: Var< tên biến>:string[độ dài lớn nhất của xâu];
Ví dụ Var S:string[100];
(Nếu không có độ dài lớn nhất của xâu trong khai báo, độ dài lớn nhất được mặc định là 255).
2. Lệnh gán
:= ;
3. Cấu trúc lặp
For…do;
4. Lệnh nhập dữ liệu từ bàn phím
Readln();
II. Bài tập:
Bài tập 1: Nhập dãy số có n số nguyên. Đếm các số chẵn và tính tổng các số chẵn
Giải
Program bai_1;
Uses crt;
Var A:array[1..20]of integer;
N, i,s,T : integer;
Begin
Write(‘nhap so phan tu cua mang N=’); Readln(N);
T:=0;
S:=0;
For i:=1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For i:=1 to N do
If A[i] mod 2 =0 then
Begin
S:=s+1;
T:=t+A[i];
End;
Writeln(‘so cac so chan la’,s:4);
Writeln(‘tong cac so chan la’,t:4);
Readln;
End.
Bài tập 2: Nhập dãy số có N số nguyên. Tìm giá trị max, min
Giải
Program bai_2;
Uses crt;
Var A:array[1..20];
max,min, N , i: integer;
Begin
Writeln(‘Nhap so phan tu cua day N=’); Readln(N);
For i:= 1 to N do
Begin
Write(‘Phan tu thu ‘,i,’ la’); Readln(A[i]);
End;
Max:=A[1];
For i:= 2 to N do
If A[i]>max then max:=A[i];
Min:=A[1];
For i:=2 to N do
If A[i]Writeln(‘so lon nhat trong day la’,max);
Writeln(‘so be nhat trong day la’,min);
Readln;
End.
Bài tập 3: Nhập dãy số có N số nguyên. Sắp xếp theo giá trị tăng dần
Giải
Program sap_xep;
Uses crt;
Var A:array[1..20] of integer;
I,j,t,n: integer;
Begin
Write(‘nhap so phan tu cua day N= ‘); Readln(N);
For i:= 1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For j:=N downto 2 do
For i:= 1 to j-1 do
If A[i]>A[i+1] then
Begin
T:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
End;
Writeln(‘day so duoc sap xep la’);
For i:= 1 to N do write(A[i]:4);
Readln;
End.
Nếu sắp xếp theo giá trị giảm dần thì thay câu lệnh A[i]>A[i+1] bằng A[i]
Bài tập 4: Nhập dãy số có N số nguyên. Tìm số nguyên tố
Giải
Program nguyen_to;
Uses crt;
Var A:array[1..20];
I,j,n,x:byte;
Begin
Write(‘nhap so phan tu cua day N=’); Readln(N);
For i:= 1 to N do
Begin
Write(‘phan tu thu ,’i’, la’); Readln(A[i]);
End;
Write(‘cac so nguyen to la’);
For i:= 1 to N do
Begin
x:=1;
For j:= 2 to round(A[i]/2) do
If A[i] mod j =0 then x:= 2;
If x=1 then write(A[i]:4);
End;
Readln;
End.
Bài tập
Môn: Tin học
I.Các câu lệnh và cấu trúc cần nhớ
1. Khai báo
- Khai báo biến: Var
- Khai báo mảng: Var
Ví dụ Var A:array[1..20]of byte;
- Khai báo xâu: Var< tên biến>:string[độ dài lớn nhất của xâu];
Ví dụ Var S:string[100];
(Nếu không có độ dài lớn nhất của xâu trong khai báo, độ dài lớn nhất được mặc định là 255).
2. Lệnh gán
3. Cấu trúc lặp
For…do;
4. Lệnh nhập dữ liệu từ bàn phím
Readln(
II. Bài tập:
Bài tập 1: Nhập dãy số có n số nguyên. Đếm các số chẵn và tính tổng các số chẵn
Giải
Program bai_1;
Uses crt;
Var A:array[1..20]of integer;
N, i,s,T : integer;
Begin
Write(‘nhap so phan tu cua mang N=’); Readln(N);
T:=0;
S:=0;
For i:=1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For i:=1 to N do
If A[i] mod 2 =0 then
Begin
S:=s+1;
T:=t+A[i];
End;
Writeln(‘so cac so chan la’,s:4);
Writeln(‘tong cac so chan la’,t:4);
Readln;
End.
Bài tập 2: Nhập dãy số có N số nguyên. Tìm giá trị max, min
Giải
Program bai_2;
Uses crt;
Var A:array[1..20];
max,min, N , i: integer;
Begin
Writeln(‘Nhap so phan tu cua day N=’); Readln(N);
For i:= 1 to N do
Begin
Write(‘Phan tu thu ‘,i,’ la’); Readln(A[i]);
End;
Max:=A[1];
For i:= 2 to N do
If A[i]>max then max:=A[i];
Min:=A[1];
For i:=2 to N do
If A[i]
Writeln(‘so be nhat trong day la’,min);
Readln;
End.
Bài tập 3: Nhập dãy số có N số nguyên. Sắp xếp theo giá trị tăng dần
Giải
Program sap_xep;
Uses crt;
Var A:array[1..20] of integer;
I,j,t,n: integer;
Begin
Write(‘nhap so phan tu cua day N= ‘); Readln(N);
For i:= 1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For j:=N downto 2 do
For i:= 1 to j-1 do
If A[i]>A[i+1] then
Begin
T:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
End;
Writeln(‘day so duoc sap xep la’);
For i:= 1 to N do write(A[i]:4);
Readln;
End.
Nếu sắp xếp theo giá trị giảm dần thì thay câu lệnh A[i]>A[i+1] bằng A[i]
Bài tập 4: Nhập dãy số có N số nguyên. Tìm số nguyên tố
Giải
Program nguyen_to;
Uses crt;
Var A:array[1..20];
I,j,n,x:byte;
Begin
Write(‘nhap so phan tu cua day N=’); Readln(N);
For i:= 1 to N do
Begin
Write(‘phan tu thu ,’i’, la’); Readln(A[i]);
End;
Write(‘cac so nguyen to la’);
For i:= 1 to N do
Begin
x:=1;
For j:= 2 to round(A[i]/2) do
If A[i] mod j =0 then x:= 2;
If x=1 then write(A[i]:4);
End;
Readln;
End.
Bài tập
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Thảo Nguyên
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)