#include<bits/stdc++.h>
using namespace std;
long long a[1];
int main()
{
int n,t;
long long s=0;
cin>>n;
for(int i=1;i<=n;i++)
cin>>a[i];
for (int i=1;i<=n;i++)
s=s+a[i];
cout<<s;
}
#include<bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin>>n;
int a[n];
for(int i=0;i<n;i++)
cin>>a[i];
sort(a,a+n);
int cnt=0;
for(int i=n-1;i>=0;i--)
if(a[i]==a[n-1])
cnt++;
cout<<cnt<<endl;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long a[100001],n,m;
cin>>n;
for(int i=1;i<=n;i++)
cin>>a[i];
sort(a+1,a+n+1,greater<long long>());
m=a[1]*a[2];
for(int i=1;i<n;i++)
{
m=max(m,a[i]*a[i+1]);
}
cout<<m;
}
giá trị của S khi thực hiện đoạn chương trình sau
S:=0;i:=0;
While i<=6 do begin i:=i+1; s:=s+i ;
A. 16
B. 28
C. 21
D. không xác định
giá trị của S khi thực hiện đoạn chương trình sau
S:=0;i:=0;
While i<=6 do begin i:=i+1; s:=s+i ;
A. 16
B. 28
C. 21
D. không xác định
ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II TIN HỌC 8
Năm học 2011-2012
Ôn lại kiến thức đã học bài 7, 8, 9 và thực hành 5,6,7
I. PHẦN TRẮC NGHIỆM
A. Điền Đ (đúng) hoặc S (sai) với các câu sau:
ð 1.for i:=10 to 1 do writeln('b');
ð 2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
ð 3. for i:=1 to 100 do ;
ð 4. for i:=1 to 100 do writeln('b');
ð 5.for i:=0.5 to 5.5 do writeln('b');
ð 6.for i=1 to 100 do writeln('b');
ð 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
ð 8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+n end;
ð 9.for i:=5 to 1 do writeln('X');
ð 10.for i:=0.5 to 5.5 do writeln('X');
ð 11. while…do là câu lệnh lặp với số lần chưa biết trước trong pascal
ð 12. for i:=1 to 100 do ;
ð 13. for i:=1 to 10 do writeln('X');
ð 14.for i=1 to 50 do writeln('X');
B.Khoanh tròn vào câu mà em cho là đúng nhất.
Câu 1: Lệnh lặp nào sau đây là đúng?
A. For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
B. For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
C. For <biến đếm>:= <giá trị cuôí> to <giá trị đầu> do <câu lệnh>;
D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>;
Câu 2: Vòng lặp while ..do là vòng lặp:
A. Chưa biết trước số lần lặp
B. Biết trước số lần lặp
C. Biết trước số lần lặp nhưng giới hạn là <=100
D. Biết trước số lần lặp nhưng giới hạn là >=100
Câu 3: Cách khai báo mảng sau đây cách nào khai báo đúng ?
A. var X : Array [10, 13] of integer; C. var X : Array [3.4..4.8] of integer;
B. var X : Array [10.. 1] of integer; D. var X : Array [1..10] of real;
Câu 4: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 5 do s := s+2; writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 12 D.13
Câu 5: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là
A. t=1 B. t=2 C. t=3 D. t=6
Câu 6: Câu lệnh pascal nào sau đây là hợp lệ?
A.For i:= 1 to 10 do writeln(‘A’); B. For i:=1.5 to 10.5 do writeln(‘A’);
C. For i= 1 to 10 do writeln(‘A’); D. For i:=100 to 1 do writeln(‘A’);
Câu 7: Câu lệnh lặp while…do có dạng đúng là:
A.X:=10; While x:=10 do x:=x+5 | B. x:=10 While x=10 do x:=x+5; |
C. x:=10; While x=10 do x=x+5; | D.x:=10; While x=10 to x:=x+5; |
Câu 8: Vòng lặp for ..do là vòng lặp:
A.Biết trước số lần lặp | B. Chưa biết trước số lần lặp |
C. Biết trước số lần lặp nhưng giới hạn là <=50 | D.Biết trước số lần lặp nhưng giới hạn là >=50 |
Câu 9: Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?
a. Readln(A[10]); b. Readln(A[k]);
c. Readln(A[i]); d. Readln(A10);
Câu 10: Phần mềm học vẽ hình là:
A. Sun Times B. Yenka C. Finger Break Out D. Geogebra
Câu 11: Phần mềm luyện gõ phím nhanh là:
A. Sun Times B. Yenka C. Finger Break Out D. Geogebra
Câu 12: Vòng lặp for ..do là vòng lặp:
E. Biết trước số lần lặp | F. Chưa biết trước số lần lặp |
G.Biết trước số lần lặp nhưng giới hạn là <=50 | H.Biết trước số lần lặp nhưng giới hạn là >=50 |
Câu 13: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được
khai báo là kiểu dữ liệu
A.Integer | B. Real |
C. String | D.Tất cả các kiểu trên đều được |
Câu 14: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp?
Var a:integer;
Begin
a:=5;
While a< 6 do writeln(‘A’);
End.
A.5 lần | B. 6 lần | C. 10 lần | D.Vô hạn lần |
Câu 15: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;
for i:=1 to 10 do s := s+i;
writeln(s);
Kết quả in lên màn hình của S là :
A.58 | B. 57 | C. 56 | D.55 |
Câu 16: Hãy đọc đoạn chương trình sau:
While a<b do a:=a+1;
Khi a = 1, b = 7 thì kết quả cuối cùng a bằng bao nhiêu
A. 5 | B. 6 | C. 7 | D. 8 |
Câu 17: S:=0 ;
FOR i:=1 to 10 do IF i mod 2 = 0 THEN s := s + i ; Vậy s nhận giá trị nào?
A. 20 | B. 30 | C. 40 | D. 50 |
Câu 18: Câu lệnh lặp while…do có dạng đúng là:
A. While <điều kiện> do; <câu lệnh>;
B. While <điều kiện> <câu lệnh> do;
C. While <câu lệnh> do <điều kiện>;
D. While <điều kiện> do <câu lệnh>;
Câu 19: Các cách nhập dữ liệu cho biến mảng sau, cách nhập nào không hợp lệ?
A. B[1]:= 8; B. readln(chieucao[i]);
C. readln(chieucao5); D. read(dayso[9]);
Câu 20: Phần mềm tìm hiểu thời gian là phần mềm:
A. Sun Times B. Yenka
C. Finger Break Out D. Geogebra
Cho tam giác ABC, đường cao AH. Lấy I tuỳ ý trên AH (I ≠ A,I ≠ H). Đường thẳng BIAC ={M}, đường thẳng CIAB ={N}.Qua I kẻ d//BC, d cắt AB, NH, MH, AC lần lượt tại E, R, S, F. 1) So sánh các tỷ số: a) IR/IE & CH/CB; b) IS/IF & BH/BC 2) Tính tỷ số: IR/IS 3) C/m: RHS cân.
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else
Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.
chọn đáp án đúng, và giải thích vì sao chọn
cho 2 pt: x(x-1)=0 (I) và x-1=0 (II)
A. (I) tương đương với(II) B. (I) là hệ quả của pt (II)
C. (II) là hệ quả của pt (I) D. cả 3 đều sai
