Trong các hàm và thủ tục sau, hàm và thủ tục nào cho kết quả là một số nguyên:
A. Copy(S,vt,n); C. Length(s);
B. Insert(S1,S2,vt); D. Delete(s,vt,n);
Tìm phát biểu sai trong các phát biểu sau:
A) Một thủ tục trong Logo có ba phần: tên thủ tục, thân thủ tục và kết thúc thủ tục.
B) Một thủ tục phải có tên.
C) Thân thủ tục phải có ít nhất một lệnh
D) Một thủ tục phải có phần kết thúc (là từ end).
Em xây dựng một số chương trình con để tính tổng dãy số nguyên từ a1, a2,...an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng
program nhap_tinhtong;
uses crt;
type kmang=array[1..1000] of integer;
var A:kmang;
n:integer;
{---Nhap---}
procedure nhap;
var i:integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
end;
{---Tinh-tong---}
function tinh_tong(A:kmang; n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
t:=t+A[i];
tinh_tong:=t;
end;
{---CT-chinh---}
BEGIN
clrscr;
nhap;
write('Tong cac phan tu la: ',tinh_tong(A,n));
readln;
end.
program nhap_tinhtong;
uses crt;
type kmang=array[1..1000] of integer;
var A:kmang;
n:integer;
{---Nhap---}
procedure nhap;
var i:integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
end;
{---Tinh-tong---}
function tinh_tong(A:kmang; n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
t:=t+A[i];
tinh_tong:=t;
end;
{---CT-chinh---}
BEGIN
clrscr;
nhap;
write('Tong cac phan tu la: ',tinh_tong(A,n));
readln;
end.
Bài tập chương trình con: (procedure và function) Bài 1: Viết hàm tính n giai thừa của một số nguyên dương (n!) Bài 2: Viết hàm tính tổng các số lẻ chia hết cho 5 từ 1 đến n Bài 3: Viết thủ tục thực hiện việc hoán đổi 2 giá trị của a và b
Viết thủ tục nhập vào mảng một chiều có n phần tử. - Viết hàm tính tổng các phần tử của mảng? - Viết hàm Kiểm tra xem tổng tìm được là số chẵn hay số lẻ - Viết chương trình chính sử dụng các CTC nói trên. Hiển thị kết quả ra màn hình.
Câu 4. Cặp từ khóa nào sau đây đều có trong mọi thủ tục?
A. To và Edit
B. To và save
C. To và End
D. To và Bye
Câu 5. Một thủ tục trong Logo bắt đầu và kết thúc bởi:
A. To và Exit
B. To và End
C. To và Edit
D. Edit và End
Câu 6. Trong Logo để soạn một thủ tục có tên tamgiac, trong ngăn gõ lệnh em gõ lệnh nào?
A. edit tamgiac
B. edit “tamgiac”
C. edit “tamgiac
D. Edit tamgiac”
Câu 4. Cặp từ khóa nào sau đây đều có trong mọi thủ tục?
A. To và Edit
B. To và save
C. To và End
D. To và Bye
Câu 5. Một thủ tục trong Logo bắt đầu và kết thúc bởi:
A. To và Exit
B. To và End
C. To và Edit
D. Edit và End
Câu 6. Trong Logo để soạn một thủ tục có tên tamgiac, trong ngăn gõ lệnh em gõ lệnh nào?
A. edit tamgiac
B. edit “tamgiac”
C. edit “tamgiac
D. Edit tamgiac”
Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau
1 : viết các thủ tục nhập / xuất mảng A
2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A
Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
edn;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
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.
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu
Mỗi mẫu vẽ trong cột bên phải của bảng dưới đây là kết quả thực hiện thủ tục nào trong cột bên trái? Các mẫu vẽ này được xây dựng bằng một câu lệnh lặp với số lần lặp là 7 để vẽ 7 đoạn thẳng và 7 hình tròn nhưng thứ tự sắp xếp các lệnh trong vòng lặp là khác nhau. Sau đây là thủ tục htron vẽ một hình tròn:
To htron
Repeat 360[fd 10 bk 10 rt 1]
End