bn 0 sp mà đòi ng ta > 20 sp à ???
bn 0 sp mà đòi ng ta > 20 sp à ???
Viết chương trình C++.Có n người xếp thành hàng để mua vé. Thời gian bán vé cho người thứ i là ti . Nhân viên bán vé mỗi lần chỉ bán vé cho một người, người này mua vé xong mới đến lượt người kế tiếp. Trong xấp vé mà nhân viên đang bán có một vé cặp (gồm 2 vé) và vé cặp này phải bán cho một người với thời gian bán vẫn không thay đổi, tức là nếu người thứ i mua một vé với thời gian ti thì khi mua vé cặp này vẫn tốn thời gian là ti. Vì mỗi người chỉ có nhu cầu mua một vé nên khi một người nào đó mua vé cặp này thì anh ta sẽ nhượng lại một vé cho người đứng phía sau mình, và người được nhượng vé này sẽ rời khỏi hàng cùng với người phía trước mà không phải chờ mua vé nữa. Yêu cầu: Hãy cho biết nhân viên bán vé phải bán chiếc vé cặp cho người nào để tổng thời gian bán vé là ít nhất. Dữ liệu vào: Cho từ tệp văn bản TICKET.INP gồm hai dòng: • Dòng thứ nhất ghi số nguyên dương n (2
Nếu a lớn hơn 0 thì thông báo ra màn hình a là số dương. Em hãy xác định điều kiện phía dưới để hoàn thành câu lệnh sau:
if……… then writeln( a,’ la so duong’) ;
A. a>=0 B. a<0 C. A>0 D. A>=0
Các chữ số từ 0 đến 9, nếu một chữ số bất kỳ có một đường khép kín thì ta gọi chữ số đó có 1 lỗ hổng, có hai đường khép kín thì ta gọi số đó có 2 lỗ hổng, và không có đường khép kín nào thì ta gọi chữ số đó có 0 lỗ hổng. Vậy các chữ số 0, 4, 6, 9 có 1 lỗ hổng, chữ số 8 có 2 lỗ hổng và các chữ số 1, 2, 3, 5, 7 có 0 lỗ hổng.
Cho một số nguyên dương N (1 ≤ N ≤ 2147483647), ta luôn đếm được số lỗ hổng của các chữ số xuất hiện trong nó.
Ví dụ: Với N = 388247 thì ta đếm được N có 5 lỗ hổng.
mọi người cho mình hỏi là: để viết một số không chia hết cho 2 trên phần mềm free pascal thì nên viết mod 2=1 hay mod 2<>0 thì đúng nhất vậy
Câu 1: Cho đoạn chương trình Pascal sau đây:
tong:= 0;
While tong <= 10 do
tong:=tong+1;
Sau khi đoạn chương trình trên được thực hiện, giá trị của tổng bằng bao nhiêu:
A. 9 B. 10 C. 11 D. 12
Câu 2: Sau khi đoạn chương trình sau được thực hiện, giá trị của biến S bằng bao nhiêu:
S:= 0;
for i:= 1 to 5 do S:= S + i;
A. 10 B. 12 C. 20 D. 15
Câu 3: Cho đoạn chương trình sau:
i:=1; tong:=0;
While i <= 5 do
Begin
tong:= tong + i;
i:= i + 1;
End;
Sau đoạn chương trình trên em hãy cho biết biến “tong” có giá trị bằng bao nhiêu?
A.1 B.5 C.10 D.15
Câu 4: Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i := 10 to 1 do writeln(‘A’);
B. for i := 1.5 to 5.5 do writeln(‘A’);
C. for i := 1 to 100 do writeln(‘A’);
D. for i := 1 to 10; do writeln(‘A’);
Câu 5: Trong câu lệnh lặp for n:= 1 to 10 do begin ... end;
Câu lệnh ghép được thực hiện bao nhiêu lần?
A. 10 lần; B. 5 lần; C. Không lần nào; D. 1 lần.
Câu 6: Khi giải thích các thành phần trong câu lệnh lặp, phát biểu nào sau đây đúng?
A. For, to, do là các từ khóa, biến đếm là biến kiểu số nguyên hoặc số thực.
B. Giá trị đầu và giá trị cuối là các giá trị nguyên hoặc giá trị thực.
C. Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số lần lặp là biết trước và bằng giá trị cuối – giá trị đầu + 1.
D. Cả ba ý trên.
Câu 7: Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh
For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
A. 4; B. 5; C. 6; D. 7.
Câu 8: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A. Chỉ số đầu và chỉ số cuối là 2 số nguyên;
B. Chỉ số đầu nhỏ hơn chỉ số cuối;
C. Kiểu dữ liệu có thể là integer hoặc real;
D. Cả ba ý trên;
Câu 9: Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau:
tb:= 0;
For i:= 1 to 5 do tb := tb + A[i];
Giá trị của biến tb là bao nhiêu?
A. 20; B. 18; C. 21; D. 22;
Câu 10: Lệnh lặp nào sau đây là đúng?
A. For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
B. For <biến đếm>:= <giá trị đầu> to <giá trị cuối > do <câu lệnh>;
C. For <biến đếm>:= <giá trị cuối> 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 11: Lệnh lặp while ..do số vòng lặp là:
A. Biết trước số lần lặp B. Chưa biết trước số lần lặp
C. Không thực hiện vòng lặp nào D. Lặp vô hạn lần
Câu 12: 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 13: 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+i;
writeln(s);
Kết quả in lên màn hình là của s là:
A.11 B. 55 C. 15 D.105
Câu 14: Chương trình pascal sau sẽ in ra màn hình nội dung gì?
Var i: integer;
Begin
For i:=1 to 10 do writeln(‘Day la lan lap thu’ ,i);
Readln;
End.
A. 1 câu “Day la lan lap thu i ”
B. 1 câu “Day la lan lap thu’, i ”
C. 10 câu “Day la lan lap thu’ , i ”
D. 10 câu "Day la lan lap thu i ” theo thứ tự của i là từ 1à10
Câu 15 Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình:
S:= 0; i:= 1;
while i <5 do begin S:= S + i; i:= i + 1; end;
Giá trị sau cùng của S là:
A. 16 B. 9 C. 6 D.0 ai lm đc xứng đáng 10 ny hí hí
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
cho thuật toán sau
-B1 t :=0;j :=1 -B2 nếu t lớn hơn hoặc bằng 30 thì chuyển qua B 3, ngược lại t>30 thì chuyển qua B 4-B3 :j :=j+2 ; t:t=j; và quay lại B2 -B4 in ra kết quả và kết thúc thuật toán a: Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của t và j là bao nhiêu b: Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên. GIÚP GIÙM ĐI MNTrong văn bản MS Word 2010 đang mở, muốn thay tất cả chữ “VN” thành “Việt Nam” thì
A. Trong thẻ Home, chọn Clear
B. Trong thẻ Home, chọn Go To
C. Trong thẻ Home, chọn Advanced Find
D. Trong thẻ Home, chọn Replace
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=9 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6