Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án (Phần 4)

Lời giải:

- Tạo danh sách a từ dữ liệu nhập vào, sau đó duyệt các phần tử trong danh sách thoả mãn điều kiện lớn hơn phần tử đứng trước và phần tử đứng sau nó.

- Chương trình:

print("Nhập một dãy số nguyên")

a = [int(i) for i in input().split()]

count=0

for i in range (1, len(a)-1):

if a[i-1] < a[i] > a[i + 1]: count = count + 1

print(count)

Lời giải:

Chương trình nén xâu:

uses crt;

var s,t,k:string;

i,d:longint;

begin

clrscr;

write('Nhap xau: '); readln(s);

d:=1;

for i:=2 to length(s) do

begin

if s[i]=s[i-1] then inc(d);

if (s[i]<>s[i-1]) then

begin

str(d,t);

if d>1 then k:=k+t+s[i-1] else k:=k+s[i-1]; d:=1;

end;

if i=length(s) then begin str(d,t);

if d>1 then k:=k+t+s[i] else k:=k+s[i];

end;

end;

write('Xau sau khi nen: ',k);

readln

end.

Chương trình giải nén xâu:

Uses crt;

Var St,St1,x:string;

i,j,k,l:longint;

Begin

Clrscr;

readln(St);

For i:=1 to length(St) do

If (St[i] in ['a'..'z']) then

If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);

For i:=1 to length(St) do

Begin

If St[i] in ['0'..'9'] then

For j:=i+1 to length(St) do

If St[j] in ['a'..'z'] then break;

x:=copy(St,i,j-i);

Val(x,k);

For l:=1 to k do St1:=St1+St[j]; end;

write(St1);

readln

end.

Lời giải:

- Một thủ tục trong Logo có ba phần:

• Đầu thủ tục

• Thân thủ tục

• Kết thúc thủ tục.

Lời giải:

- Thủ tục là một dãy các thao tác được thực hiện theo thứ tự để hoàn thành một công việc nào đó.

- Thủ tục trong logo

Nếu gộp các câu lệnh vào một nhóm, đặt tên cho nhóm lệnh này thì em đã viết được một thu tục trong Logo.

Lời giải:

A. Nhập 3-6 vào hộp Pages.
Giải thích: Khi chọn tùy chọn này, máy in sẽ chỉ in các trang từ trang thứ 3 đến trang thứ 6 của tài liệu được đang mở trong Microsoft Word.

Lời giải:

Sơ đồ thuật toán câu lệnh rẽ nhánh dạng thiếu

Sơ đồ thuật toán câu lệnh rẽ nhánh dạng đủ