Viết thủ tục thực hiện việc xoá N ký tự của biến sau a
bắt đầu từ vị trí a1
Câu 14. -NB Hãy chọn phương án ĐÚNG khi thực hiện thủ tục chuẩn Insert(S1,S2,vt) ?
A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
C. Nối xâu S2 vào S1
D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt
Câu 15- NB Cho xâu S= 'Thu do Ha Noi', khi thực hiện thủ tục Delete(S,1,6) kết quả là gì?
A. 'THa Noi'
B. ' Ha Noi'
C. 'Thu do'
D. 'Ha Noi'
Câu 14. -NB Hãy chọn phương án ĐÚNG khi thực hiện thủ tục chuẩn Insert(S1,S2,vt) ?
A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
C. Nối xâu S2 vào S1
D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt
Câu 15- NB Cho xâu S= 'Thu do Ha Noi', khi thực hiện thủ tục Delete(S,1,6) kết quả là gì?
A. 'THa Noi'
B. ' Ha Noi'
C. 'Thu do'
D. 'Ha Noi'
viết chương trình nhập vào từ bàn phím một xâu bất kì hãy thực hiện xoá 5 kí tự bắt đầu từ vị trí 3 cả xâu đó rồi đưa kết quả ra màn hình
uses crt;
var st:string;
begin
clrscr;
readln(st);
delete(st,3,5);
writeln(st);
readln;
end.
Câu 2: Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:
A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
C. Nối xâu S2 vào S1
D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt
Câu 2: Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:
A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
C. Nối xâu S2 vào S1
D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt
Sử dụng ngôn ngữ lập trình viết chương trình thực hiện các công việc sau:
1. Viết thủ tục nhập vào mảng A là điểm toán của n học sinh
2. Viết thủ tục xuất mảng A đã được sắp xếp lên màn hình
3. Viết hàm tính Tổng điểm của n học sinh trên
4. Viết thủ tục hoán vị trí điểm giữa các học sinh
5. Hoàn thành chương trình chính với số điểm được sắp xếp theo thứ tự tăng dần
Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,tam,j:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong diem cua ',n,' ban la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
1.VIẾT HÀM TÍNH TỔNG CÁC SỐ TỪ 1 ĐẾN N 2. Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b
```
def tong_tu_1_den_n(n):
tong = 0
for i in range(1, n+1):
tong += i
return tong
```
Hàm này sử dụng vòng lặp for để tính tổng của các số từ 1 đến n. Ban đầu, ta khởi tạo biến tong bằng 0. Sau đó, ta lặp qua các số từ 1 đến n và cộng chúng vào biến tong. Cuối cùng, ta trả về giá trị của biến tong.
Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b:```
def hoan_doi(a, b):
temp = a
a = b
b = temp
return a, b
```
Thủ tục này sử dụng biến tạm temp để lưu giá trị của a trước khi hoán đổi. Sau đó, ta gán giá trị của b cho a và giá trị của temp (tức là giá trị ban đầu của a) cho b. Cuối cùng, ta trả về hai giá trị đã được hoán đổi.
Câu 1: Để bắt đầu thực hiện một thủ tục em thực hiện như thế nào? *
A. Gõ tên thủ tục trong ngăn gõ lệnh.
B. Gõ lệnh Repeat.
C. Gõ lệnh Edit “<tên thủ tục>
Hãy bắt đầu một phiên làm việc mới: Khởi động Logo, mở một tệp chương trình chứa các thủ tục đã viết (ví dụ tệp Baihoc2.lgo) bằng cách chọn File -> Load… và tìm tệp trong cửa sổ Open. Xem nội dung và cách sắp xếp các thủ tục trong tệp này bằng cách nháy nút lệnh Edall. Viết thêm một thủ tục mới, thực hiện thủ tục này và ghi lại tệp với tên cũ.
Hãy bắt đầu một phiên làm việc mới: Khởi động Logo, mở một tệp chương trình chứa các thủ tục đã viết (ví dụ tệp Baihoc1.lgo) bằng cách gõ lệnh (Load “Baihoc1.lgo). Xem nội dung và cách sắp xếp các thủ tục trong tệp này bằng cách nháy nút lệnh Edall. Viết thêm một thủ tục mới, thực hiện thủ tục này và ghi lại tệp với tên cũ. (Chú ý: Tránh mở nhiều tệp liên tiếp).
Viết chương trình nhập vào xâu và một ký tự ch. Trả về vị trí xuất hiện đầu tiên của kí tự ch trong xâu