Câu hỏi:

09/07/2020 399

Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Xem lời giải

Câu hỏi trong đề: Top 4 Đề thi giữa kì 2 Tin học 11 có đáp án !!

Trả lời:

Giải bởi Vietjack

Var a: string;

i, Dem: integer;

Begin

writeln(‘nhap xau:’);

Readln(a);

Dem:=0;

For i:=1 to length(a) do

If (‘A’<=a[i]) and (a[i]<=’Z’) then

Dem:= Dem+1;

Writeln(Dem);

Readln

End.

Bình luận

Câu 1:

Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:

A. Cuối tệp

B. Đầu dòng

C. Đầu tệp

D. Cuối dòng

Xem đáp án » 09/07/2020 56,415

Câu 2:

Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:

A. Thủ tục gắn tên tệp cho tên biến tệp

B. Thủ tục mở tên để đọc dữ liệu

C. Khai báo biến tệp

D. Thủ tục đóng tệp

Xem đáp án » 09/07/2020 21,231

Câu 3:

Câu lệnh dùng thủ tục để đóng tệp có dạng:

A. Close(<tên tệp>);

B. Stop(<biến tệp>);

C. Stop((<tên tệp>);

D. Close(<biến tệp>);

Xem đáp án » 09/07/2020 15,725

Câu 4:

Xâu rỗng là xâu có độ dài bằng:

A. 0

B. 1

C. 3

D. 4

Xem đáp án » 09/07/2020 8,297

Câu 5:

Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)]));
Kết quả in ra màn hình là:

A. ‘X’

B. ‘U’

C. ‘A’

D. ‘N’

Xem đáp án » 09/07/2020 7,823

Câu 6:

Cho đoạn chương trình sau:
s := ‘1001010’;
write(pos(‘012’, s));
Kết quả in ra màn hình là:

A. 0

B. ‘0’

C. 3

D. ‘3’

Xem đáp án » 09/07/2020 4,676

Câu 7:

Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:

A. <biến tệp> := <tên tệp>;

B. assign(<biến tệp> , <tên tệp>);

C. <tên tệp> := <biến tệp>;

D. assign(<tên tệp> , <biến tệp>);

Xem đáp án » 09/07/2020 3,265

Xem thêm các câu hỏi khác »

Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Nhà sách VIETJACK:

Bình luận

Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:

Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:

Câu lệnh dùng thủ tục để đóng tệp có dạng:

Xâu rỗng là xâu có độ dài bằng:

Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)]));
Kết quả in ra màn hình là:

Cho đoạn chương trình sau:
s := ‘1001010’;
write(pos(‘012’, s));
Kết quả in ra màn hình là:

Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:

VIP +3 tháng ( 199,000 VNĐ )

VIP +6 tháng ( 299,000 VNĐ )

VIP +12 tháng ( 499,000 VNĐ )

🔥 Đề thi HOT:

Viết chương trình:Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Nhà sách VIETJACK:

Bình luận

Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:

Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:

Câu lệnh dùng thủ tục để đóng tệp có dạng:

Xâu rỗng là xâu có độ dài bằng:

Cho đoạn chương trình sau:s := ‘Mua xuan’;write(upcase(s[length(s)])); Kết quả in ra màn hình là:

Cho đoạn chương trình sau:s := ‘1001010’;write(pos(‘012’, s)); Kết quả in ra màn hình là:

Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:

VIP +3 tháng ( 199,000 VNĐ )

VIP +6 tháng ( 299,000 VNĐ )

VIP +12 tháng ( 499,000 VNĐ )

🔥 Đề thi HOT:

CHỌN BỘ SÁCH BẠN MUỐN XEM

Đăng ký

Đăng nhập

Quên mật khẩu

Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)]));
Kết quả in ra màn hình là:

Cho đoạn chương trình sau:
s := ‘1001010’;
write(pos(‘012’, s));
Kết quả in ra màn hình là: