-
Câu hỏi:
Cho mảng A gồm N phần tử thuộc kiểu nguyên (N≤50)? Viết chương trình con thực hiện các yêu cầu sau:
a. Viết thủ tục nhập giá trị cho mảng A từ bàn phím.
b. Viết thủ tục in ra màn hình các phần tử âm trong mảng A.
Lời giải tham khảo:
a) Viết thủ tục nhập giá trị cho mảng A từ bàn phím
procedure nhap(var A:kmang; var n:integer);
begin
write(‘Nhap so phan tu cua mang N=’);
readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu A[‘,i,’]=’);
readln(A[i]);
end;
end;
b) Viết thủ tục in ra màn hình các phần tử âm trong mảng A.
procedure hienam(A:kmang;n:byte);
begin
for i := 1 to n do
if A[i] < 0 then write(A[i],’ ’);
end;
Hãy trả lời câu hỏi trước khi xem đáp án và lời giải
Câu hỏi này thuộc đề thi trắc nghiệm dưới đây, bấm vào Bắt đầu thi để làm toàn bài
CÂU HỎI KHÁC
- Khẳng định nào sau đây là đúng?
- Chọn đáp án đúng: Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:
- Khẳng định nào sau đây là đúng?
- Chọn đáp án đúng: Trong NNLT Pascal, khai báo nào sau đây là đúng khi khai báo tệp văn bản?
- Chọn đáp án đúng: Giả sử trên thư mục gốc của đĩa C có tệp f đã có nội dung sẵn. Khi thực hiện thủ tục Rewrite(f);
- Chọn đáp án đúng: Câu lệnh dùng thủ tục đọc có dạng:
- Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
- Tệp f có dữ liệu 5 9 15 để đọc 3 giá trị trên từ tệp f và ghi các giá trị này vào 3 biến x, y, z ta sử dụng câu lệnh:
- Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f có dạng là 5 9 15 ta sử dụng thủ tục ghi:
- Chọn đáp án đúng: Khẳng định nào sau đây là đúng?
- Chọn đáp án đúng: Cho chương trình sauProgram Baitap;Var x, y, z , t: word;Function BCNN(a, b:word):word;Var du, c, d:word;Beginc:=a; d:=b;While b
- Cho mảng A gồm N phần tử thuộc kiểu nguyên (N≤50)? Viết chương trình con thực hiện các yêu cầu sau:a.