-
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:
- Viết thủ tục nhập giá trị cho mảng A từ bàn phím.
- 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;
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
YOMEDIA
Hướng dẫn Trắc nghiệm Online và Tích lũy điểm thưởng
CÂU HỎI KHÁC
- Khẳng định nào sau đây là đúng nhất?
- Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:
- Điều khẳng định nào sau đây là đúng?
- Trong NNLT Pascal, khai báo nào sau đây là đúng khi khai báo tệp văn bản?
- 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);
- Câu lệnh dùng thủ tục đọc có dạng:
- Cho đoạn chương trình sau:Var g:text;I:integer;BeginAssign(g, ‘C:DLA.
- 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
- 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:
- Khẳng định nào sau đây là chính xác?
- 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: Viết thủ tục
